类worksheet的copy方法无效

Yanxi2021

是在看不出以下这段代码中WS.Copy After:=ThisWorkbook.Sheets(ThisWorkbook.Worksheets.Count)出错在哪里，请大神们帮忙看看。
要实现的功能是：自动打开某个文件夹中的excel文件，并将其中的某些工作表复制到当前工作簿里

1. Sub main_DownloadOtherSheets()
   
2. Dim dataExcel As Object, WB As Workbook, WS
   
3. Dim path$, mFilename$, FPath$
   
4. path = ThisWorkbook.Sheets("Config").[B1]   '获取母数据文件的路径，一般存于’Mengting Jiang‘文件夹中
   
5. mFilename = "Sourcing_FC_V7.7.xlsm"     '母文件名
   
6. FPath = path & "" & mFilename              '母文件全路径
   
7. Set dataExcel = CreateObject("Excel.application")
   
8. Set WB = dataExcel.Workbooks.Open(FPath, ReadOnly:=True)  '括号中path为你要操作文件的路径
   
9. Application.DisplayAlerts = False
   
10. For Each WS In WB.Worksheets
    
11.     If WS.Name <> "Note and Config" And WS.Name <> "DataSource" And WS.Name <> "INSTRUCTION" Then  '除<Note and Config>，<DataSource>等外，其余工作表均下载
    
12.         Debug.Print WS.Name
    
13.         WS.Copy After:=ThisWorkbook.Sheets(ThisWorkbook.Worksheets.Count)
    
14.         ActiveSheet.Name = WS.Name
    
15.     End If
    
16. Next
    
17. Application.DisplayAlerts = True
    
18. Set WS = Nothing
    
19. WB.Close savechanges:=False    '关闭文件并不保存
    
20. Set WB = Nothing

复制代码

ykcbf1100

不上传个附件？
单纯看代码，不一定能看出问题来。

liulang0808

没有附件，
报错以后是否可以选择调试，看看报错行代码对应的表格，是否可见，有无限制之类的

如果还有问题，建议上传模拟附件吧

Yanxi2021

上传了附件，请大神们帮忙瞧瞧。做了简单的处理，删除了数据内容，但不影响代码执行。
目标：将文件Sourcing_FC_V7.7.xlsm中的工作表复制到SourcingFC_V2.xlsm中。代码在SourcingFC_V2.xlsm里。