【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