VBA小白求助多个工作薄数据汇总在同一个表，求高手帮忙

yura-lu

需要将三个公司第一周的数据汇总到汇总表中，用VBA处理，求大神帮忙~

yura-lu

实际操作的工作表表头合并单元格较多，且需要合并的子公司的表有三十多个，但由于公司保密原因只能模仿制作以上简单的范例，希望高手可以帮帮忙

kkf5560

1. Option Explicit
   
2. 
   
3. Sub test()
   
4.     Dim myPath$, fileName$, st As Worksheet, str
   
5.     myPath = ThisWorkbook.Path & ""
   
6.     fileName = Dir(myPath)
   
7.     Set st = Worksheets("汇总")
   
8.     Application.ScreenUpdating = False
   
9.     Do While fileName <> ""
   
10.         If fileName <> ThisWorkbook.Name Then
    
11.             With Workbooks.Open(myPath & fileName)
    
12.                 str = Split(.Name, ".")(0)
    
13.                 With ActiveSheet
    
14.                     .Cells.Find("第一周").Offset(, 1).Resize(1, 4).Copy st.Cells.Find(str).Offset(, 1)
    
15.                 End With
    
16.                 .Close
    
17.             End With
    
18.         End If
    
19.         fileName = Dir
    
20.     Loop
    
21.     Application.ScreenUpdating = True
    
22. End Sub
    

复制代码

microyip

http://club.excelhome.net/thread-1310803-1-1.html 多表多工作簿汇总，参考变通一下

yura-lu

kkf5560 发表于 2020-6-7 00:38

你好，可以看看我的汇总表吗，为什么粘贴了代码以后还是无法运行

yura-lu

麻烦大神帮忙再看看是不是哪里出了问题

lwwy1981

kkf5560

yura-lu 发表于 2020-6-7 09:34
麻烦大神帮忙再看看是不是哪里出了问题

第二行有一个反斜杠没显示出来 myPath = ThisWorkbook.Path & "\"

yura-lu

lwwy1981 发表于 2020-6-7 10:01

我用的不是WPS

lwwy1981

yura-lu 发表于 2020-6-7 10:22
我用的不是WPS

对VBA不熟悉的,不如直接用WPS