Frage : Auf Bestimmungsblatt Ausgabeformate zurückgreifen

Hallo, haben

I den folgenden Code, der ausgibt eine Tabelle von Zugang zu Excel.

Can, das jemand vom Code raten, um automatisch zu summieren Spalten D bis U unabhängig davon, wieviele Reihen im Spreadsheet.

Thanks Seamus

Private VorCommand0_Click ()
Dim, das als String
strFile = „F:\BankingandSupport.xls "
'DoCmd.OutputTo acOutputForm, Me.BankingandSupport, acFormatXLS strFile ist, strFile, False
DoCmd.OutputTo, das, „Ecomm GEGEN Mkt Daten“, das acFormatXLS acOutputTable ist, strFile, False

Dim oXL als Object
Dim oWB als Object
Dim oWS als Object

Set oXL = CreateObject („Excel.Application“)
Set oWB = oXL.Workbooks.Open (strFile)
Set oWS = oWB.Sheets (1)
oWS.Cells.Font.Size = 10
oWS.Rows (1).Font.Bold = True
oWS.UsedRange.EntireColumn.AutoFit
oXL.Visible = True

Set oWS = Nothing
Set oWB = Nothing
Set oXL = Nothing

End Sub

Antwort : Auf Bestimmungsblatt Ausgabeformate zurückgreifen

Versucht Sie, das Postprofil zu löschen und es neu zu erstellen?