我正在创建一个access应用程序,其中一个步骤是将数据从excel电子表格导入数据库。但是,如果有不同类型的值(如字符串、数字),access只导入一种类型,那么一切都很好。
excel电子表格中有一列包含以下数据
:
当我使用以下访问代码时,只有本例中的数字从工作表中提取。其他像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
我该如何着手解决这个问题?
谢谢你的帮助
最佳答案
为什么不传送电子表格?
DoCmd.TransferSpreadsheet acImport, acSpreadsheetTypeExcel12Xml, _
"SheetX", "C:\docs\XL.xlsx", True, "Sheet3$"
否则,您可能需要篡改注册表。
关于database - Access数据库-即使IMEX = 1,从Excel工作表导入数据也无法正常工作,我们在Stack Overflow上找到一个类似的问题:https://stackoverflow.com/questions/8810536/