0

互联网上有很多这样的问题，但没有一个能引导我找到解决方案。希望我能在这里找到一些解脱。

我有一个用户社区，他们目前正在从 Windows 7 迁移到 Windows 10，随之而来的是从 Office 2010 迁移到 Office 365。由于这次迁移，我的一些（不是全部）用户有开始遇到在 Win7/Excel 2010 中运行良好的宏的问题，但现在在 Win10/Excel365 中引发错误。失败的特定代码行是application.saveas语句：

ActiveWorkbook.SaveAs FileName:=myFileName, FileFormat:=xlOpenXMLWorkbookMacroEnabled

我已经测试和/或检查了以下内容：

  • 整个路径名是正确的，即其中没有意外字符，它指向一个有效的联网位置，没有拼写错误等。这绝对不是问题。此外，使用的路径是完全限定的网络路径（使用计算机名称本身，而不是盘符）。而且，当我将路径切换到 C:\Users<username>\filename 时，遇到问题的用户没有得到缓解

  • 换成;; FileFormat:=xlOpenXMLWorkbookMacroEnabled_ FileFormat:=52没有骰子

  • 为正确填写的另存为对话框交换整行代码。在执行命令中产生相同的错误。下面的代码：

    With Application.FileDialog(msoFileDialogSaveAs)
     .AllowMultiSelect = False
     .FilterIndex = 2  '2 = xlsm
     .InitialFileName = myFileName
     .InitialView = msoFileDialogViewDetails
     If .Show = -1 Then strFolder = .SelectedItems(1) Else Exit Sub
     .Execute ''''Run time error 10004005 "Document not saved" error happens here
 End With

  • 检查用户的加载项；这里没有发现任何有趣的东西。他们的加载项与我不同，但我让他们禁用了所有加载项，但这仍然不起作用

  • 遍历用户的整个信任中心，并尽我所能将其与我自己的（我的机器工作正常）对齐。我们发现了一个我们认为值得更改的设置，但它没有效果

  • 我确信到目前为止遇到问题的用户（像我一样）收到了全新的计算机，并且安装了新的 OS/Office 版本。所以我已经排除了这个原因。

  • 我已经在关闭并打开图形加速的情况下成功运行了宏，从而排除了这个问题（这在我第一次升级时导致了其他 Excel 问题）。

社区对我可能考虑或尝试的其他任何想法将不胜感激，因为此时我完全不知道接下来要尝试什么。

谢谢！

4

0 回答 0