tạo Macro để copy file

[thuyloitienlu]

các bạn giúp mình viết code để tạo 1 nút lệnh copy 1 file excel đến 1 thu mục xác định

 

[chibi]

Đây là 1 ví dụ:

Public Sub copy_file(tm_nguon, tep, tm_dich)
    Dim fso
    Set fso = CreateObject("Scripting.FileSystemObject")
    fso.CopyFile tm_nguon & "\" & tep, tm_dich & "\"
End Sub

Ngoài ra bạn có thể tìm kiếm bài viết về vấn đề này của anh Lê Văn Duyệt.

 

[PMXD]

Dim FileNguon as string
Dim FileDich as string

....

FileCopy FileNguon,FileDich

 

[tedaynui]

Dim FileNguon as string
Dim FileDich as string
....
FileCopy FileNguon,FileDich

VBA trong Word thì FileNguon phải là file "đóng", trong Excel chưa Test lại nhưng có lẽ cũng phải là "file đóng"

TDN

 

[thuyloitienlu]

các bạn nói rõ hơn được không ? ví dụ tôi có file nguồn là: D:\data\dulieu.xls copy đến thư mục đích là E:\luu\

 

[PMXD]

VBA trong Word thì FileNguon phải là file "đóng", trong Excel chưa Test lại nhưng có lẽ cũng phải là "file đóng"

TDN

Copy chính file đang sử dụng hay là file khác nhỉ? Nếu là chính file đang sử dụng thì dùng Save as cho nó nhanh, cần gì phải viết code. Còn file khác thì ko vấn đề gì.

 

[thuyloitienlu]

copy file

ý tôi là copy 1 file đang đóng (nên 0 dùng save as được) ở 1 thư mục nào đó sang 1 thư mục khác

 

[tedaynui]

Copy chính file đang sử dụng hay là file khác nhỉ? Nếu là chính file đang sử dụng thì dùng Save as cho nó nhanh, cần gì phải viết code. Còn file khác thì ko vấn đề gì.

Copy và Save As xem qua thì giống nhưng thực chất có khác. Copy thì File "đích" sẽ là File đóng còn Save as thì File "đích" sẽ trở thành file hiện hành và file "nguồn" sẽ thành file đóng. Nếu chủ đích của tác giả vẫn muốn thao tác trên File nguồn thì Save As sẽ không đúng mục đích rồi.

TDN