全民一起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 & "\"