Save As方法为某些用户而非其他用户创建运行时错误

Question

我创建了一个命令按钮，根据电子表格中的信息自动将工作簿保存到两个文件路径之一。这对我来说很好，但是我的同事每次都会遇到以下错误。

该方法是扩展文件路径并在此实例中添加\ 0BA1700（每次都会更改）。这不会发生在我的计算机上，代码可以正常工作。这是子：

Private Sub CommandButton21_Click()
Dim pathUnder As String
Dim pathOver As String
Dim file As String

file = Range("D2").Value
pathUnder = "G:\Technical Services\LARGE CORPORATE UW\Full Insurance\FI Quote Spreadsheets (below 500)\"
pathOver = "G:\Technical Services\LARGE CORPORATE UW\Full Insurance\FI Quote Spreadsheets (above 500)\"

If Range("D4").Value = "" Or Range("D2").Value = "" Then
MsgBox ("Save Failed. Please ensure there are values in both cells D2 and D4")
Else
If Range("D4").Value >= 500 Then
ActiveWorkbook.SaveAs fileName:=pathOver & file & ".xlsm", FileFormat:=52
Else
ActiveWorkbook.SaveAs fileName:=pathUnder & file & ".xlsm", FileFormat:=52
End If
End If

End Sub

非常感谢。

Answer 1

也许是某种例外？您确定目前没有使用此文件吗？也许你自己的程序呢？

Answer 2

解决。我的同事的计算机没有将G驱动器映射到正确的服务器，因此重新映射它并且现在工作正常。