尝试将文件保存到硬盘时出错

Question

使用下面的代码，objwkb.close 对我有用，

Set rs= currentDB. Openrecordset("dynamic_query", opensnapshot)

Set objxl = CreateObject("Excel.Application")
Set objwkb = objxl.workbook.add

With objwkb.Worksheets(1)
   .cells(1,1).copyfromrecordset rs
End with

 objwkb.saveas filename:="h:\aaa\bb\output.xls"

Objxl.quit
Set objxl = nothing

下面的行可以代替 .saveas 文件，但这迫使我手动输入文件和路径。

Objwkb.close savechanges:=True

我收到错误 1004，这意味着无法执行 saveas 方法。

Answer 1

错误 1004 可能表示路径中存在错误。你确定 h: aa b\ 存在吗？

此外，您还需要指定文件格式：

    objwkb.SaveAs Filename:="C:\temp\output.xlsx", FileFormat:=xlOpenXMLWorkbook

或

    objwkb.SaveAs Filename:="C:\temp\output.xls", FileFormat:=xlWorkbookNormal