Как добавить лист Excel в существующие таблицы в Access в VB?

Question

Я создал пользовательскую форму для импорта одного листа Excel в конкретную таблицу Excel. Я сделал это точно из учебника YouTube шаг за шагом. Тем не менее, он сталкивается с

«Ошибка компиляции: метод данных не найден» для Me.txtFileName

Вот мой код:

Private Sub btnBrowse_Click()
    Dim diag As Office.FileDialog
    Dim item As Variant

    Set diag = Application.FileDialog(msoFileDialogFilePicker)
    diag.AllowMultiSelect = False
    diag.Title = "Please select an Excel Spreadsheet"
    diag.Filters.Clear
    diag.Filters.Add "Excel Spreadsheet", "*.xls, *.xlsx"
    If diag.Show Then
        For Each item In diag.SelectedItems
            Me.txtFileName = item
        Next
    End If
End Sub

Answer 1

Я думаю, что строка Me.txtFileName = item не имеет никакого смысла в вашем коде.

Вы даже не разрешали множественный выбор, поэтому цикл в конце был Бессмысленным. Я немного исправил это. Теперь вы увидите msgbox после выбора нескольких файлов.

Вы можете изменить эту строку Msgbox на любое место, где хотите распечатать имена файлов, выбранные в Diag.

Private Sub btnBrowse_Click()
    Dim diag As Office.FileDialog
    Dim item As Variant

    Set diag = Application.FileDialog(msoFileDialogFilePicker)
    diag.AllowMultiSelect = False
    diag.Title = "Please select an Excel Spreadsheet"
    diag.Filters.Clear
    diag.Filters.Add "Excel Spreadsheet", "*.xls, *.xlsx"
    diag.AllowMultiSelect = True
    If diag.Show Then
        For Each item In diag.SelectedItems
            MsgBox item
        Next
    End If
End Sub

Для начала, когда появится диалоговое окно, выберите только 2 файла.