Need help with an Macro

[krismcmillan]

Hi

I need some help with uploading a excel spreadsheet into Access 2010

1.Need to add an Browse button, so that the user can find an excel spreadsheet
2. I want to add an upload button, so that the user can upload the spreadsheet to a specific table
3.It also needs to overwrite the original table, but the structure needs to stay.

Or is there a way of using VBA code, instead. If so could you please post the coding, as I'm new to the coding side.

Thanks in advance

 

[krismcmillan]

Here is a copy of the screen, that I'm trying to do.
-- removed inline image ---

 

[krismcmillan]

Any help would be grateful appreciated.

 

[krismcmillan]

I have done the following, but I'm not sure where to add the DOCmd.TransferSpreadsheet command.

Private Sub cmdFilesDialog_Click()
'This requires a reference to the Microsoft Office 11.0 Object Library.

Dim fDialog As Office.FileDialog
Dim varFile As Variant

' Clear the list box contents.
Me.FileList.RowSource = ""

' Set up the File dialog box.
Set fDialog = Application.FileDialog(msoFileDialogFilePicker)
With fDialog
' Allow the user to make multiple selections in the dialog box.
.AllowMultiSelect = True

' Set the title of the dialog box.
.Title = "Select One or More Files"

' Clear out the current filters, and then add your own.
.Filters.Clear
.Filters.Add "Excel Spreadsheet", "*.XLS"
.Filters.Add "Excel Spreadsheet", "*.XLSX"


' Show the dialog box. If the .Show method returns True, the
' user picked at least one file. If the .Show method returns
' False, the user clicked Cancel.
If .Show = True Then
' Loop through each file that is selected and then add it to the list box.
For Each varFile In .SelectedItems
Me.FileList.AddItem varFile
Next
Else
MsgBox "You clicked Cancel in the file dialog box."
End If
End With


End Sub


I'm either missing something or just doesn't get it, I can't make it work. hed the database and the spreadsheet to this message.

Thanks in advance.