摘要： 经过两个步骤第一步，将多个工作簿合并为一个工作簿第二部，将一个工作簿的多个工作表进行合并1）将多个工作簿合并为一个工作簿Sub CombineWorkbooks() Dim strFileName As String Dim wb As Workbook Dim ws As Object '包含工作簿的文件夹,根据实际修改 Const strFileDir As String = "F:\智慧安徽\新建文件夹\" Application.ScreenUpdating = False Set wb = Workbooks.Add(xlWorksheet)... 阅读全文