Импорт append vba MS-Access

Question

Нужна помощь с Access VBA Я пытаюсь импортировать таблицы из Excel в доступ. После его импорта он будет добавлен в другую таблицу, и таблица импорта будет удалена, после чего я смогу импортировать новую таблицу. Однако у меня есть ошибка при добавлении мне нужно добавить всю таблицу, потому что я не всегда буду знать заголовок из таблицы и сколько их. Пожалуйста, помогите. Ниже приведен код, над которым я работал.

Модуль-

Option Compare Database 

Function selectFile() 
Dim fd As FileDialog, fileName As String 

On Error GoTo ErrorHandler 

Set fd = Application.FileDialog(msoFileDialogFilePicker) 

fd.AllowMultiSelect = False 

If fd.Show = True Then 
    If fd.SelectedItems(1) <> vbNullString Then 
     fileName = fd.SelectedItems(1) 
    End If 
Else 
    'Exit code if no file is selected 
    End 
End If 

'Return Selected FileName 
selectFile = fileName 

Set fd = Nothing 

Exit Function 

ErrorHandler: 
Set fd = Nothing 
MsgBox "Error " & Err & ": " & Error(Err) 

End Function 

VBA -

Private Sub cmdImportNoDelete_Click() 
'Unset warnings 
DoCmd.SetWarnings False 

'Import spreadsheet 
DoCmd.TransferSpreadsheet acImport, acSpreadsheetTypeExcel12Xml, "Import", selectFile, True 

'SQL append statement, Needs to append entire table (must be able to append multiply table with different headers 
DoCmd.RunSQL "INSERT INTO Tbl_ImportDump * FROM Import" 

'SQL delete Table 
DoCmd.DeleteObject acTable, "Import" 


DoCmd.SetWarnings True 
End Sub 

Answer 1

Tbl_ImportDump должен существовать. Если это не уже, создайте его:

DoCmd.RunSQL _ 
    "CREATE TABLE Tbl_ImportDump (Col1 Col1DataType, Col2 Col2DataType, etc)" 

Затем после импорта таблицу (в виде таблицы импорта, как вы уже сделали), получить имена столбцов в таблице импорта, и поместить их в вкладышем заявление:

dim ImportCols as String: ImportCols = "" 
dim ii as long 
dim rs as Recordset 

rs.OpenRecordset "SELECT TOP 1 * FROM Import" 
for ii = 0 to 2 
    ImportCols = ImportCols & "," & rs.Fields(0).Name 
next 
importCols = mid(importCols, 2) 

DoCmd.RunSQL _ 
    "INSERT INTO Tbl_ImportDump (Col1, Col2, Col3) " & _ 
    "SELECT " & importCols & " FROM Import"