G
Guest
I am currently using the following code to import data into a table from
excel but am having problems:
Dim appAcc As Access.Application
Set appAcc = New Access.Application
appAcc.Visible = True
appAcc.OpenCurrentDatabase "C:\Windows Inventory.mdb"
appAcc.DoCmd.TransferSpreadsheet acImport, , "Windows Machining",
"C:\test.xls"
appAcc.Quit
The code runs fine up to the "TransferSpreadsheet" line where it hangs up. I
am unsure as to why it is not working, any thoughts?
excel but am having problems:
Dim appAcc As Access.Application
Set appAcc = New Access.Application
appAcc.Visible = True
appAcc.OpenCurrentDatabase "C:\Windows Inventory.mdb"
appAcc.DoCmd.TransferSpreadsheet acImport, , "Windows Machining",
"C:\test.xls"
appAcc.Quit
The code runs fine up to the "TransferSpreadsheet" line where it hangs up. I
am unsure as to why it is not working, any thoughts?