[已解决]求助！~~~同一文件中的多个工作表数据合并到一张工作表

wowohml

suye1010 发表于 2012-11-14 16:38

非常感谢、但是不知道为什么我在复制此vba后。使用总是叫我要激活宏。这个搞不懂。。
还有一个问题  你能否在下面这vba中  加入你那个   每个表格的名字。就是最后显示地区那个 怎么编写呢， 麻烦您帮我修改一下

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
If Num = 1 Then
For G = 1 To Sheets.Count
Wb.Sheets(G).UsedRange.Copy .Cells(.Range("A65536").End(xlUp).Row + 1, 1)
Next
Else
For G = 1 To Sheets.Count
Wb.Sheets(G).UsedRange.Offset(1, 0).Copy .Cells(.Range("A65536").End(xlUp).Row + 1, 1)
Next
End If
WbN = WbN & Chr(13) & Wb.Name
Wb.Close False
End With
End If
MyName = Dir
Loop
Range("A1").Select
Application.ScreenUpdating = True
MsgBox "共合并了" & Num & "个工作薄下的全部工作表。如下：" & Chr(13) & WbN, vbInformation, "提示"
End Sub

无聊的疯子

数据量大的话，可以考虑把数据放到 acc 里，写的代码都差不多的，
只是把数据放到数据库里保存，相对能更好的管理数据！！

wowohml

无聊的疯子 发表于 2012-11-14 20:39
数据量大的话，可以考虑把数据放到 acc 里，写的代码都差不多的，
只是把数据放到数据库里保存，相对能更好 ...

acc  我更搞不懂了、、、

ZJJ32072175

付款后没看到下载的文件？

llhwzxf

学习了！！！！！！！！！

wowohml

suye1010 发表于 2012-11-14 16:38

朋友这个怎么回事啊。。我的格式都是一样的 但是总弹出这个。。方便的话 咱们加个Q 好嘛，，1176890943

yuyang1127

下来看看能否可用

losess

xeuxi

了凡

我也想要这个附件，可惜新注册不能下载。。。。

tmvkfcel

DY VB FBG