 |
| 等 级：资深长老 |
| 经 验 值：22276 |
| 魅 力 值：7262 |
| 龙 币：28275 |
| 积 分：21023.9 |
| 注册日期：2008-07-19 |
| |
|
|
|
百度别人回答的一个方法。我一看就晕了。
新建打开一个EXCEL
alt+f11
插入 模块1
复制下面
Sub CombineWorkbooks()
Dim FilesToOpen
Dim x As Integer
On Error GoTo ErrHandler
Application.ScreenUpdating = False
FilesToOpen = Application.GetOpenFilename _
(FileFilter:="MicroSoft Excel文件(*.xls),*.xls", _
MultiSelect:=True, Title:="要合并的文件")
If TypeName(FilesToOpen) = "Boolean" Then
MsgBox "没有选中文件"
GoTo ExitHandler
End If
x = 1
While x <= UBound(FilesToOpen)
Workbooks.Open Filename:=FilesToOpen(x)
Sheets().Move after:=ThisWorkbook.Sheets _
(ThisWorkbook.Sheets.Count)
x = x + 1
Wend
ExitHandler:
Application.ScreenUpdating = True
Exit Sub
ErrHandler:
MsgBox Err.Description
Resume ExitHandler
End Sub
然后鼠标放到代码里面 按F5选择文件夹 OK!
你呀放到一个表里面 执行上面代码后 再用下面代码
Sub 汇总数据()
Sheets.Add
With ActiveSheet
.Name = "汇总表" & Format(Now, "hhmmss")
For Each s In ThisWorkbook.Sheets
s.UsedRange.Copy .Cells(.UsedRange.Rows.Count + 1, 1)
Next
End With
End Sub
|
|
--
待到秋风萧瑟起，我愿陪你厮守满山霜叶红；等到风景都看透，你是否会陪我看细水长流？ |
|
|
2011-07-15 10:09:46
