如何为导入指定工作表的VBA宏添加起止月份筛选功能？

我帮你调整了原有的VBA宏，添加了对From_Month和To_Month参数的支持，现在可以自动遍历指定月份区间内的所有工作表并导入。下面是修改后的完整代码，以及关键改动的说明：

Sub macro()
    Dim wb1 As String
    Dim Section As String
    Dim Year As Integer
    Dim From_Month As Integer
    Dim To_Month As Integer
    Dim currentMonth As Integer
    Dim sourceFilePath As String
    Dim sourceWB As Workbook
    
    ' 创建新工作簿作为目标文件
    Workbooks.Add
    wb1 = ActiveWorkbook.Name
    
    ' 读取参数（从当前工作簿的w1工作表）
    Section = ThisWorkbook.Worksheets("w1").Range("Section").Value
    Year = ThisWorkbook.Worksheets("w1").Range("Year").Value
    From_Month = ThisWorkbook.Worksheets("w1").Range("From_Month").Value
    To_Month = ThisWorkbook.Worksheets("w1").Range("To_Month").Value
    
    ' 校验月份区间的合理性
    If From_Month < 1 Or From_Month > 12 Or To_Month < 1 Or To_Month > 12 Then
        MsgBox "请输入1-12之间的有效月份！", vbExclamation
        Exit Sub
    End If
    If From_Month > To_Month Then
        MsgBox "起始月份不能大于结束月份！", vbExclamation
        Exit Sub
    End If
    
    ' 遍历月份区间内的每个月份
    For currentMonth = From_Month To To_Month
        ' 拼接源文件路径（假设文件名包含年份和月份，比如：Section_Year_Month.xlsx，可根据实际情况调整）
        sourceFilePath = "O:\LF\07M\JL\" & Section & "_" & Year & "_" & Format(currentMonth, "00") & ".xlsx"
        
        ' 检查文件是否存在
        If Dir(sourceFilePath) <> "" Then
            ' 打开源工作簿
            Set sourceWB = Workbooks.Open(sourceFilePath)
            
            ' 将源工作簿的所有工作表复制到目标工作簿（可根据需求修改为特定工作表）
            sourceWB.Sheets.Copy After:=Workbooks(wb1).Sheets(Workbooks(wb1).Sheets.Count)
            
            ' 关闭源工作簿，不保存更改
            sourceWB.Close SaveChanges:=False
        Else
            MsgBox "未找到文件：" & sourceFilePath, vbInformation
        End If
    Next currentMonth
    
    MsgBox "指定月份区间的工作表导入完成！", vbInformation
End Sub

关键改动说明： #

• 规范变量声明：新增了循环用的currentMonth、路径拼接的sourceFilePath、源工作簿对象sourceWB，让代码更清晰易维护。
• 参数有效性校验：增加了月份范围和区间逻辑检查，避免输入错误导致宏运行异常。
• 区间循环遍历：用For currentMonth = From_Month To To_Month实现月份区间的逐个处理，Format(currentMonth, "00")确保月份显示为两位数字（比如1月显示为01），适配多数文件名的命名习惯。
• 文件存在检查：用Dir(sourceFilePath)判断文件是否存在，避免因文件缺失触发报错。
• 批量复制逻辑：将每个源工作簿的工作表复制到目标工作簿末尾，你可以根据实际需求修改这部分（比如只复制特定名称的工作表）。

注意事项： #

• 请确保w1工作表中Section、Year、From_Month、To_Month对应的单元格有正确数值，比如From_Month和To_Month是1-12之间的整数。
• 源文件的命名规则需要和代码中sourceFilePath的拼接逻辑一致，如果你的实际文件名格式不同（比如是Section-YearMonth.xlsx），请调整路径拼接部分的代码。

内容的提问来源于stack exchange，提问作者Max.Bb