asked on
Dim objXL As Excel.Application
Dim objWkb As Excel.Workbook
Dim objSht As Excel.Worksheet
Dim strFileName As String
Dim ImportRange As Range
strFileName = (GetMyPath() & "Interface2.xlsm")
Set objXL = New Excel.Application
Set objWkb = objXL.Workbooks.Open(strFileName, , False, , "password")
'run excel macro
objXL.Run "Upload2Dbase"
'import the data from sheet named "SageDump"
ImportRange = objWkb.Worksheets("SageDump").UsedRange
DoCmd.TransferSpreadsheet acImport, acSpreadsheetTypeExcel9, _
"tblDeliveriesDue", strFileName, True, ImportRange
'destroy objects
Set objSht = Nothing
Set objWkb = Nothing
Set objXL = Nothing
As I say, still struggling with Object variable or With block not set.