Question

求助EXCEL使用VBA批量打开一系列表格文件并复制里面的数据到另一个表格文件中

把图一的各个子文件里的表“page1_1”，复制到每日数据汇总里，达到像图上这样的效果。





Answer 1

这样的代码一般可以DIR扫描文件夹，或者指定文件名，例如：

'Dir 循环
set st=activesheet
p = "c:\数据\"
n = Dir(p & "*.xls?")
while n<>""
    with workbooks.open(p & n)
        activesheet.usedrange.copy st.rows(rows.count,1).end(xlup).offset(1,0)
        .close
    end with
    n=Dir
wend

或者：

'指定 循环 201901 ~ 201912
set st=activesheet
for n=1 to 12
    with workbooks.open("c:\数据\2019" & format(n,"") & ".xlsx")
        activesheet.usedrange.copy st.rows(rows.count,1).end(xlup).offset(1,0)
        .close
    end with
next n

追问

哎呀，就是看不懂，所以才想当个伸手党，直接复制粘贴就可用。
文件是从20190101到20190510的每个sheet1“Page1_1”，汇总到“每日数据汇总”表格里，自动创建工作表，自动命名为20190101-20190510.

Answer 2

写代码可以实现的，发文件来