3个数据源汇总到1个工作簿下3个不同的工作表里

kyousn

各位大佬，


求一段代码，我每周都会把新下载的数据源放到指定的文件夹下，然后把下载的3个数据源汇总到1个工作簿下3个不同的工作表里，
因为3个数据源的行数和列数会有变化，所以复制到主表里对应的3个工作表里的行列数不能写死，感谢！

ykcbf1100

打开工作簿即自动导入

附件供参考。。。

ykcbf1100

参与一下。。。

1. Private Sub Workbook_Open()
   
2.    Set fso = CreateObject("scripting.filesystemobject")
   
3.     Application.ScreenUpdating = False
   
4.     Set ws = ThisWorkbook
   
5.     p = ws.Path & ""
   
6.     For Each f In fso.GetFolder(p).Files
   
7.         If LCase$(f.Name) Like "*.xls*" Then
   
8.             If InStr(f.Name, ThisWorkbook.Name) = 0 Then
   
9.                 n = n + 1
   
10.                 Set wb = Workbooks.Open(f, 0)
    
11.                 wb.Sheets(1).Cells.Copy ws.Sheets(n).[a1]
    
12.                 wb.Close 0
    
13.             End If
    
14.         End If
    
15.     Next f
    
16.     Application.WindowState = xlMaximized
    
17.     Application.ScreenUpdating = True
    
18.     MsgBox "OK！"
    
19. End Sub
    

复制代码

yanglinzi

yanglinzi

请测试。。。

kyousn

ykcbf1100 发表于 2024-12-12 11:06
打开工作簿即自动导入

附件供参考。。。

感谢大佬帮忙

kyousn

yanglinzi 发表于 2024-12-12 11:40
请测试。。。

大神，我有2个问题哈，
1，我那3个数据源和主表不是在同一个文件夹下的，我那3个数据源通常都会直接下载到Download的文件下，
2，并且我Download文件夹下有很多Excel文件，我只想要指定的这3个数据源到我的主表里指定的3个工作表里譬如：数据源1到 ATS，数据源2到CH，数据源3到GTAP，这代码怎么改呀？