Вопрос : Достигните формы выхода

Hi,

I имеет следующий Кодего которое выводит наружу таблица от доступа к Excel.

Can, котор кто-то советует Кодего автоматически для того чтобы суммировать колонки d к u независимо от сколько рядки находятся в
Dim Spreadsheet.

Thanks Seamus

Private Sub Command0_Click () strFile как String
strFile = acOutputForm
'DoCmd.OutputTo «F:\BankingandSupport.xls ", Me.BankingandSupport, acFormatXLS, strFile, False
DoCmd.OutputTo acOutputTable, «Ecomm ПРОТИВ данных по Mkt», acFormatXLS, strFile, oXL False

Dim как oWB Object
Dim как oWS Object
Dim как oWB oXL Object

Set =
Set CreateObject («Excel.Application») = oWS
Set 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 True

Set = oWB Nothing
Set = oXL Nothing
Set = Nothing

End Sub class=

Ответ : Достигните формы выхода

Имеете вы судимые уничтожающ профиль почты и воссоздающ его?