samwang

¦^´_ 1# x7776658


Sub test()
FPath = "D:\test\i\test.xlsx"
With Workbooks.Open(FPath)
    '±zªº¥Dµ{¦¡»Ý¨D¡A¦]¬°±zªº¼gªk¦³°ÝÃD
    '©Ò¥HµLªk±oª¾±z¹ê»Úªº»Ý¨D
    .Close
End With
End Sub

samwang

¦^´_ 3# x7776658

¥i¥H´£¨Ñªþ¥ó¡A·Q­n¾ã¦X2­ÓÀɮתºµ²ªG¬°¤°»ò¼Ë¤l¡AÁÂÁÂ

samwang

¦^´_ 5# x7776658

½Ð´ú¸Õ¬Ý¬Ý¡AÁÂÁÂ

Sub test()
For i = 1 To 2
    FPath = "D:\test\" & i & "\test.xlsx"
    With Workbooks.Open(FPath)
         Arr = Range("a1:d1")
        .Close
    End With
    Range("a" & i).Resize(, 4) = Arr
Next
End Sub