求助VBA代码

ppp153

根据设定条件，将符合条件的工作表内的数据拷贝到汇总里{求代码}在此先谢谢各位了!
根据条件，将符合条件的工作表内的数据拷贝到汇总.rar (29.16 KB, 下载次数: 9)

2018-5-30 23:17 上传

点击文件名下载附件

opiona

1.     Set SH1 = Sheets("汇总")
   
2.     SH1.Range("E2:S65536").ClearContents
   
3.    
   
4.     Str_coon = "HDR=yes';Data Source =" & ThisWorkbook.FullName     '//OFFICE2003，2007 通用
   
5.     For I = 1 To SH1.Range("B65536").End(3).Row
   
6.         Set SH = Worksheets(SH1.Cells(I, 2).Value)
   
7.         StrSQL = "SELECT [1],[2],[3],[4],[5],[6],[7],[8],[9],[10],[11],[12],[13],[14]"
   
8.         StrSQL = StrSQL & ",'" & SH.Name & "' AS 工作表"
   
9.         StrSQL = StrSQL & " FROM [" & SH.Name & "$E:R]"
   
10.         StrSQL = StrSQL & " WHERE NOT [1] IS NULL"
    
11.         SQLARR = GET_SQL_To_Arr(StrSQL, Str_coon, False)
    
12.         LASTROW = SH1.Range("E65536").End(3).Row + 1
    
13.         SH1.Range("E" & LASTROW).Resize(UBound(SQLARR, 1) + 1, UBound(SQLARR, 2) + 1) = SQLARR
    
14.     Next

复制代码

opiona

根据条件，将符合条件的工作表内的数据拷贝到汇总.rar (45.51 KB, 下载次数: 11)

2018-6-3 14:31 上传

点击文件名下载附件

ppp153

opiona 发表于 2018-6-3 14:31

谢谢你的帮助，解决了我的问题,万分感谢