Import Excel Sheet Command button (1 Viewer)

I will preface this by saying this is my first attempt at access coding ever! I am trying to work this out in Access 2010. I need an automated process so that different users can select tables from different places and it go to the correct table without any worries. I have made the code work for the dialog box to appear and select a file. I'm lost on the next part. Please spell this out for me if possible. THANKS!!

docrenoc

Welcome to AWF
You had piggy-backed onto an 11 year thread.
I've moved your post to its own thread as you are more likely to get answers
Not sure the title is appropriate - if you want it changed, we can do so.

Thank you!

here is the code I am dealing with for reference.

I've put your code in code tags (# button on post text window) to make it easier to read

This is fairly standard code for selecting files - as written it will allow .xlsx or any other file type. Is that what you want?

Have you tried the code & if so what issues do you have with it?

I think that I will need to limit the file types to xls and xlsx, that is not a problem though. The next thing I need the code to do is take the selected file and append it to a table in the database, "Table - Referrals Fillable"

So this is the final code. I managed to get this to work in the way I needed.

Private Sub cmdSelectExcelFile_Click()
Dim dlg As FileDialog
Dim FileSelected As String
Set dlg = Application.FileDialog(msoFileDialogFilePicker)
With dlg
.Title = "Select the Excel file to import"
.AllowMultiSelect = False
.Filters.Clear
.Filters.Add "xlsx Files", "*.xlsx", 1
.Filters.Add "All Files", "*.xls*", 2
If .Show = -1 Then
FileSelected = .SelectedItems(1)
Else
Exit Sub
End If
End With
Dim importfile As String
importfile = FileSelected
DoCmd.TransferSpreadsheet acImport, acSpreadsheetTypeExcel12Xml, "Table - Referrals Fillable", importfile, True
End Sub

You forgot the code tags.

As written, this will also allow other Excel file types like .xlsm

You can combine file types on the same line
Suggest you replace both filter.add lines with

OR if you want any xls type file then use