导入附加 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)"

然后在导入您的电子表格后（作为表 Import，正如您已经完成的那样），获取 Import 表中的列名，并将它们放入插入语句中：

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"