多工作簿中的某一个指定sheet内容汇总!

无语住了我

求助，求助，各位大神！


日常工作中，有多个工作簿（每次约100个）需要汇总，规则如下：


1. 待合并的工作簿全部在一个文件夹内，大约100个；
2. 每个工作簿的表格数都不一样，但需要汇总的表格，名称都一样【原料价格预测】
2. 需要汇总【原料价格预测】，除标题外数据都要，但每个工作簿的行数不固定。
3. 模拟表格如下（附件）
感谢，各位坛友！

LIUZHU

一个工作簿中有几个表，请问哪个需要汇总，还是都需要汇总？有些是空表，有些没表头，有些只有表头，很不规范。

无语住了我

LIUZHU 发表于 2024-6-15 10:54
一个工作簿中有几个表，请问哪个需要汇总，还是都需要汇总？有些是空表，有些没表头，有些只有表头，很不规 ...

感谢回复
1、工作簿表格数不确定（😓）
2、需要汇总的只有一个表格，表格名称"原料价格预测"，该表除去标题，其他表格的数据内容都要
3、其余表格不需要汇总

LIUZHU

其实汇总工作表的这个问题，Python比VBA擅长，Python不需要打开工作簿，而VBA或JS都需要打开工作簿

无语住了我

菜狗不会啊啊啊啊

一执成念

论坛上合并的代码太多了吧

ykcbf1100

附件供参考。。。

ykcbf1100

参与一下。。。

1. Sub ykcbf()  '//2024.6.15
   
2.     Application.ScreenUpdating = False
   
3.     Application.DisplayAlerts = False
   
4.     Set Fso = CreateObject("Scripting.FileSystemObject")
   
5.     Set sh = ThisWorkbook.Sheets("原料价格预测")
   
6.     sh.UsedRange.Clear
   
7.     p = ThisWorkbook.Path & ""
   
8.     For Each f In Fso.GetFolder(p).Files
   
9.         If InStr(f.Name, ThisWorkbook.Name) = 0 Then
   
10.             fn = Fso.GetBaseName(f)
    
11.             Set wb = Workbooks.Open(f, 0)
    
12.             m = m + 1
    
13.             With wb.Sheets("原料价格预测")
    
14.                 If m = 1 Then
    
15.                     .Cells.Copy sh.[a1]
    
16.                     sh.Rows(5).Delete
    
17.                 Else
    
18.                     r = sh.Cells(Rows.Count, 1).End(xlUp).Offset(1).Row
    
19.                     .UsedRange.Offset(5).Copy sh.Cells(r, 1)
    
20.                 End If
    
21.             End With
    
22.             wb.Close False
    
23.         End If
    
24.     Next f
    
25.     sh.Activate
    
26.     Application.ScreenUpdating = True
    
27.     MsgBox "合并完毕!"
    
28. End Sub
    

复制代码

无语住了我

ykcbf1100 发表于 2024-6-15 20:37
参与一下。。。

感谢大佬

无语住了我

ykcbf1100 发表于 2024-6-15 20:37
参与一下。。。

可以加个规则，汇总完毕时，还可以显示汇总了文件名字及总数吗？