Excel VBA错误仅在将非XL文件保存到networking时才从虚拟服务器进行

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

将Excel非Excel文件保存到networking时，出现一些意外的错误。

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

 .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的configuration？
还是将更多的与虚拟服务器的configuration及其与networking的关系？

Answer 1

有同样的问题。

我发现我不能将非xls文件直接保存到Excel的networkingpath中。 所以，我的工作是：

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

这应该工作。 另一个技巧是让Excel在创build一个新文件之前删除旧文件。 你可以像这样使用macros：

 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