如何合并多个excel文件到一个sheet页

如何合并多个excel文件到一个sheet页

1，将需要合并的excel工作簿文件放置在一个文件夹中。
每个文件夹中的工作簿都输入了内容。

2，在该文件夹中，新建立一个新的excel工作簿文件。重命名为123

3，打开新建立的excel工作簿文件123
按Alt+F11或者将鼠标移动到下方工作表名称sheet1上右键，选择查看代码。

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

新建一个工作薄，将所有excel表的文件名填到a列中，复制下面vba代码到工作薄中，保存为excel.xls后执行 sub xlscopy() application.screenupdating = false 'arr数组由所有excel文件名组成 arr = [a1:a10] for i = 1 to ubound(arr) workbooks.open "文件夹路径\" & arr(i, 1) workbooks(arr(i)(1)).activate for j = 1 to activeworkbook.sheets.count sheets(j).copy after:=workbooks("excel.xls").sheets(workbooks("excel.xls").sheets.count) next workbooks(arr(i, 1)).close false next end sub

如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！

点此我要举报以上问答信息