Как вставить все записи в таблицу с помощью VB в Access - PullRequest
0 голосов
/ 30 июня 2019

Я пытаюсь добавить файл Excel, путь которого я беру из элемента управления с именем txtFileName в текущей форме; Я пытаюсь добавить его в таблицу Load Report 1.

Оператор SQL вызывает синтаксическую ошибку:

Неполная статья

Мой код выглядит следующим образом:

Private Sub Import_Click()

    Dim FSO As New FileSystemObject, fileName As String, tableName As String, item As Variant, diag As Office.FileDialog

    Set diag = Application.FileDialog(msoFileDialogFilePicker)

    For Each item In diag.SelectedItems
        Me.txtFileName = item
    Next

    If FSO.FileExists(Me.txtFileName) Then
        DoCmd.RunSQL ("INSERT INTO [Load Report1].*,Select Me.txtFileName.*,From Me.txtFileName.*")
    Else
        MsgBox "File Not Found!"
    End If

End Sub
Добро пожаловать на сайт PullRequest, где вы можете задавать вопросы и получать ответы от других членов сообщества.
...