vba:在文件夹和子文件夹中插入每个文件中的一列

Sub InsertColumnInFiles()
    Dim FolderPath As String
    Dim FileName As String
    Dim wb As Workbook
    Dim ws As Worksheet
    Dim LastColumn As Long
    
    ' 设置文件夹路径
    FolderPath = "C:\YourFolderPath\" ' 替换为你的文件夹路径
    
    ' 打开文件夹中的每个文件
    FileName = Dir(FolderPath & "*.xlsx") ' 替换为你的文件类型，如.xlsx、.xls等
    
    Do While FileName <> ""
        ' 打开工作簿
        Set wb = Workbooks.Open(FolderPath & FileName)
        
        ' 打开第一个工作表
        Set ws = wb.Worksheets(1)
        
        ' 获取最后一列的列号
        LastColumn = ws.Cells(1, Columns.Count).End(xlToLeft).Column
        
        ' 在最后一列的右侧插入一列
        ws.Columns(LastColumn + 1).Insert Shift:=xlToRight
        
        ' 关闭并保存工作簿
        wb.Close SaveChanges:=True
        
        ' 继续下一个文件
        FileName = Dir
    Loop
End Sub