合并多个EXCEL工作簿

Sub mergetrees()

'1 新建Excel启用宏的工作簿“自动合并荆门样地.xlsm”文件
' 合并工作簿名：自动合并荆门样地.xlsm
' 合并工作簿第1个工作表名：测树数据合并
' 合并工作簿第2个工作表名：测树文件列表
'
'2 在“自动合并荆门样地.xlsm”文件中新建“测树数据合并”工作表，用于保存合并后的测树数据
' （1）输入“测树数据合并”工作表的表头，单行，共N列
' 第1列为“样地新编号”，第2列为“样地旧编号”，第3列为“样木编号”，第4列为“树种”
' 第5列为“胸径”，第6列为“树高”，第7列为“枝下高”，第8列为“东西冠幅”，第9列为“南北冠幅”
' 第10列为“冠幅”，第11列为“胸高断面积”，第12列为“胸径加权高”
'
'3 在“自动合并荆门样地.xlsm”文件中新建“测树文件列表”工作表，用于保存原始测树文件名和工作表名列表
' （1）输入“测树文件列表”的表头，单行，共三列
' 第1列为“测树文件名”，第2列为“工作表名”，第3列为“样地新编号”
' （2）输入测树文件列表、工作表名、样地新编号数据
' 这里共观测了64个样地，有64个测树文件，测树文件名单元格索引为2-65
'
'4 新建一个宏，将下列代码复制到宏中，执行即可
'
Application.ScreenUpdating = False
Application.DisplayAlerts = False

Dim strBookPath As String '定义测树文件所在路径变量
Dim strBookName As String '定义测树文件名变量
Dim strSheetName As String '定义工作表名变量
Dim strFullBookName As String '定义全路径测树文件名 = 测树文件所在路径 +测树文件名
Dim strPlotNewID As String '定义样地新编号变量
Dim nPlotRows As Integ