Lập VBA cho phép chép tập tin a.xls từ c:\A sang d:\D

[trieusgvn]

Kính chuyển các bạn!
Không biết có bạn nào biết, trong excel có thể Lập VBA cho phép chép tập tin a.xls từ c:\A sang d:\D khi đóng tập tin a.xls không (kể cả overwrite)?
Giúp mình với.
Cám ơn nhiều.

 

[trieusgvn]

Mình dùng macro tạo ra đoạn code rồi copy vào hàm VBA, run thử cũng được nhưng lại hỏi có overwrite hay không bất tiện quá. Bạn nào có GP nào hay xin giúp đỡ. Tks

Private Sub Workbook_BeforeClose(Cancel As Boolean)
If Cancel = False Then Me.Save
ChDir "D:\QuanLy37\"
ActiveWorkbook.SaveAs Filename:= _
"D:\QuanLy37\BC37 CHUYEN SANG-TTH.XLS", FileFormat:=xlNormal, _
Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, _
CreateBackup:=False
On Error Resume Next
Cancel = False
End Sub

 

[nghiaphuc]

Mình dùng macro tạo ra đoạn code rồi copy vào hàm VBA, run thử cũng được nhưng lại hỏi có overwrite hay không bất tiện quá. Bạn nào có GP nào hay xin giúp đỡ. Tks

Private Sub Workbook_BeforeClose(Cancel As Boolean)
If Cancel = False Then Me.Save
ChDir "D:\QuanLy37\"
ActiveWorkbook.SaveAs Filename:= _
"D:\QuanLy37\BC37 CHUYEN SANG-TTH.XLS", FileFormat:=xlNormal, _
Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, _
CreateBackup:=False
On Error Resume Next
Cancel = False
End Sub

Bạn bỏ câu lệnh ChDir ... đi (câu này không cần thiết) và thay vào bởi câu này nhé: Application.DisplayAlerts = False