代码提示对象或with块变量未设置？

ylj518

汇总1，2两个excl工作表到汇总工作表中，出现提示，不知哪里有问题？

micch

close应该是写在if里面吧，if里面才打开book，if外面就没打开book

lsc900707

代码格式调整一下你就能发现问题了：

1. Sub fsotest()
   
2.     Dim wb As Workbook, hz As Worksheet, fso As Object, f, Fname, wks, hzs
   
3.     Set hz = Worksheets("总表")
   
4.     Set fso = CreateObject("scripting.filesystemobject")
   
5.     For Each f In fso.getfolder(ThisWorkbook.Path).Files
   
6.         If InStr(f.Name, ThisWorkbook.Name) = 0 Then
   
7.             Fname = f
   
8.             Set wb = GetObject(Fname)
   
9.             wks = wb.Sheets(1).Range("a1").Cells(Rows.Count, 1).End(xlUp).Row
   
10.             hzs = hz.Range("a1").Cells(Rows.Count, 1).End(xlUp).Row + 1
    
11.             wb.Sheets(1).Range("a2:c" & wks).Copy hz.Range("a" & hzs)
    
12.             wb.Close False
    
13.         End If
    
14.         Set wb = Nothing
    
15.     Next
    
16. End Sub

复制代码

quqiyuan

碰到  汇总.xlsm 不会执行if里面的代码，造成wb对象为空，所以出错

ylj518

原来如此，谢谢大家！