vb整合多个excel表格到一张_vba实现excel多表合并

83 阅读 0 评论 55 点赞

我是靠谱客的博主甜甜大船，最近开发中收集的这篇文章主要介绍vb整合多个excel表格到一张_vba实现excel多表合并，觉得挺不错的，现在分享给大家，希望可以做个参考。

Excel多表合并之vba实现

需求

保留列名，复制每一个excel里的数据，合并到一个excel

操作步骤

将要合并的文件放在同一文件夹下，复制过来就好(ps：最好不要直接操作原数据文件，避免操作失败，数据丢失)

在这个目录下创建一个“合并.xlsx”

双击打开“合并.xlsx”

同时按 ALT + F11

出现下图，按图中文字操作即可完成合并

完成

附录代码

Sub合并当前目录下所有工作簿的全部工作表()DimMyPath, MyName, AWbNameDim Wb As Workbook, WbN As String

Dim G As Long

Dim Num As Long

Dim BOX As Stringflag= 0Application.ScreenUpdating= FalseMyPath=ActiveWorkbook.Path

MyName= Dir(MyPath & "" & "*.xls")

AWbName=ActiveWorkbook.Name

Num= 0

Do While MyName <> ""

If MyName <> AWbName Then

Set Wb = Workbooks.Open

如果觉得靠谱客网站的内容还不错，欢迎将靠谱客网站推荐给程序员好友。

本图文内容来源于网友提供，作为学习参考使用，或来自网络收集整理，版权属于原作者所有。