Question

我已经在几个论坛中搜索过并找到了类似的问题，但不是我的具体问题。

我有一个宏将活动工作簿保存到特定用户的文件夹，并将日期的xlsx版本保存在子文件夹中。我的宏启用工作簿由办公室和远程员工使用。办公室员工使用此宏来保存＆amp;将工作簿存档到他们的文件夹，直到上周，使用VPN的远程员工也没有问题。

但是，在过去几天中，使用VPN的远程员工收到了run time error '1004': The specified dimensions are not valid for the current chart type之类的错误，并且代码在最后的ActiveWorkbook.SaveAs行上挂起。为什么.SaveAs问题会出现此错误？我不知所措。

MainPath = "O:\Revenue Management\Centralized Revenue Management Service\CRMS Hotels\"
sPathSeek = MainPath & strPropNo & "*"
sFile = Dir(sPathSeek, vbDirectory)
sFileCheck = MainPath & sFile & "\Strategy Pack"
sBuildHist = MainPath & sFile & "\Strategy Pack\" & year1 & "\"
filePath = MainPath & sFile & "\Strategy Pack\" & propNo & " Strategy Pack.xlsm"
histPath = MainPath & sFile & "\Strategy Pack\" & year1 & "\" & propNo & " Strategy Pack " & STRdate & ".xlsx"
iLength = Len(Dir(sFileCheck, vbDirectory))
iLength2 = Len(Dir(sBuildHist, vbDirectory))

If iLength = 0 Then
MkDir (sFileCheck)
End If

If iLength2 = 0 Then
MkDir (sBuildHist)
End If

'Save Master Workbook
Application.DisplayAlerts = False
ActiveWorkbook.SaveAs FileName:=filePath,

FileFormat:=xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False

我试图保存的文件也是.xlsm文件。我尝试删除所有图表。我尝试重新保存主文件。

_{值得注意的是，在这一天开始发生的同一天，我的VPN访问权限将无法登录，直到我们的系统管理员解锁它（这是第一次）}

VBA运行时间＆＃39; 1004＆＃39;通过VPN连接时出错

0 个答案: