Access数据库 – 从Excel导入数据表即使IMEX = 1也不能正常工作

我正在创build一个ACCESS应用程序,其中一个步骤是将数据从Excel电子表格导入数据库。 一切都很好,但是,如果有不同types的值(即string,数字),ACCESS只会导入一种types。

  1. Excel电子表格有一个包含以下数据的列

在这里输入图像说明

当我使用下面的ACCESS代码时,只有在这种情况下的数字从表中提取。 其他像CCH不提取。 如果让我们说第一个单元格有CCH作为它的价值,只有这些将被提取,数字不会:

Dim ConnectString As String ConnectString = "Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source=" & FilePath & ";" & "Extended Properties=""Excel 8.0;HDR=Yes;IMEX=1"";" objConnection.Open ConnectString objRecordset.Open "Select * FROM [Sheet1$]", objConnection, adOpenStatic, adLockOptimistic Do Until objRecordset.EOF Code = objRecordset.Fields.ITEM(0) ' ===== More code Here ==== ' Loop 

我该如何解决这个问题呢?

谢谢你的帮助

为什么不TransferSpreadsheet?

  DoCmd.TransferSpreadsheet acImport, acSpreadsheetTypeExcel12Xml, _ "SheetX", "C:\docs\XL.xlsx", True, "Sheet3$" 

否则,您可能需要篡改registry。