学习啦 > 学习电脑 > 工具软件 > 办公软件学习 > Excel教程 > Excel2007教程 > excel2007合并工作薄的方法

excel2007合并工作薄的方法

时间: 业华773 分享

excel2007合并工作薄的方法

学习啦在线学习网   Excel中经常需要使用到合并工作簿的功能,工作簿具体该如何合并呢?下面是由学习啦小编分享的excel2007合并工作薄的方法,以供大家阅读和学习。

  excel2007合并工作薄的方法:

  合并工作簿步骤1:首先把需要合并的excel工作薄整理到一个文件夹中,如图,用来合并到一起的工作薄的名字要注意,这里取名叫“合并工作薄”。

  合并工作簿步骤2:打开这个excel表,直接按键ALT+F11,进入下图界面。双击如图所示位置的sheet1。

  合并工作簿步骤3:如图,打开准备好的VBA代码,复制到这个空白的代码编译处,代码如下:

学习啦在线学习网   Sub 工作薄间工作表合并()

学习啦在线学习网   Dim FileOpen

学习啦在线学习网   Dim X As Integer

  Application.ScreenUpdating = False

学习啦在线学习网   FileOpen = Application.GetOpenFilename(FileFilter:="Microsoft Excel文件(*.xls),*.xls", MultiSelect:=True, Title:="合并工作薄")

  X = 1

  While X <= UBound(FileOpen)

  Workbooks.Open Filename:=FileOpen(X)

  Sheets().Move After:=ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count)

  X = X + 1

  Wend

学习啦在线学习网   ExitHandler:

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

  Exit Sub

  errhadler:

学习啦在线学习网   MsgBox Err.Description

  End Sub

  合并工作簿步骤4:小说一下注意事项,如图,注意工作薄的名字,同时,注意代码中设定的excel版本,再一个就是为了防止上一步骤中经验发布后代码出错。

  合并工作簿步骤5:回到“合并工作薄”的excel表格中,如图,点击工具(没有的到excel的选项中添加),选择宏。

  合并工作簿步骤6:选择宏以后会出现下图界面,直接双击图中选项。

学习啦在线学习网   合并工作簿步骤7:双击后弹出选择待合并的文件夹中工作薄,直接全选要合并的工作薄即可。

  合并工作簿步骤8:如图,这就是合并后的效果,这两个工作薄是小编下载的2014年的高考录取分数线的内容,效果不错,而且合并工作薄本身的工作表是不会被占用的,是新建的工作表。

  注释:合并工作簿的方法通用与Excel历代版本。
803236