Create a command button to import excel file 2

[math20]

Hi

Can anyone help me with the code for a command button in access where I will get the same option as you would when you right click in the access database and then click on the import table option.

 

[wemeier]

In your OnClick event coding do the following:

Private Sub cmdImport_Click()
    RunCommand acCmdImport
End Sub

This will open the Import dialog box just as if you click on the "Import Table" context menu option.

Cruising the Information Superhighway at the speed of light
_{(your mileage may vary)}

 

[math20]

Thank you Wemeir. It works. But it gives me an error when I select teh excel file that I am trying to import. The error is subscript out of range. I get this error after I select teh worksheet I am trying to import then click next, and again when I try to store it in a table.

Any suggestion how to tackle this. So far I tried to timport the file by keeping the excel file open but that did not work. I am guessing it maybe the size, but the size I do not have any control over.

Once again thank you for your first code that works like a charm though.

 

[wemeier]

If you try to manually import the Excel spreadsheet (i.e. right-click and choose Import) do you get the subscript error? Does the table already exist?

If neither is true, I'm not sure why you're getting the error. Try adding a DoEvents after the RunCommand and see if it clears up the problem.

Cruising the Information Superhighway at the speed of light
_{(your mileage may vary)}