Вопрос : Форматировать на Эксел ом от доступа

Hi, я имею внизу Кодего и я смотрят, что форматирую колонки c: F на выходе так, что будет запятой в номерах outputted например 162.500 вместо 162500 и я также хотел был бы там быть только 2 десятичных места, котор given

This будет мое
Dim code

Private Sub Command0_Click () strFile как String
strFile = acOutputForm
'DoCmd.OutputTo «F:\VarianceOutput.xls ", Me.Variance, acFormatXLS, strFile, False
DoCmd.OutputTo acOutputTable, «отклонение», acFormatXLS, strFile, oXL False

Dim как oWB Object
Dim как oWS Object
Dim как Object
Dim FormulaRow как oWB oXL
Set Long
=
Set CreateObject («Excel.Application») = oWS
Set oXL.Workbooks.Open (strFile) = oWB.Sheets (1)
FormulaRow/>With =. Клетки (. Rows.Count, «d»). Конец (- 4162). Рядок + 2 'xlUp
.range («c» & FormulaRow &»: f " & FormulaRow). Формула = «=SUM (c2: c» & (FormulaRow - 2) & ") «
. Cells.Font.Size = 10
. Рядки (1).Font.Bold = True
.UsedRange.EntireColumn.AutoFit

.range («h: J») .NumberFormat = «0.00%; [Красный цвет] 0.00% " конца With
/>oXL.Visible = oWS True

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

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

Thanks Seamus class=

Ответ : Форматировать на Эксел ом от доступа

Hi,

вы можете добавить в с заявлением, как фрагмент ниже

приветственные восклицания, teylyn

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

С oWS FormulaRow =. Клетки (. Rows.Count, «d»). Конец (- 4162). Рядок + 'xlUp 2 .range («c» & FormulaRow &»: f " & FormulaRow). Формула = «=SUM (c2: c» & (FormulaRow - 2) & ") « . Cells.Font.Size = 10 . Рядки (1).Font.Bold = True .UsedRange.EntireColumn.AutoFit .range («h: J») .NumberFormat = «0.00%; [Красный цвет] 0.00%» .range («c: F») .NumberFormat = «#, ##0.00; [Красный цвет] #, ##0.00» Конец с