1

我们正在使用一个新盒子来运行我们的VBA

将非 excel 文件从 保存Excel到网络时出现一些意外错误。

在一个程序中，它在以下情况下失败

.SaveAs "\\fileserve\department$\x\yyy\xxx\" & RepOperName & FileName & strdate & ".msg", olMSG

显示运行时错误“-2147287008(80030020)”

在另一种情况下，以下内容只是停在Excel.ActiveSheet.ExportAsFixedFormat...一条警告说文档未保存 - 这些是它试图保存的 pdf 文档：

Dim FullPath_pdf As String
FullPath_pdf = "\\fileserve\department$\x\Statistics\Reporting\zzz\yyy\kkk\Daily Summary.pdf"
Excel.ActiveSheet.ExportAsFixedFormat _
    Type:=xlTypePDF, _
    FileName:=FullPath_pdf, _
    Quality:=xlQualityStandard, _
    IncludeDocProperties:=True, _
    IgnorePrintAreas:=False, _
    From:=1, _
    To:=2, _
    OpenAfterPublish:=False

这可能与服务器上 Excel 的配置有关吗？
还是会更多地与虚拟服务器的配置及其与网络的关系有关？

4

1 回答 1

2

有同样的问题。

我发现我无法从 Excel 将非 xls 文件直接保存到网络路径。所以，我的工作是：

  1. 将文件本地导出到任何目录
  2. 使用ROBOCOPY（因为您使用的是 Windows 7）通过网络传输文件

那应该行得通。另一个技巧是让 Excel 在创建新文件之前删除旧文件。你可以使用这样的宏：

Sub DeleteExample()
'You can use this to delete all xml? files in the folder Test
    On Error Resume Next
    Kill "C:\Users\Neo\*.xml*"
    On Error GoTo 0
End Sub
于 2016-07-29T02:22:56.743 回答