如何用VBA批量汇总同文件夹下多个工作薄数据

cai2532

zhaogang1960 发表于 2016-1-15 20:00
ADO法速度很快，请参考：

请问如果工作表名是中文会出错，要怎么修复代码呢？

cai2532

这个就是我想要的，谢谢！

cai2532

zhaogang1960 发表于 2016-1-15 20:00
ADO法速度很快，请参考：

请问高手，用您的这sql代码导入有文本类的数字就变成空的了，这个要怎么解决？

h2016

学习一下学习一下

ykcbf1100

练手。。。。

ykcbf1100

练手。。。。

1. Sub ykcbf()  '//2024.5.14
   
2.     Set fso = CreateObject("scripting.filesystemobject")
   
3.     Application.ScreenUpdating = False
   
4.     Set sh = ThisWorkbook.Sheets("数据汇总")
   
5.     p = ThisWorkbook.Path & ""
   
6.     For Each f In fso.GetFolder(p).Files
   
7.         If InStr(f.Name, ThisWorkbook.Name) = 0 Then
   
8.             fn = fso.GetBaseName(f)
   
9.             n = n + 1
   
10.             Set wb = Workbooks.Open(f, 0)
    
11.             With wb.Sheets(1)
    
12.                 r1 = .Cells(Rows.Count, 2).End(3).Row
    
13.                 If n = 1 Then
    
14.                     .Cells.Copy sh.[a1]
    
15.                 Else
    
16.                   r = sh.Cells(Rows.Count, 2).End(3).Offset(1).Row
    
17.                   .Rows(4 & ":" & r1).Cells.Copy sh.Cells(r, 1)
    
18.                 End If
    
19.             End With
    
20.             wb.Close False
    
21.         End If
    
22.     Next f
    
23.     sh.Activate
    
24.     Application.ScreenUpdating = True
    
25.     MsgBox "OK！"
    
26. End Sub
    

复制代码

jjmysjg

bajifeng 发表于 2016-1-15 20:26
>>>>>>>>>>>>>>>>>

结果为什么是空呢？