学习啦在线学习网excel2007工作簿合并的教程

学习啦在线学习网 　　Excel中的工作簿具体该如何合并呢?接下来是学习啦小编为大家带来的excel2007工作簿合并的教程，供大家参考。

　　excel2007工作簿合并的教程：

　　工作簿合并步骤1：将需要合并的excel工作簿文件放置在一个文件夹中。

　　工作簿合并步骤2：每个文件夹中的工作簿都输入了简单的内容。

　　工作簿合并步骤3：在该文件夹中，新建立一个新的excel工作簿文件。重命名为8.

学习啦在线学习网 　　工作簿合并步骤4：打开新建立的excel工作簿文件8.按Alt+F11或者将鼠标移动到下方工作表名称sheet1上右键，选择查看代码。

　　工作簿合并步骤5：在弹出的代码编辑窗口中，输入代码。注意：通过快捷键Alt+F11打开的窗口如下没有直接复制代码的面板，需要点击左上方的工程-VBA project模块，双击sheet1，即可打开代码窗口。而步骤3中的第二种方法可以直接打开代码输入窗口。

学习啦在线学习网 　　工作簿合并步骤6：在代码窗口中，黏贴下列代码：

　　Sub CombineFiles()

学习啦在线学习网 　　Dimpath As String

学习啦在线学习网 　　DimFileName As String

　　DimLastCell As Range

学习啦在线学习网 　　DimWkb As Workbook

学习啦在线学习网 　　DimWS As Worksheet

　　DimThisWB As String

学习啦在线学习网 　　Dim MyDir AsString

　　MyDir =ThisWorkbook.path & "\"

　　'ChDriveLeft(MyDir, 1) 'find all the excel files

　　'ChDir MyDir

学习啦在线学习网 　　'Match =Dir$("")

　　ThisWB =ThisWorkbook.Name

　　Application.EnableEvents = False

学习啦在线学习网 　　Application.ScreenUpdating = False

　　path =MyDir

学习啦在线学习网 　　FileName =Dir(path & "\*.xls", vbNormal)

学习啦在线学习网 　　Do UntilFileName = ""

学习啦在线学习网 　　If FileName <> ThisWB Then

学习啦在线学习网 　　Set Wkb = Workbooks.Open(FileName:=path & "\"& FileName)

　　For Each WS In Wkb.Worksheets

　　Set LastCell = WS.Cells.SpecialCells(xlCellTypeLastCell)

　　If LastCell.Value = "" And LastCell.Address = Range("$A class="main">