2016-10-22 78 views

回答

1

下面的代碼將從**複製C名稱的所有文件:\ testFolder ** A列中

Sub test() 
    Dim file As Variant 
    file = Dir("C:\testFolder\") 
    Range("A2").Activate 
    While (file <> "") 
     ActiveCell.Value = file 
     ActiveCell.Offset(1, 0).Activate 
     file = Dir 
    Wend 
End Sub 
+0

輝煌!完美的作品。謝謝! –