汇总工作簿

ddz79101

老师!我想汇总在另外文件夹（路径不固定）下的3个工作簿（每个簿都只含1表）到1张表中，但此3表汇总在1表中，我想水平放置。请老师帮忙看看。谢谢！

shiruiqiang

https://club.excelhome.net/forum.php?mod=viewthread&tid=1694368

2楼基本差不多

ddz79101

shiruiqiang 发表于 2024-6-20 14:43
https://club.excelhome.net/forum.php?mod=viewthread&tid=1694368

2楼基本差不多

谢谢老师！可以部分替代，另部分，选择路径的合并，则对我来说一直未能理解的代码。可以再帮忙吗

shiruiqiang

选择文件夹，汇总

ddz79101

shiruiqiang 发表于 2024-6-20 15:45
选择文件夹，汇总

谢谢老师！代码运行成功！我再问：若选择的文件夹下有很多文件，我只想选择我想指定的文件，那有该如何处理!谢谢老师！

小凡、、、

获取最大列可以简单点，写复杂了

ddz79101

小凡、、、 发表于 2024-6-20 16:04
获取最大列可以简单点，写复杂了

谢谢老师！图片黑色，看不清，可以放改白色吗

ykcbf1100

参与一下。。。

ykcbf1100

参与一下。。。

1. Sub ykcbf()  '//2024.6.20
   
2.     Application.ScreenUpdating = False
   
3.     Application.DisplayAlerts = False
   
4.     Set fso = CreateObject("scripting.filesystemobject")
   
5.     Set sh = ThisWorkbook.Sheets("Sheet1")
   
6.     sh.UsedRange.Clear
   
7.     p = ThisWorkbook.Path & ""
   
8.     On Error Resume Next
   
9.     For Each f In fso.GetFolder(p).Files
   
10.         If InStr(f.Name, "利润") Then
    
11.             fn = fso.GetBaseName(f)
    
12.             Set wb = Workbooks.Open(f, 0)
    
13.             m = m + 1
    
14.             If m = 1 Then c = 1 Else c = (m - 1) * 5 + 1
    
15.             wb.Sheets("Sheet1").UsedRange.Copy sh.Cells(1, c)
    
16.             wb.Close 0
    
17.         End If
    
18.     Next f
    
19.     Application.ScreenUpdating = True
    
20.     MsgBox "汇总完毕!"
    
21. End Sub
    

复制代码

shiruiqiang

shift多选文件