.EXCEL合并多个工作薄中的相同指定工作表到另一个工作薄中文件夹下有600多个工作薄,每个工作薄中有工作表20多个,每个工作薄中都有一个工作表标签为明细的工作表,需要将名称为明细的指定工作表的数据,汇集罗列到另外一个工作薄的汇总表中,如何写vba代码? 最佳答案 Sub 合并选定工作簿的第一个工作表() 功能：合并某文件下所有Excel工作簿中的第一个工作表 使用：将要合并的工作簿拷贝到某文件夹下，新建一个工作簿后执行该宏 Dim WBName As String 汇总工作簿名称 Dim WBCurrent As String 当前正在合并的工作簿 Dim i As Integer Dim FileToOpen As Variant 选定的文件列表 显示选择文件对话框，使用Ctrl或Shief键选取多个工作簿 FileToOpen = Application _ .GetOpenFilename(Excel Files (*.xls), *.xls, , 请选择要合并的工作簿, , True)
