将文件保存到多个路径

Question

我一直试图将文件保存到两个不同的路径，但无法理解这段代码的错误。用Google搜索并阅读最多，在代码中尝试了SaveCopyAs和什么。

两个路径中的第一个被保存，但是在第一个路径之后我得到了错误。

Run-time error 1004:

Method "save as" of Object'_Workbook' failed

Sub SaveAsTwoPaths()

Dim comps As VBIDE.VBComponents
Dim comp As VBIDE.VBComponent
Dim relPath As String
Dim relPath2 As String

relPath = thisWorkbook.Path & "\Topp 100\" & Range("C1") & ".xlsb"
relPath2 = "\\common\intranet\topp 100" & "\Topp 100\" & Range("C1") & ".xlsb"
Application.DisplayAlerts = False
Set comps = ActiveWorkbook.VBProject.VBComponents
For Each comp In comps
    Select Case comp.Type
        Case vbext_ct_StdModule, _
             vbext_ct_MSForm, _
             vbext_ct_ClassModule
                comps.Remove comp
        Case Else ' Worksheet, Workbook, etc.
            comp.CodeModule.DeleteLines 1, _
                comp.CodeModule.CountOfLines
    End Select
Next comp

' Save a new copy.
ActiveWorkbook.Protect Password:="xxxx", Windows:=False

ActiveWorkbook.SaveAs Filename:=relPath '~< gets saved
ActiveWorkbook.SaveAs Filename:=relPath2
End Sub