Giúp đỡ code để copy file

[diemvuongvathuongde]

Các bác giúp em cách copy file1 thành file2 (Dùng VBA). Hoặc link đến phần nói về vấn đề này. Cảm ơn các bác.

 

[yeudoi]

Bạn hỏi như thế nào mà tôi chẳng hiểu

 

[hoangdanh282vn]

Bạn hỏi như thế nào mà tôi chẳng hiểu

Cái này có lẽ chọn file nào đó, copy thành một file mới rồi đặt tên cho nó.
Cái này làm được với điều kiện file đó phải đang đóng.
Còn nếu không thì mở 1 file nào đó, chọn save as thành một file mới, cái này chắc record được

 

[diemvuongvathuongde]

Em sưu tầm được đoạn code

Sub copy_file(Path1 As String, filename As String, Path2 As String)
    Dim fso
    Set fso = CreateObject("Scripting.FileSystemObject")
    fso.CopyFile Path1 & "\" & filename, Path2 & "\"
End Sub

Đoạn code trên sẽ copy tệp filename từ thư mục Path1 sang thư mục Path2, nay em muốn như trên nhưng copy sang tệp mới có tên khác.
Mong được giúp đỡ

 

[voda]

Bạn thêm vào 1 tham số :

Sub copy_file(Path1 As String, filename As String, Path2 As String, newfilename As String)
       Dim fso
       Set fso = CreateObject("Scripting.FileSystemObject")
       fso.CopyFile Path1 & "\" & filename, Path2 & "\" & newfilename
End Sub