将Access表导入到Excel时找不到可安装的ISAM

Question

我有一个将Access表导入到MS Office Excel的模块。 该模块已经实施了将近6个月，并且运行良好，但是昨天突然该模块开始发出错误消息“外部表未采用预期格式”

我已经通过该站点搜索了答案，发现对于Excel 2007，我必须使用语法“ Excel 12.0”而不是“ Excel 8.0”。 我更改了脚本并收到了新的错误消息：“找不到可安装的ISAM”（下面的代码）

其他信息：我尝试打开创建的Excel文件并收到警告消息：
“您尝试打开的文件'bppdan.xls'的格式与文件扩展名指定的格式不同。在打开文件之前，请确保该文件未损坏且来自受信任的来源。要打开吗？现在是文件吗？”

所以...我决定修改代码（如下所示），但没有收到错误消息“外部表不是预期格式”或“找不到可安装的ISAM”，我真的很想知道导致这两个错误的原因信息

我真的需要你的帮助

(In VB 6 Application) In menu: Project -> References, I checked the option "Microsoft Excel 12.0 Object Library"

此代码生成“外部表不是预期格式”

    Dim dbDest As Database

    FName = ExcelApp.GetSaveAsFilename(, "Excel (*.xls),*.xls", , "Save to Excel")
    If FName = False Then Exit Sub
    Set dbDest = OpenDatabase(FName, False, False, "Excel 8.0;HDR=NO;")

此代码生成“找不到可安装的ISAM”

    Dim dbDest As Database

    FName = ExcelApp.GetSaveAsFilename(, "Excel (*.xls),*.xls", , "Save to Excel")
    If FName = False Then Exit Sub
    Set dbDest = OpenDatabase(FName, False, False, "Excel 12.0;HDR=NO;")

我已经修改了代码：

    Dim dbDest As Database

    FName = ExcelApp.GetSaveAsFilename(, "Excel (*.xls),*.xls", , "Save to Excel")
    If FName = False Then Exit Sub
    Set dbDest = OpenDatabase("C:\Users\administrator\Desktop\my.xls", False, False, "Excel 8.0;HDR=NO;")

Answer 1

最后，我们的高级开发人员拥有解决方案（yippie！），这是她的工作：

1. 她修改了准备工作表的代码，并添加了文件格式
   所以代码从

Set ExcelWkb = ExcelApp.Workbooks.Add
ExcelWkb.SaveAs FName

变成

Set ExcelWkb = ExcelApp.Workbooks.Add
ExcelWkb.SaveAs FName , xlExcel5

1. 她修改了用于连接的代码，因此代码从

Set dbDest = OpenDatabase(FName, False, False, "Excel 8.0;HDR=NO;")

变成

Set dbDest = OpenDatabase(FName, False, False, "Excel 5.0;" )