代码运行到一半表格对象消失可能是什么原因？

木子..

编写了个批量提取文件名的宏，但是运行到一半的时候表格对象会消失，然后后面针对表格的操作就无法生效，但是我调试步进一行一行的运行就没有什么问题，不知道是什么原因造成的。
excel版本2013

vbee

1. Sub GetFiles(ByVal Path)
   
2.    
   
3.     Set fso = CreateObject("scripting.filesystemobject")
   
4.     Set ff = fso.getfolder(Path)
   
5.    
   
6.     For Each f In ff.Files
   
7.     If fso.GetExtensionName(f) Like "xls*" Then
   
8.         Set WB = GetObject(f)
   
9.         'WB.Windows.Visible = False
   
10.         r = ThisWorkbook.Sheets(1).Range("a65535").End(xlUp).Row + 1
    
11.         ThisWorkbook.Sheets(1).Cells(r, 1) = f '文件路径
    
12.         
    
13.         Nextcol = 1
    
14.         For Each SH In WB.Sheets
    
15.             Nextcol = Nextcol + 1
    
16.             ThisWorkbook.Sheets(1).Cells(r, Nextcol) = SH.Name
    
17.         Next
    
18.         
    
19.         SheetsCount = SheetsCount + 1
    
20.         
    
21.         
    
22.         FilesCount = FilesCount + 1
    
23.         Workbooks(f.Name).Close False
    
24.     End If
    
25.     Next f
    
26.    
    
27.     For Each Fd In ff.subfolders
    
28.         GetFiles (Fd)
    
29.     Next Fd
    
30.    
    
31.    
    
32.     Set WB = Nothing
    
33.    
    
34.    
    
35.    
    
36. End Sub

复制代码

vbee

考虑2个问题：
1.非EXCEL文件
2.Range 所属