macros将单张复制到工作簿后停止一张
我有一个工作簿在哪里加速计算（长话短说）我创build了一个macros，将三个表单复制到另一个文件，然后另一个macros将它们复制回来。
要复制的macros工作正常，但是在复制一个工作表后复制回来的macros。
我在StackOverflow内search，发现了一些类似的问题，但找不到一个有效的答案。 有一篇文章认为它与Office版本有关，另一篇文章则涉及Shift键问题。
这里是代码：
Application.Calculation = xlCalculateManual Application.ScreenUpdating = False Application.DisplayAlerts = True Application.EnableEvents = False ' ' Set up the workbooks ' Set ThisWkb = ThisWorkbook Fname = Application.GetOpenFilename( _ fileFilter:="Excel Macro Files, *.xlsm", _ Title:="Select the Storage File", _ MultiSelect:=False) Set StorageWbk = Workbooks.Open(Fname) ' MsgBox ("Beginning process - please click ok to any macro warning - you will see a confirmation when complete") StorageWbk.Sheets("Sh A").Copy After:=ThisWkb.Sheets(ThisWkb.Sheets.Count) StorageWbk.Sheets("Sh B").Copy After:=ThisWkb.Sheets(ThisWkb.Sheets.Count) StorageWbk.Sheets("Sh C").Copy After:=ThisWkb.Sheets(ThisWkb.Sheets.Count) StorageWbk.Close 我有时会发现，如果我再删除新的工作表并再次运行macros，它有时会工作并读取所有三张表，但有时也不会。
任何帮助是极大的赞赏。
引用YowE3K和nbayly直接从这里的评论给予正确的答案（我不得不寻找它）：
取消隐藏您的隐藏表格，然后使用以下命令一次复制三个链接：
StorageWbk.Sheets(Array("Sh A", "Sh B", "Sh C")).Copy After:=ThisWkb.Sheets(ThisWkb.Sheets.Count)