Sửa code VBA copy dữ liệu

[VU.NGO]

Em có đoạn code để copy 1 file excel từ ổ D sang ổ E, em muốn sửa để code này vẫn copy được ngay cả khi file nguồn đang mở thì cần sửa như thế nào ?
Nhờ các mọi người chỉ giúp,

Sub CopyFile()
Dim sourcePath As String, destPath As String
Dim sourceFile As String, destFile As String
Dim fso As Object

Set fso = CreateObject("Scripting.FileSystemObject")

sourcePath = "D:\"
sourceFile = "file_nguon.xlsx"
destPath = "E:\"
destFile = "file_copy"

On Error Resume Next
FileCopy sourcePath & sourceFile, destPath & destFile & ".xlsx"
On Error GoTo 0

End Sub

 

[taolaobidao3]

thử dùng

ActiveWorkbook.SaveAs Filename:=destPath & destFile & ".xlsm", _
        FileFormat:=xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False

 

[huhumalu]

FileCopy sourcePath & sourceFile, destPath & destFile & ".xlsx"

Sửa thành

fso.CopyFile sourcePath & sourceFile, destPath & destFile & ".xlsx"

 

[VU.NGO]

thử dùng

ActiveWorkbook.SaveAs Filename:=destPath & destFile & ".xlsm", _
        FileFormat:=xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False

File gốc mình đang là xlsx ạ, còn code này tạo ra xlsm bạn à!

FileCopy sourcePath & sourceFile, destPath & destFile & ".xlsx"

Sửa thành

fso.CopyFile sourcePath & sourceFile, destPath & destFile & ".xlsx"

Cảm ơn bạn rất nhiều, đơn giản mà code này ra chính xác kết quả mình muốn.

 

[taolaobidao3]

Thì sửa lại tí thôi )

File gốc mình đang là xlsx ạ, còn code này tạo ra xlsm bạn à!

Cảm ơn bạn rất nhiều, đơn giản mà code này ra chính xác kết quả mình muốn.

ActiveWorkbook.SaveAs Filename:=destPath & destFile & ".xlsx", _
        FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False