合并工作簿，又一示例

文章预览

‍ ‍ 学习Excel技术，关注微信公众号： excelperfect 标签： VBA 合并工作簿是 Excel 中经常会碰到的操作之一，而合并工作簿有各种各样的情形，对于使用 VBA 来合并工作簿来说，不同的情形有不同的方法。 下面是一种情形。在当前工作簿的第一个工作表中，合并指定文件夹中其他工作簿第一个工作表中数据区域的首行数据。 VBA 代码如下： Sub mergeWBFiles() Dim mainWorkbook As Workbook Dim myPath As String Dim rngLr As Range Dim Destn As Range Dim fname myPath = "D:\完美Excel\test\"   Set  mainWorkbook = Application.ActiveWorkbook With mainWorkbook.Sheets( 1 )     Set  rngLr = .Cells.Find( "*" , searchorder:=xlByRows, searchdirection:=xlPrevious) If rngLr Is Nothing Then Set Destn = .Cells( 1 , 1 ) Else       Set  Destn = .Cells(Application.Max(rngLr.Row +  1 ,  1 ),  1 ) End If End With    fname = Dir(myPath  ………………………………