将 Excel sheet 导入 access

Question

我正在尝试将数据从 Excel sheet 导入访问 table。我正在尝试自动化数据操作过程。所以我可以通过这段代码读取数据：

Private Sub ctlOpen_Click()
    Set f = Application.FileDialog(3)
    f.AllowMultiSelect = False

  If f.Show Then
     strExcelPath = f.SelectedItems(1)
  End If
  Call DoCmd.TransferSpreadsheet(acImport, _
    acSpreadsheetTypeExcel8, "InitialTable", strExcelPath, _
    True)
End Sub

但是我得到一个错误。它创建了另一个名为 table 的导入错误，指出 'Type Conversion Failure' 后跟列名和行号。

问题是我的 excel sheet 上有一个名为 ETA 的专栏，它有一个日期。该列中的大多数字段将具有 month/date 之类的（'1/20' 或 1/17'），但某些字段具有诸如 'BAD' 或 'CP' 之类的代码。我的部分数据操作是将 'BAD' 的所有内容更改为从今天开始的一周，以及 'CP' 的不同公式。

所以我的问题是：有没有一种方法可以在 DoCmd.TransferSpreadsheet() 或任何替代方法中将所有内容都读取为字符串？

Answer 1

您可以手动将所有列的 table 导入为字符串，并将导入和代码调用保存为 DoCmd.RunSavedImportExport "Your import name"

将 Excel sheet 导入 access

Importing Excel sheet into access

ms-access

vba

ms-access-2010