Importing Excel

[BSando]

Hi All,

I want users to import an excel file to a table. I want the user to be able to select the file they import because every file will not have the same name. Everyfile will have the same format.

I have tried the Transferspreadsheet cmd but i get an error because I don't have the file name allocated.

Anyhelp would be appreciated.

Some people make things happen, some watch while things happen, and some wonder 'What happened?'

 

[Remou]

The code in this link will allow the user to select a file name:

http://www.mvps.org/access/api/api0001.htm

 

[ZmrAbdulla]

I think this can simplify the call.

Private Sub btnBrowse_Click()
'Set reference to Microsoft Office x.xx Object Library
    Dim dlgOpen As FileDialog
    Set dlgOpen = Application.FileDialog(msoFileDialogOpen)
    With dlgOpen
        .AllowMultiSelect = False
        .Filters.Add "Excel Files", "*.xls", 1
        .Show
    End With
    dbname = dlgOpen.SelectedItems(1)
    Me.txtExcelFileName.Value = dbname
End Sub

________________________________________________________
Zameer Abdulla
Help to find Missing people