AccessVBAでExcelファイルをインポートし、テーブルに追加する

Private Sub cmd_インポート_Click()

    '変数定義

    Dim IntRet As Integer        'ダイアログ用変数
    Dim GetFileName As String    'フルパスの値
    Dim addTableName As String
    
    addTableName = "T_テーブル名" 'インポートしたデータを追加するテーブル名
    
    With Application.FileDialog(msoFileDialogOpen)

        'ダイアログのタイトルを設定
        .Title = "インポートするExcelファイルを選択"
        'ファイルの種類を設定
        .Filters.Clear
        .Filters.Add "Microsoft Office Excelファイル", "*.xls,*.csv,*.xlsx"
        '複数ファイルを許可しない
        .AllowMultiSelect = False
        '初期パスを設定
        .InitialFileName = CurrentProject.Path
        'ダイアログを表示
        IntRet = .Show
        
        If IntRet <> 0 Then
            'ファイルが選択されたとき
            'そのフルパスを返り値に設定
            GetFileName = Trim(.SelectedItems.Item(1))
        Else
            'ファイルが選択されなければキャンセル"
            GetFileName = ""
            MsgBox "キャンセルされました"
            End
            
        End If
            
    End With

    MsgBox GetFileName

    DoCmd.TransferSpreadsheet acImport, , addTableName, GetFileName, True


End Sub