我一直试图将文件保存到两个不同的路径,但无法理解这段代码的错误。用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