Fråga : Ta fram tillverkat bildar

Hi

I har efter kodifiera som tillverkar en bordlägga från tar fram till Excel.

Can som, någon råder av kodifiera automatiskt för att sum kolonner D till U utan hänsyn till, hur många ror är i den underCommand0_Click () Dim som för Spreadsheet.

Thanks Seamus

Private är strFile som String
strFile =, ”Ecomm VS Mkt data”, acFormatXLS som är strFile, False

Dim oXL som Object
Dim oWB som Object
Dim oWS som oWB för Object

Set oXL = för CreateObject acOutputForm ”för F:\BankingandSupport.xls "
'DoCmd.OutputTo, Me.BankingandSupport, acFormatXLS som är strFile, acOutputTable False
DoCmd.OutputTo (”Excel.Application”)
Set = oWS för
Set för oXL.Workbooks.Open (strFile) = 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
" klar "

Svar : Ta fram tillverkat bildar

Har du försökt att ta bort posta för att profilera och n den på nytt?
Andra lösningar  
 
programming4us programming4us