全民一起VBA基础篇第十课:工作簿、单元格
打开不同的EXCEL文件并汇总 Option Explicit Sub 季度汇总() Dim i, j, k, fileName, wkPath Dim w As Worksheet, r As Worksheet, wb As Workbook '首先,让 r 代表当前工作簿(“季报.xlsm”)的汇总表 Set r = ActiveWorkbook.Worksheets("季度汇总") 'ActiveWorkbook.Path属性可以返回本工作簿所在的文件夹, '因此当其他待处理工作簿跟本工作簿在同一文件夹下时,可以用Path找到它们。 wkPath = ActiveWorkbook.Path '循环生成每个月的文件名,并打开相应工作簿 For i = 4 To 6 fileName = i & "月.xlsx" '标记文件名,这个例子中的名字都比较规律 Set wb = Workbooks.Open(wkPath & "\" & fileName) '让 w 指向该月文件的第一张工作表(即月报表) Set w = wb.Worksheets(1) '循环扫描该工作表的第3-10行,依次加到汇总表的同一行 For k = 3 To 10 For j = 3 To 6 '以下四行代码可以用循环的方式改写,更加方便 r.Cells(k, j) = r.Cells(k, j) + w