【C017】VBA为多文件夹内文件加表头

文件夹2.wind_numerical_excello中有多个文件夹，每个文件夹中都有不定数目的Excel表格

实现通过VBA，为每个Excel文件加入一个表头，即：插入一行，然后加入内容

 

Sub jiabiaotou()
    Dim fs, f, fds, fd, fls, fl
    Set fs = CreateObject("scripting.filesystemobject")
    Set f = fs.getfolder("F:\桌面\2.wind_numerical_excello")
    Set fds = f.subfolders
    
    For Each fd In fds  '遍历文件夹中的所有子文件夹
        Set fls = fd.Files
        
        For Each fl In fls  '遍历子文件夹中的所有文件
            Workbooks.Open fl   '打开文件
            Rows(1).Insert
            Cells(1, 1) = "Longitude"
            Cells(1, 2) = "Latitude"
            '...可以随便写下去

            ActiveWorkbook.SaveAs "F:\桌面\2.wind_numerical_excello\2\" & Left(f1.Name, Len(f1.Name) - 5) & ".xls", FileFormat:=xlExcel8
            '将10版的Excel另存为03版的，用Left和Len将扩展名去掉，然后xlExcel8可以保证存成03版的！      
      
            ActiveWorkbook.Close savechanges:=True  '保存并关闭文件
        Next
        
    Next
End Sub

标准名称

Sub bianli()
    Dim afileSystem, afolderPath, afolders, afiles
    Set afileSystem = CreateObject("scripting.filesystemobject")
    Set afolderPath = afileSystem.getfolder("F:\Desktop\20111219\N_SAR")      '文件路径
    Set afolders = afolderPath.subfolders     '子文件夹集定义
    
    For Each afolder In afolders    '遍历文件夹中的子文件夹
        Set afiles = afolder.Files     '文件集定义
        
        For Each afile In afiles      '遍历每个子文件夹中的文件
            If Right(afile.Name, 3) = "xls" Then     '选择扩展名为*.xls的文件
            
                Debug.Print afile.Name
            
            End If
        Next
    Next
End Sub