excel的合并和分开and转为在线文档

ppyy8

于 2022-09-29 22:28:50 发布

阅读量3.4k

点赞数

文章标签：其他

本文链接：https://blog.csdn.net/ppyy8/article/details/127114884

版权

首先将你需要合并的文件存放在你能找到的位置上，比如桌面或者一个新建的文件夹：

然后新建一个excel文件，打开之后，找到左下角的sheet1，右键之后选中查看代码选项：

然后会弹出这样一个界面：

接着在中间的文本框中粘贴上这样一段代码：

'功能：把多个excel工作簿的第一个sheet工作表合并到一个excel工作簿的多个sheet工作表，新工作表的名称等于原工作簿的名称
Sub Books2Sheets()
'定义对话框变量
Dim fd As FileDialog
Set fd = Application.FileDialog(msoFileDialogFilePicker)
'新建一个工作簿
Dim newwb As Workbook
Set newwb = Workbooks.Add

With fd
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:=newwb.Worksheets(i)
'把新工作簿的工作表名字改成被复制工作簿文件名，这儿应用于xls文件，即Excel97-2003的文件，如果是Excel2007，需要改成xlsx
newwb.Worksheets(i).Name = VBA.Replace(tempwb.Name, ".xlsx", "")
'关闭被合并工作簿
tempwb.Close SaveChanges:=False
i = i + 1
Next vrtSelectedItem
End If
End With
Set fd = Nothing
End Sub

然后点击运行，会弹出让你选择你要合并文件的窗口，接着按住shift键多选你要选择的文件之后，再点击确定，稍等两秒后就会生成一个新文件：

打开生成的excel文件之后会发现左下角是这样的，已经达到目的：

--------------------------------------------------------------------------------------------------------------------------------

接下来是如何分割在一个excel文件里的三个sheet文件，得到三个excel文件：

首先打开你要拆分的excel，找到左下角的三个sheet：

同样右键选择查看代码：

接着粘贴以下的代码：

Private Sub 分拆工作表()

Dim sht As Worksheet

Dim MyBook As Workbook

Set MyBook = ActiveWorkbook

For Each sht In MyBook.Sheets

sht.Copy

ActiveWorkbook.SaveAs Filename:=MyBook.Path & "\" & sht.Name, FileFormat:=xlNormal '将工作簿另存为EXCEL默认格式

ActiveWorkbook.Close

Next

MsgBox "文件已经被分拆完毕!"

End Sub