å¯ä»¥å¨Excelè¡¨æ ¼ä¸ç¨ä¸é¢çVBAç¨åºå®ç°ï¼
Sub Test() 'æå¼å½åç®å½ä¸æ件ï¼å°Sheet1ä¿¡æ¯å¤å¶å°æ±æ»è¡¨ä¸
Dim f$
Dim n&
Mypath = ThisWorkbook.Path & "\"
f = Dir(Mypath & "*.xls*")
Do While f > " "
n = n + 1
Workbooks.Open Mypath & f
Set c = ActiveWorkbook
arr=sheet1.UsedRange
c.Close
Cells(n, 1).resze(Ubound(arr,1),Ubound(arr,2)) =arr
n=n+Ubound(arr,1)
f = Dir
Loop
End Sub
æä½æ¹æ³ï¼
1ãæå¼Excelç¼è¾å¨ï¼æå ¥æ¨¡å
2ãå°ä¸é¢çç¨åºå¤å¶è¿æ¨¡å
3ãå¨Excel页é¢ä¸ï¼ç¹ å¼åå·¥å
·-å®ï¼æ§è¡éé¢å为Testçå®ï¼å³å¯èªå¨å®ææ±æ»