批量给一个文件夹下所有的 Excel 工作簿的每个工作表中新增插入两列，求助vba

Annie0112

批量给一个文件夹下所有的 Excel 工作簿的每个工作表中新增插入两列，隐藏的工作表不做处理，我查资料写了一个，运行报错，求助哪里出问题了

运行时错误1004，应用程序定义或对象定义错误

leepoison

Sub InsertColumnsInAllSheets()
    Dim folderPath As String
    Dim fileName As String
    Dim wb As Workbook
    Dim ws As Worksheet
   
    ' 设置文件夹路径
    folderPath = "C:\Your\Folder\Path\" ' 替换为你的文件夹路径
   
    ' 遍历文件夹下的所有 Excel 文件
    fileName = Dir(folderPath & "*.xlsx") ' 只处理扩展名为 .xlsx 的文件，可根据需要进行修改
   
    Do While fileName <> ""
        ' 打开工作簿
        Set wb = Workbooks.Open(folderPath & fileName)
        
        ' 遍历工作簿中的每个工作表
        For Each ws In wb.Worksheets
            ' 检查工作表是否隐藏，如果是则跳过不处理
            If ws.Visible = xlSheetVisible Then
                ' 在工作表中新增插入两列
                ws.Columns("A:B").Insert Shift:=xlToRight
            End If
        Next ws
        
        ' 关闭并保存工作簿
        wb.Close SaveChanges:=True
        
        ' 继续处理下一个文件
        fileName = Dir
    Loop
   
    ' 完成处理
    MsgBox "已完成插入列操作。"
End Sub

Annie0112

谢谢 问题解决啦~