Pergunta : Alcançar o formulário de saída

Olá!, o

I tem o seguinte código que outputs uma tabela do acesso a Excel.

Can que alguém recomenda do código para somar automaticamente as colunas D a U não obstante quantas fileiras estão no
Dim de Spreadsheet.

Thanks Seamus

Private Command0_Click () strFile como String
strFile = o acOutputForm do
'DoCmd.OutputTo de “F:\BankingandSupport.xls ", Me.BankingandSupport, acFormatXLS, strFile, False
DoCmd.OutputTo acOutputTable, “Ecomm CONTRA dados de Mkt”, o acFormatXLS, strFile, oXL de False

Dim como o oWB de Object
Dim como o oWS de Object
Dim como o oWB do oXL de Object

Set = do
Set de CreateObject (“Excel.Application”) = o oWS do
Set de oXL.Workbooks.Open (strFile) = 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= do

Resposta : Alcançar o formulário de saída

Você tentou suprimir do perfil do correio e recreá-lo?