󰅡收起

平子的小窝

平淡的人生,平淡的日子

23
十月

【技术】把多个excel工作表合并到一个excel表中

作者: 平子
分类: 乱七八糟
发布时间: 2019-10-23 09:54

使用方法:
1、新建一个工作薄,将其命名为你合并后的名字。
2、打开此工作薄。
3、在其下任一个工作表标签上点击右键,选择“查看代码”。
4、在打开的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
5、关闭VBA编辑窗口。
6、在excel中,工具—宏—宏,选“工作薄间工作表合并”,然后“执行”。
7、在打开的对话窗口中,选择你要合并的300个工作薄。

备注:注意修改工作表格式

󰁠

本文出自 平子的小窝 ,转载时请注明出处及相应链接。

本文永久链接: http://www.1987yp.com/?p=1093