如何将工作表A保存到文件夹A和工作表B到文件夹B？

如何将VBA中的Sheet1保存到文件夹A和Sheet2中？
在我的工作簿中，我有4个工作表C后端和工作表D是接口。

文件夹path是：

• C:\Main Folder\Folder A\

• C:\Main Folder\Folder B\

   FilePath1 = "C:\Main Folder\Folder A\" FilePath2 = "C:\Main Folder\Folder B\" Sheets("Sheet1").Copy Filename = ControlNumber.Value ActiveWorkbook.SaveCopyAs FilePath1 & "\" & Filename & ".xls" ActiveWorkbook.Close savechanges:=False Sheets("Sheet2").Copy Filename = ControlNumber.Value ActiveWorkbook.SaveCopyAs FilePath2 & "\" & Filename & ".xls" 

Answer 1

你已经包括path分隔符两次，即在文件path以及保存文件。 从文件名中删除“/”或保存

 FilePath1 = "C:\Main Folder\Folder A\" ActiveWorkbook.SaveCopyAs FilePath1 & "\" & Filename & ".xls" 

Answer 2

你的代码对我来说工作得很好

 FilePath1 = "C:\Main Folder\Folder A\" FilePath2 = "C:\Main Folder\Folder B\" Sheets("Sheet1").Copy Filename = ControlNumber.Value ActiveWorkbook.SaveAs FilePath1 & Filename & ".xls" ActiveWorkbook.Close savechanges:=False Sheets("Sheet2").Copy Filename = ControlNumber.Value ActiveWorkbook.SaveCopyAs FilePath2 & Filename & ".xls" ActiveWorkbook.Close savechanges:=False 

你会得到什么错误？

为了testing我设置：

 Dim ControlNumber As Range Set ControlNumber = Sheet1.Cells(1, 1) Dim FilePath1 As String, FilePath2 As String, Filename As String 

编辑

 On Error Resume Next MkDir Environ("USERPROFILE") & "\Main Folder" MkDir Environ("USERPROFILE") & "\Main Folder\Folder A\" MkDir Environ("USERPROFILE") & "\Main Folder\Folder B\" On Error GoTo 0 FilePath1 = Environ("USERPROFILE") & "\Main Folder\Folder A\" FilePath2 = Environ("USERPROFILE") & "\Main Folder\Folder B\" Sheets("Sheet1").Copy Filename = ControlNumber.Value ActiveWorkbook.SaveAs FilePath1 & Filename & ".xls" ActiveWorkbook.Close savechanges:=False Sheets("Sheet2").Copy Filename = ControlNumber.Value ActiveWorkbook.SaveCopyAs FilePath2 & Filename & ".xls" ActiveWorkbook.Close savechanges:=False