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

Question

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

文件夹路径是：

• 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

你的代码对我来说很好用这种方式

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

你得到了什么错误？

用于测试我设置：

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

Answer 2

您已包含路径分隔符两次，即在文件路径中以及在保存文件时。从文件名或保存时删除“/”

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