Excel 中VBA 合并报表案例

       今天财务小姐姐找到我，让我帮忙用VBA 写一个合并文件夹下的Excel 文件（*.xlsx  和 *.xls）,方便她整理报表。

需求如下：所有源文件有三个sheet,其中第一个sheet 需要合并,第二个sheet和第三个sheet直接复制其中一个文件的就ok。

​​​​​​​

源码如下。

Public fileNum As Integer '记录文件数
Public Path As String '目标文件夹路径
Public savePath, saveName As String '保存路径和结果文件名

Public Sub main()
    '
    '函数入口 主函数
    '
    '
    
    Call init '调用初始化函数
    
    '调用函数key
    Call key
    
    '更改result文件的sheet1名称
    Call setName
    
    Application.DisplayAlerts = True
End Sub
Public Sub init()
    Application.DisplayAlerts = False '关闭警告弹框
    fileNum = 0 '初始化读取的文件数
    Dim excelWB As Object  '创建Excel工作簿对象

    '