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

Question

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

文件夹路径为:

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

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

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