多个csv文件合成一个文件中的多个sheets

最新推荐文章于 2023-10-19 17:27:11 发布

原创最新推荐文章于 2023-10-19 17:27:11 发布 · 5.9k 阅读

10 ·

CC 4.0 BY-SA版权

本文介绍如何使用Excel2007的宏功能批量合并多个Excel文件。通过简单的步骤，包括新建宏、编写VBA代码，可以快速实现多个工作簿的合并，适用于大量数据整合场景。

此处是以Excel2007为基础

1）新建一个空白的excel文件

2）选中宏，跳出如下窗口，在宏名下随便命名，点击创建…

3）将下列代码粘贴至创建后跳出的两行代码之间，啥都不用改，除了……如果excel格式是csv，把xlsx改成csv即可

Dim FileOpen
Dim X As Integer
Application.ScreenUpdating = False
FileOpen = Application.GetOpenFilename(FileFilter:="Microsoft Excel文件(*.xlsx),*.xlsx", 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

4）粘贴好后可以直接关掉，再点一次宏，选中刚刚新建的，点击直接，全选要修改的excel，稍等几秒就成功。

sheets标签格式可能不如人意，可根据具体需要修改。