CurrentDb.Execute "delete * from [Import-CSM2]"
Set xlApp = New Excel.Application
With xlApp
.Visible = False
Set xlWB = .Workbooks.Open("C:\Documents and Settings\AJ\My Documents\Work\Company\Banks\CSM\Outstanding Reports (by tab).xlsm", , False)
strName = xlWB.Sheets(1).Name
End With
Set xlWB = Nothing
Set xlApp = Nothing
DoCmd.TransferSpreadsheet acImport, , "Import-CSM2", "C:\Documents and Settings\AJ\My Documents\Work\Company\Banks\CSM\Outstanding Reports (by tab).xlsm", True, strName & "!"
DoCmd.OpenQuery "qryUpdateCSM2_SovToSant"
Network and collaborate with thousands of CTOs, CISOs, and IT Pros rooting for you and your success.
”The time we save is the biggest benefit of E-E to our team. What could take multiple guys 2 hours or more each to find is accessed in around 15 minutes on Experts Exchange.
Our community of experts have been thoroughly vetted for their expertise and industry experience.