将不带标题的 MS Excel 电子表格导入现有的 MS Access 表

【问题标题】：Importing an MS Excel spreadsheet without header into an existing MS Access Table将不带标题的 MS Excel 电子表格导入现有的 MS Access 表
【发布时间】：2018-08-16 17:52:29
【问题描述】：

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

目标表中不存在字段“F1”。

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

TIA 大卫·福尼尔

【问题讨论】：

标签： excel ms-access-2013

【解决方案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

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

干杯

【讨论】：