Я пытаюсь добавить файл 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