Question : Access Export Formatting


Hi,

I have teh following code which i am using to export an access table to excel.

Can someone advise of the code to make the numbers appear with a £ sign

With oWS
    .Range("A1:X1").Interior.Color = RGB(255, 255, 0)
    FormulaRow = .Cells(.Rows.Count, "b").End(-4162).Row + 2 'xlUp
    .Cells.Font.Size = 10
    .Rows(1).Font.Bold = True
    .UsedRange.EntireColumn.AutoFit
    .Range("c:v").NumberFormat = "0.00%;[Red]0.00%"
    .Range("c:v").NumberFormat = "#,##0.00;[Red]#,##0.00"
    .Range("A:A").AutoFilter Field:=1
    .Range("A:A").Select

Thanks,
Seamus

Answer : Access Export Formatting

RangeToApplyFormattingTo.NumberFormat = Chr(163) & "#,##0.00;[Red](" & Chr(163) & "#,##0.00)"
Random Solutions  
 
programming4us programming4us