excel不同文件表格批量加表头vba_用Excel 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