Copy nhiều file một lúc (1 người xem)

[ExcelQN]

Em có 100 file EXcel (có tên là dang1.xls đến dang100.xls) trong đĩa C, em muốn copy 100 file này sang đĩa D, bằng VBA, thì phải làm sao? Mong các anh chị chỉ giúp. Em cám ơn.

 

[xuanha]

Em có 100 file EXcel (có tên là dang1.xls đến dang100.xls) trong đĩa C, em muốn copy 100 file này sang đĩa D, bằng VBA, thì phải làm sao? Mong các anh chị chỉ giúp. Em cám ơn.

Tạo một Macro, sau đó dán đoạn code dưới đây vào (cách gọi macro thế nào thì bạn biết quá rõ rồi đúng không)
Public Sub Copyfile()
Dim i%
For i = 1 To 100
FileCopy "C:\dang" & i & ".xls", "D:\dang" & i & ".xls"
Next
MsgBox "Da copy xong"
End Sub

 

[ExcelQN]

Cám ơn bạn xuanha, OK rồi, nhưng Dim i chứ không phải Dim i%