importing using transfer spread sheet.

[mike02]

Hey,
I am getting a compile error at the start, it says it is not defined. Here is my code:

Private Sub AddressInfo_Click()
Dim fd As FileDialog
   Set fd = Application.FileDialog(msoFileDialogFilePicker)
   fd.InitialFileName = "c:\abc\*.xls*"
   fd.Show
   FileName = Application.FileDialog(msoFileDialogFilePicker).SelectedItems.Item(1)
   Dim oExcel As Object, oWb As Object
   Set oExcel = CreateObject("Excel.Application")
   Set oWb = oExcel.Workbooks.Open(FileName:=FileName, Password:="xyz")
   DoCmd.TransferSpreadsheet acImport, 8, "Address_Information", FileName, True
End Sub

any ideas? thanks in advance!

[June7]

I did copy/paste of code from http://support.microsoft.com/kb/288543 and it ran without error.

The error you encounter is often triggered when a needed library reference is not selected. The referenced article doesn't mention that one needs to be selected but that is the only cause I can think of. I am just not sure which library would be needed. Which libraries do you have selected?

[mike02]

14.0 object library

[June7]

I created a new project and find that it was created with 4 libraries by default:

Visual Basic For Applications
Microsoft Access x.0 Object Library
OLE Automation
Microsoft Office x.0 Access database engine Object Library

I had to add Microsoft Office x.0 Object Library to get the code to run.