子測試()
Dim i為整數,iRow為整數
將strPath標註為字符串
將工作表調暗為工作表
iRow = 1
設置Sheet = ActiveWorkbook。工作表(“sheet1”)
StrPath = ""E:\可輸\華"
應用程序。文件搜索
。LookIn = strPath
。SearchSubFolders = True
。文件名= "*。*"
如果。執行& gt那麽0
for I = 1 To . found files . count
範圍(" A " & amp我)=。發現文件(I)
練習冊。打開(。發現文件(I))
For j = 1到ActiveWorkbook。工作表。計數
ActiveWorkbook。工作表(壹)。單元格(1,1)。Value = "a "
ActiveWorkbook。工作表(j).UsedRange.Copy
那張紙。使活動
當鞋子。範圍(" a " & ampiRow)。價值& lt& gt""
iRow = iRow + 1
行
那張紙。範圍(" A " & ampiRow)。挑選
ActiveSheet。粘貼
ActiveWorkbook。救援
下壹個j
工作簿(工作簿。數數)。關閉
接下來我
如果…就會結束
以…結尾
末端接頭