文件夹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            NextEnd 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    NextEnd Sub