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！）这就是她的所作所为：

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

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

变

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

她修改了连接代码所以代码从

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

变为

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

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

1 个答案: