Question : Composition sur Excel produit de l'accès

Bonjour, j'ai le code ci-dessous et je regarde pour composer les colonnes C : F sur le rendement de sorte qu'il y ait une virgule dans les nombres qui outputted par exemple 162.500 au lieu de 162500 et je voudrais également là être seulement 2 décimales décimales que le given

This est mon
Dim du code

Private Command0_Click () strFile comme String
strFile = acOutputForm du
'DoCmd.OutputTo de « F:\VarianceOutput.xls ", Me.Variance, acFormatXLS, strFile, False
DoCmd.OutputTo acOutputTable, « désaccord », acFormatXLS, strFile, oXL de False

Dim comme oWB d'Object
Dim comme oWS d'Object
Dim comme Object
Dim FormulaRow en tant qu'oWB d'oXL du
Set de Long
= de
Set de CreateObject (le « Excel.Application ») = l'oWS du
Set d'oXL.Workbooks.Open (strFile) = oWB.Sheets (1)
FormulaRow de/>With =. Cellules (. Rows.Count, « d »). Extrémité (- 4162). Rangée + 2 'xlUp
.range (« c » et FormulaRow et » : f " et FormulaRow). Formule = « =SUM (C2 : c » et (FormulaRow - 2) et ") « 
. Cells.Font.Size = 10
. Rangées (1).Font.Bold = True
.UsedRange.EntireColumn.AutoFit

.range (« H : J ») .NumberFormat = « 0.00% ; [Rouge] 0.00% " extrémité With
/>oXL.Visible = oWS de True

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

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

Thanks Seamus class= de

Réponse : Composition sur Excel produit de l'accès

Bonjour,

vous pouvez ajouter dans avec le rapport, comme l'extrait ci-dessous

à la votre, teylyn

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

Avec l'oWS FormulaRow =. Cellules (. Rows.Count, « d »). Extrémité (- 4162). Rangée + 'xlUp 2 .range (« c » et FormulaRow et » : f " et FormulaRow). Formule = « =SUM (C2 : c » et (FormulaRow - 2) et ") «  . Cells.Font.Size = 10 . Rangées (1).Font.Bold = rectifient .UsedRange.EntireColumn.AutoFit .range (« H : J ») .NumberFormat = « 0.00% ; [Rouge] 0.00% » .range (« C : F ») .NumberFormat = « #, ##0.00 ; [Rouge] #, ##0.00 » Extrémité avec