Enhance your security with threat intelligence from the web. Get trending threat insights on hackers, exploits, and suspicious IP addresses delivered to your inbox with our free Cyber Daily.
im fname As String Dim fname1 As String Dim fname2 As String Dim fname3 As String Dim fname4 As String Dim fname5 As String Dim ExcelNot As Boolean fname = "C:\Temp\XXXX" DoCmd.TransferSpreadsheet acExport, , "Q_BPS_P3Hrs_Main", "C:\Temp\P3Hrs.xlsx" DoCmd.TransferSpreadsheet acExport, , "Q_BPS_P3_Dollars_Main", "C:\Temp\P3Dollars.xlsx" DoCmd.TransferSpreadsheet acExport, , "Q_604_Main", "C:\Temp\604.xlsx" DoCmd.TransferSpreadsheet acExport, , "Q_BPS_1204_Main", "C:\Temp\1204.xlsx" DoCmd.TransferSpreadsheet acExport, , "Q_BPS_205_Main", "C:\Temp\205.xlsx" Set db = CurrentDb On Error Resume Next Set xlbook = GetObject(, "Excel.application") If Err.Number <> 0 Then ExcelNot = True 'Excel not running Err.Clear Set xlbook = CreateObject("Excel.application") 'xlbook.Visible = True Else detectExcel xlbook.DisplayAlerts = True Set xlsheet = xlbook.Workbooks.Open("C:\Temp\P3Hrs.xlsx").Sheets(1) xlsheet.Application.ActiveWorkbook.Worksheets.Range("A1:Q1").Delete xlsheet.Application.ActiveWorkbook.SaveAs fname, -4158 xlsheet.Application.ActiveWorkbook.Close End If End sub
|offset an array formula||4||23|
|Extract strings / characters from the right till the first occurrence of a comma, using an excel formula||6||30|
|copying from excel to word||2||27|
|Protecting an object||3||23|
Join the community of 500,000 technology professionals and ask your questions.
Connect with top rated Experts
10 Experts available now in Live!