Frage : Formatisierung auf Excel ausgegeben vom Zugang

Hallo, habe ich den below Code und ich schaue, um die Spalten C zu formatieren: F auf dem Ausgang, damit es ein Komma in den Zahlen gibt, die z.B. 162.500 anstelle von 162500 outputted und ich auch dort nur 2 Dezimalstellen, die given

This mein code

Private VorCommand0_Click ()
Dim ist, das als String
strFile = „F:\VarianceOutput.xls "
'DoCmd.OutputTo acOutputForm, strFile ist Me.Variance, acFormatXLS sein möchte, strFile, False
DoCmd.OutputTo acOutputTable, „Abweichung“, acFormatXLS, strFile, False

Dim oXL als Object
Dim oWB als Object
Dim oWS als Object
Dim FormulaRow als Long

Set oXL = CreateObject („Excel.Application“)
Set oWB = oXL.Workbooks.Open (strFile)
Set oWS = oWB.Sheets (1)
With oWS
FormulaRow =. Zellen (. Rows.Count, „d“). Ende (- 4162). Reihe + 2 'xlUp
.range („c“ u. FormulaRow u.“: f " u. FormulaRow). Formel = „=SUM (c2: c“ u. (FormulaRow - 2) u. ") „
. Cells.Font.Size = 10
. Reihen (1).Font.Bold = True
.UsedRange.EntireColumn.AutoFit

.range („H: J“) .NumberFormat = „0.00%; [Rot] 0.00% "
Ende With
oXL.Visible = True

Set oWS = Nothing
Set oWB = Nothing
Set oXL = Nothing
End Sub

----------------------------------

Thanks Seamus

Antwort : Formatisierung auf Excel ausgegeben vom Zugang

Hallo,

Sie können in mit Aussage, wie dem Stückchen hinzufügen unten

Beifall, teylyn

1: 2: 3: 4: 5: 6: 7: 8: 9: 10:

Mit oWS FormulaRow =. Zellen (. Rows.Count, „d“). Ende (- 4162). Reihe + 'xlUp 2 .range („c“ u. FormulaRow u.“: f " u. FormulaRow). Formel = „=SUM (c2: c“ u. (FormulaRow - 2) u. ") „ . Cells.Font.Size = 10 . Reihen (1).Font.Bold = ausrichten en .UsedRange.EntireColumn.AutoFit .range („H: J“) .NumberFormat = „0.00%; [Rot] 0.00%“ .range („C: F“) .NumberFormat = „#, ##0.00; [Rot] #, ##0.00“ Ende mit