用VBA合并Excel工作簿 my.docVIP

Excel VBA实战技巧精粹 有许多实现Excel工作簿合并的方法，在《将多个工作簿中的数据合并到一个工作簿》中介绍过 例如，需要将多个Excel工作簿中的工作表合并到一个工作簿。这里假设需要合并的工作簿在“D:\示例 Sub CombineWorkbooks() Dim strFileName As String Dim wb As Workbook Dim ws As Object 包含工作簿的文件夹,可根据实际修改 Const strFileDir As String = D:\示例\数据记录\ Application.ScreenUpdating = False Set wb = Workbooks.Add(xlWorksheet) strFileName = Dir(strFileDir *.xls*) Do While strFileName vbNullString Dim wbOrig As Workbook Set wbOrig = Workbooks.Open(Filename:=strFileDir strFileName, ReadOnly:=True) strFileName = Left(Left(strFileName,