Excel VBA：将多个工作表导出到多个Excel文件

Question

我有一个包含2张纸的excel报告，当我启动宏时需要导出以分隔单独的excel文件。目前，它只会导出第一张纸，并在第二张纸上给我一个错误，但不确定我在做什么错。

我的工作簿中的2个标签是“经理代表直接销售”和“合作伙伴经销商渠道销售”

我的宏在下面的代码上方还有其他行，用于更新流入最终报告标签的标签，这些标签是我要分别导出到文件中的2个标签。

任何指导都将不胜感激。当前，该宏运行第一个导出，但在第二个导出上失败。

'excel read only
Application.DisplayAlerts = False
Sheets("Direct Sales by Mgr Rep").Copy
ActiveWorkbook.SaveAs Filename:="MY FILE", FileFormat:=51, CreateBackup:=False

'excel read only
Application.DisplayAlerts = False
Sheets("Dealer Channel Sales by Partnr").Copy
ActiveWorkbook.SaveAs Filename:="MYFILE", FileFormat:=51, CreateBackup:=False

End Sub