Data not importing from .xlsx file

[Access_Help]

I have a form to upload data from a XLSX file to an access table. When I click upload, I am getting a blank record, the data does not seem to copy over:


File Selector:

Private Sub Command9_Click()
'Requires reference to Microsoft Office 12.0 Object Library.
 
   Dim fDialog As Office.FileDialog
   Dim varFile As Variant
 
   'Clear File Path contents.
   Me.FilePath = ""
 
   'Set up the File Dialog.
   Set fDialog = Application.FileDialog(msoFileDialogFilePicker)
   With fDialog
      'Allow user to make multiple selections in dialog box.
      .AllowMultiSelect = False
            
      'Set the title of the dialog box.
      .Title = "Please select the Student.xlsx file"
 
      'Clear out the current filters, and add our own.
      .Filters.Clear
      .Filters.Add "Excel Spreadsheets", "*.xls, *.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 selected and add it to the list box.
         Me.FilePath.Value = .SelectedItems.Item(1)
        
      Else
         MsgBox "You did not pick a file."
      End If
   End With
End Sub

Upload Button

Private Sub cmdImportExcel_Click()

'the path to the excel workbook
Dim strExcelPath As String

strExcelPath = FilePath
'import data from excel
Call DoCmd.TransferSpreadsheet(acImport, acSpreadsheetTypeExcel12, "Students", strExcelPath, True, "A1:L9000")

On Erro GoTo ErrorHanMsg1
MsgBox "Import Successful", vbInformation

Exit Sub
'This comes before End Sub or End Function Statement
ErrorHanMsg1:
MsgBox "Import Successful", vbInformation


End Sub

Not sure where I am going on wrong?

 

[Minty]

Shouldn't this
strExcelPath = FilePath

Be
strExcelPath = Me.FilePath

 

[Access_Help]

Shouldn't this
strExcelPath = FilePath

Be
strExcelPath = Me.FilePath

changed, but with no difference,

 

[arnelgp]

will this make a difference by changing:

If .Show = True Then
'Loop through each file selected and add it to the list box.
Me.FilePath.Value = .SelectedItems.Item(1)


to:

If .Show = True Then
'Loop through each file selected and add it to the list box.
Me.FilePath.Value = .SelectedItems(1)