国产一区二区欧美精品免费-欧美国产日韩在线视频-欧美亚洲国语精品一区二区-欧美激情五月综合啪啪-国产69精品麻豆久久久久-亚洲人成精品久久久久桥网站-欧美刺激肥熟在线视频-十七岁日本免费完整版BD-黑夜在线拖拽不卡第一页

回復(fù)：樓主

這是個(gè)遍歷文件 進(jìn)行匯總功能，我?guī)湍阕⑨屢幌拢?

你需要詳細(xì)了解dir 函數(shù)的功能：http://wenku.baidu.com/link?url=aYqDqt3VQbb8LNDbf9BnSUbSXdxIJEUuUI9OiDtQWwZIHOLwpcLaFVhk2wYZgnXUzyRy2ne6vvSDASTC9TrFkuuMPue6rh1lvCtXbOIvaE7

Sub 匯總()
Application.ScreenUpdating = False
a = ThisWorkbook.Path & "\"
mz = Dir(a & "*.xls")          '第一次查找xls文件
Do
If mz <> "匯總表.xls" Then '不是 匯總表.xls  才進(jìn)行匯總
Workbooks.Open (a & mz)
k = k + 1
r = Application.CountA(Workbooks(mz).Sheets(1).Columns(1)) + 1
zr = Application.CountA(Workbooks(1).Sheets(1).Columns(1)) + 3
Workbooks(mz).Sheets(1).Range("a5:k" & r).Copy Workbooks(1).Sheets(1).Cells(zr, 1) '拷貝 查找到的這個(gè)文件的單元格區(qū)域到 同一個(gè)工作表中
Workbooks(mz).Close True ’關(guān)閉查找到的這個(gè)文件
End If
mz = Dir '第二次查找文件
Loop Until mz = "" '直到查找完全部的xls文件

Workbooks(1).Sheets(1).Cells(4, 1).Resize(1, 4) = k
Workbooks(1).Sheets(1).Cells(4, 1).Resize(1, 4).NumberFormat = "@" ‘設(shè)置為文本格式
Application.ScreenUpdating = True
End Sub

Sub 清空()
zr = Application.CountA(Workbooks(1).Sheets(1).Columns(1)) + 1
Sheets(1).Range("a4:k" & zr).ClearContents
End Sub