Question

我们正在使用新框来运行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配置吗？或者更多地与虚拟服务器的配置及其与网络的关系有关吗？

Answer 1

有同样的问题。

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

将文件本地导出到任何目录
使用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

仅当从虚拟服务器将非XL文件保存到网络时，才会出现Excel VBA错误

1 个答案: