导入Access表到Excel时找不到可安装ISAM(Could not find installa

我有一个导入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;")

最后，我们的高级开发人员提供解决方案（开心辞典！）这是她做什么：