如果 Excel_Default_Path 设置为 C:\ProjectOutput,则以下代码可以完美运行。但是,如果 Excel_Default_Path 设置为 C:\Users\Me\ProjectOutput 它会失败并显示 1004 错误 。此外,在任何一种情况下,appExcel 对象从同一目录读取都没有问题。
DefaultOutputFilename 设置为 AA1FS-7_VE8GUS_ED.xls 并且 fmt 获得正确的类型。只是将它放入用户目录是一个问题。

多一点信息。如果我退出 VB 应用程序并选择打开的 Excel 应用程序。我可以直接将修改后的工作簿保存到 C:\Users\Me\ProjectOutput 中,完全没有问题。

另外,这个错误发生在我的机器上,以及另一台机器上。另一台机器Excel_Default_Path设置为C:\Users\JSS\ProjectOutput

    Dim fmt As Excel.XlFileFormat = GetExcelFileFormatForExtension(fi)
    appExcel.ActiveWorkbook.SaveAs(CStr(Excel_Default_Path & "\" & DefaultOutputFileName), fmt)

最佳答案

我已经解决了这个问题。 Excel_Default_Path 实际上在末尾有一个尾随的“\”。所以这导致了 1004 错误。从变量中删除\修复了它。

关于vb.net - 尝试将 .SaveAs 用于 C :\Users\Me\ProjectOutput 时出现错误 1004,我们在Stack Overflow上找到一个类似的问题:https://stackoverflow.com/questions/38042355/

10-10 13:39