With the new era of mobile computing, smartphones and tablets, wireless communications and cloud services, the USDA sought to take advantage of a mobilized workforce and the blurring lines between personal and corporate computing resources.
As I say, still struggling with Object variable or With block not set.
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
Add your voice to the tech community where 5M+ people just like you are talking about what matters.
Join the community of 500,000 technology professionals and ask your questions.