Chỉnh sửa code (1 người xem)

[thangteotdtt]

Tôi muốn xuất file ra và lưu lại với 1 tên mới tại ô A3

ActiveWorkbook.SaveAs Filename:=ThisWorkbook.Path & "\" & NameSh & "4 Doi" & " (" & Format(Now, "hh-MM-ss") & ")"

Sửa lại thành

ActiveWorkbook.SaveAs Filename:=ThisWorkbook.Path & "\" & NameSh & [A3] & " (" & Format(Now, "hh-MM-ss") & ")"

Sao code chưa chạy được. Vậy sửa lại như thế nào là đúng. Trân trọng cảm ơn.

 

[VetMini]

Trước khi save, bảo nó hiển thị cái trị:
MsgBox "Ten cu: " & ThisWorkbook.Path & "\" & NameSh & "4 Doi" & " (" & Format(Now, "hh-MM-ss") & ")" _
& vbNewLine & "Ten moi: " & ThisWorkbook.Path & "\" & NameSh & [A3] & " (" & Format(Now, "hh-MM-ss") & ")"

Thì sẽ có khả năng biết sai chỗ nào.

 

[thangteotdtt]

Đây là file mong các bạn giúp đỡ. Trân trọng cảm ơn.

 

[nghiaphuc]

Đây là file mong các bạn giúp đỡ. Trân trọng cảm ơn.

Bạn sửa lại câu lệnh như vầy là được:

ActiveWorkbook.SaveAs Filename:=ThisWorkbook.Path & "\" & NameSh & [COLOR=#ff0000][B]Sheet2.[A3][/B][/COLOR] & " (" & Format(Now, "hh-MM-ss") & ")"

Mà topic có cái tiêu đề như thế này dễ được dời vào Hậu viên lắm!