Question

所以我一直在尝试将这个VBA脚本的最后一部分放在一起，并且与数据库的连接给我带来了麻烦。数据库打开但是我收到后错误could not find installable isam我试图注册DLL，没有运气，我在连接中尝试了不同的版本，没有运气。

此时我不知所措。所有这一切都是将Excel工作表中的范围导入Access数据库。如果有人有理由给我这个错误，请帮忙。

Sub Open_Database()
Dim appAccess As Object
Dim pathToDatabase As String
    pathToDatabase = Environ("USERPROFILE") + "\Desktop\FuturesDemandScheduling - Copy.mdb"
Set appAccess = CreateObject("Access.Application")
    appAccess.OpenCurrentDatabase pathToDatabase, True, "password"
    Windows("FuturesFIle-2014.xlsx").Activate
    appAccess.DoCmd.TransferSpreadsheet acImport, _
    acSpreadsheetTypeExcel3, _
    "futuresData", _
    Application.ActiveWorkbook.FullName, _
    False, _
    "A2:G491"


    appAccess.CloseCurrentDatabase
    appAccess.Quit
Set appAccess = Nothing

End Sub

Answer 1

我怀疑问题是您将Excel数据导入表格的方式

由于您说的是excel is 2010的版本，并且您在代码中使用了.xlsx文件扩展名

尝试

acSpreadsheetTypeExcel12Xml代替acSpreadsheetTypeExcel3

acSpreadsheetTypeExcel3 支持 Excel 3.0 格式

acSpreadsheetTypeExcel12Xml 支持 Excel 2010

Complete list here

将Excel范围导入Access ISAM错误

1 个答案: