把多个文件夹EXCEL数据整合到一个EXCEL文件中

把多个文件夹EXCEL数据整合到一个EXCEL文件中并进行适当调整。赵老师写了个小程序，出门了，请朋友们帮助做一个修补。
1、先清空"资产负债表", "利润表", "现金流量表"三个表的内容。然后对三个文件夹的文件执行操作。

2、对每个文件先删除W列以后的内容，再竖列变横列，每个文件保持固定行数23行，如果有的数据太少，不足23行加空行补齐。如资产负债表前100行所表示。

财务分析.rar (4.16 MB)

2016-5-28 08:53:07 上传

这个问题已经解决，呵呵，赵老师出差回来了

Sub 移动文件()
    Dim MyPath1 As String, MyPath2 As String, MyName As String, MyName2 As String
    MyPath1 = "E:\A\"  '指定原始文件所在文件夹
    MyPath2 = "F:\9月工程\"    '指定文件新文件夹，需要事先创建该文件夹
    MyName1 = Dir(MyPath1 & "*.xls*")     ' 找寻第一项。
    Do While MyName1 <> ""      ' 开始循环。
        Name MyPath1 & MyName1 As MyPath2 & MyName1   '移动文件
        MyName1 = Dir    ' 查找下一个目录。
    Loop
End Sub
Sub 移动文件并重命名()
    MyPath1 = "E:\A\"  '指定原始文件所在文件夹
    MyPath2 = "F:\9月工程\"    '指定文件新文件夹，需要事先创建该文件夹
    MyName1 = Dir(MyPath1 & "*.xls*")     ' 找寻第一项。
    Do While MyName1 <> ""      ' 开始循环。
        MyName2 = "材料表" & MyName1
        Name MyPath1 & MyName1 As MyPath2 & MyName2    '移动文件并重新命名
        MyName1 = Dir    ' 查找下一个目录。
    Loop
End Sub