Microsoft
Software
Hardware
Network
Question : Access output form
Hi,
I have the following code which outputs a table from Access to Excel.
Can someone advise of the code to automatically sum columns D to U regardless of how many rows are in the Spreadsheet.
Thanks Seamus
Private Sub Command0_Click()
Dim strFile As String
strFile = "F:\BankingandSupport.xls"
'DoCmd.OutputTo acOutputForm, Me.BankingandSupport, acFormatXLS, strFile, False
DoCmd.OutputTo acOutputTable, "Ecomm VS Mkt Data", acFormatXLS, strFile, False
Dim oXL As Object
Dim oWB As Object
Dim oWS As Object
Set oXL = CreateObject("Excel.Applic
ation")
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
Answer : Access output form
Have you tried deleting the mail profile and recreating it?
Random Solutions
where does oracle enterprise manger look
usb printer stopped working and cannot re-install
How can the AD objects deletion reflect in WSUS console immediately.
please help with this xml as2 code
Symantec BackupExec 2010 VMware ESX 3.5 x64 guests fails with 'An attempt to take a snapshot of a virtual machine failed because it was unable to quiesce an application'
Multiple Dll's in Delphi
DAG & CAS array configured but it's not failover
NAT ROUTE on ASA from OUTSIDE MAIL SERVER on DIFFERENT IP SPACE
How can I multiply table 1 column by table 2 column then add all the results?
Case statement based on query