如何将多个Ecel工作簿合并成一个新的工作簿

如何将多个工作簿合并成一个新的工作簿

Excel

有多个独立的工作簿文件需要合并到一个新的工作簿中，保留原来 工 作簿中各

excelexcel

个工作表名称和结构。如果量小，可以采用打开一个个复制的方法。 若有多份

excel100e快乐的歌曲 xcel

文件要合并到一个工作簿，这样就需要用批量处理多个工 作簿的合并(不是工作

excelPS：

表)。

1excel

、 将需要合并的打狗棍戴若男 工作簿文件放置在一个文件夹中。

2excel

、 在该文件夹中，新建立一个新的 工作簿文件。

3excelsheetl

、 打开新建立的工作簿文件，将鼠标移动到下方工作表名称畸形 上右键，选

择查看代码。

4

、 在弹出的代码编辑窗口中，输入代码。

5

、 在代码窗口中，粘贴下列代码：

Sub()

合并工作薄

DimFilesToOpe n

DimxAsI nteger

On ErrorGoToErrHa ndler

Applicati on. Scree nUpdati ngFal

二

FilesToOpe n=Applicati on. GetOpe nFile name_

(FileFilter:"MicroSoftExcel (*xls),*xls",_

二

文件

Mult中药玉竹 iS部分英文 elect:True,Title:")

二二"

要合并的文件

IfTypeName(FilesToOpe n)"Boolea n"The n

二

MsgBox"”

没有选中文件

GoToExitHa ndler

Endlf

x=1

WhilexvUBou nd(FilesToOpe n)

二

nFile name:FilesToOpe n(x)

二

x=x+1

Wend

ExitHa ndler:

Appl摇曳的意思 icati on. Scree nUpdat in g=True

ExitSub

ErrHa ndler:

ptio n

ResumeExitHa ndler

EndSub

6--excel

、点击菜单栏运行运行子过程用户窗体。关闭代码输入窗口。打开 工作簿, 可以看

到下方已经将之前工作簿中的工作表都复制到了这一新建工作簿中。