Excel表格将多个文件表格合并成一个文件操作方法

原标题:"Excel表格怎么将多个文件表格合并成一个文件"相关电脑问题教程分享。 - 来源:编程之家。

如果我们需要将多个Excel表格文件合并成一个该怎么做呢?一个Excel文件中可以建立多个表格,但是如果一个文件就一个表格,怎么才能把他们合并起来呢?下面看看具体操作方法吧。

操作方法:

1、将需合并的Excel文件放在同一个文件夹中,并这个文件中新建一个Excel文件。

2、打开新建的Excel文件,按 Alt + F11 键,打开宏,选择视图→代码窗口。

3、将下面的代码拷贝进去:

Sub sheets2one()

‘定义对话框变量

Dim cc As FileDialog

Set cc = Application.FileDialog(msoFileDialogFilePicker)

Dim newwork As Workbook

Set newwork = Workbooks.Add

With cc

If .Show = -1 Then

Dim vrtSelectedItem As Variant

Dim i As Integer

i = 1

For Each vrtSelectedItem In .SelectedItems

Dim tempwb As Workbook

Set tempwb = Workbooks.Open(vrtSelectedItem)

tempwb.Worksheets(1).Copy Before:=newwork.Worksheets(i)

newwork.Worksheets(i).Name = VBA.Replace(tempwb.Name, “.xls”, “”)

tempwb.Close SaveChanges:=False

i = i + 1

Next vrtSelectedItem

End If

End With

Set cc = Nothing

End Sub

4、点击运行选项运行宏命令。

5、之后弹出选择对话框,选择要批量合并的Excel名,确定即可。

6、程序运行完毕后,会自动生成一个工作簿,工作簿内包含所有需合并的Excel文件,将工作簿另存为即可。

以上步骤便是,合并后的Excel文档会献出多个Sheet页,我们可以很方便的切换了解。

相关文章

有系统u盘要网络吗(有系统u盘要网络吗怎么连接)想要重新系统...
u盘识别盘符不能格式化(u盘无法识别需要格式化)因为重装系统...
u盘错误无法读取(u盘错误无法读取文件)U盘无法读取?出现这种...
电脑f2启动相应系统(电脑f2启动相应系统错误)开机后出现如下...
win7直接启动(win7直接启动admin)一共三种启动方式,针对台式...
近期有些win7用户反映说,自己的电脑使用过程中就出现了蓝屏...