vb整合多个excel表格到一张_多个excel文件合并到一个文件中 VB

78 阅读 0 评论 52 点赞

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

新建一个工作表，命名后保存到和与合并的多个个文件同一个文件文件夹，摁 alt +

f11,双击工程资源管理器里面的sheet1(sheet1),在右侧的代码区粘贴如下代码。运行。等候一会就OK了。

Sub 合并当前目录下所有工作簿的全部工作表()

Dim MyPath, MyName, AWbName

Dim Wb As Workbook, WbN As String

Dim G As Long

Dim Num As Long

Dim BOX As String

Application.ScreenUpdating = False

MyPath = ActiveWorkbook.Path

MyName = Dir(MyPath & "" &

"*.xls")

AWbName = ActiveWorkbook.Name

Num = 0

Do While MyName <> ""

If MyName <> AWbName Then

Set Wb = Workbooks.Open(MyPath & ""

& MyName)

Num = Num + 1

With Workbooks(1).ActiveSheet

.Cells(.Range("A65536").End(xlUp).Row + 2, 1) = Left(MyName,

Len(MyName) - 4)

For G = 1 To Sheets.Count

Wb.Sheets(G)

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

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