将不带标题的 MS Excel 电子表格导入到现有的 MS 访问表中

Question

>我有一个将文本文件导入现有访问表(列/字段命名(的过程。文本文件没有列标题。用户希望能够选择在转换后将同一文件导入到同一 Access 表中。当我使用 Docmd.TransferSpreadsheet 函数时，我收到一条错误消息

目标表中不存在字段"F1"。

有没有办法导入 Excel 文件，以便它不会尝试匹配两个应用程序之间的标头？

蒂亚 大卫·富尼耶

Answer 1

我最近也遇到了这个问题。我无法从 Access 中找到任何解决方案。所以我只使用 VBA 在 Excel 中打开文件并添加标题行。

以下是我的代码供参考。

Dim XL As Object
Set XL = CreateObject("Excel.Application")
With XL
.Visible = False
.DisplayAlerts = False
.Workbooks.open sFile 'sFile is your excel spreadsheet full file path 
Rows("1:1").Insert Shift:=xlDown
Range("A1") = "xxxxx" 'ColumnA header
Range("B1") = "xxxxx" 'ColumnB header
Range("C1") = "xxxxx" 'ColumnC header
''
''
'you can add as many column header you want
.ActiveWorkbook.Save True
.Quit
End With
Set XL = Nothing
'Now you can use docmd.transferspreadsheet
DoCmd.TransferSpreadsheet acImport, acSpreadsheetTypeExcel12Xml, "tblName", sFile, True

祝你好运。如果您有更好的方法，请告诉我。

干杯