Question : Accéder à la forme de rendement

Bonjour, le

I ont le code suivant qui produit une table de l'accès à Excel.

Can que quelqu'un conseillent du code d'additionner automatiquement les colonnes D à U indépendamment combien de rangées sont dans le
Dim de Spreadsheet.

Thanks Seamus

Private Command0_Click () strFile comme String
strFile = l'acOutputForm du
'DoCmd.OutputTo de « F:\BankingandSupport.xls ", Me.BankingandSupport, acFormatXLS, strFile, False
DoCmd.OutputTo acOutputTable, « Ecomm CONTRE des données de Mkt », l'acFormatXLS, strFile, oXL de False

Dim comme oWB d'Object
Dim comme oWS d'Object
Dim en tant qu'oWB d'oXL d'Object

Set = de
Set de CreateObject (le « Excel.Application ») = oWS du
Set d'oXL.Workbooks.Open (strFile) = oWB.Sheets (1)
oWS.Cells.Font.Size = 10
oWS.Rows (1).Font.Bold = True
oWS.UsedRange.EntireColumn.AutoFit
oXL.Visible = oWS de True

Set = oWB de Nothing
Set = oXL de Nothing
Set = Nothing

End Sub class= de

Réponse : Accéder à la forme de rendement

Avez-vous essayé de supprimer le profil de courrier et de le recréer ?