(Xin Giúp ) Code Lưu file ra PDF (1 người xem)

[hoduytrieuvy]

xin mọi người giúp mình đoạn code.
Mình cần lưu sheet đó ra 1 file PDF trong 1 thư mục cố định mà không trùng tên với file PDF đã lưu trước đó. Tên được đặt theo định dạng ngày tháng năm giờ phút.
xin mọi người giúp e với ạ. E mò bên maros VBA mà nó cứ lưu chỉ có 1 tên mà lại trùng lại với cái file trước đó.
E cám ơn nhiều ạ.

 

[VetMini]

Gởi cái macro đó lên đây thì sẽ chỉ cho cách sửa tên theo nhu cầu.

 

[befaint]

lưu sheet ra 1 file PDF

 

[hoduytrieuvy]

Gởi cái macro đó lên đây thì sẽ chỉ cho cách sửa tên theo nhu cầu.

Sub copybansao()
'
' copybansao Macro
'
' Keyboard Shortcut: Ctrl+y
'
ChDir "C:\Users\Administrator\Desktop\bansaohoadon"
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"C:\Users\Administrator\Desktop\bansaohoadon\1.pdf", Quality:= _
xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
OpenAfterPublish:=True
End Sub

Đoạn này là e sử dụng record macro. Nhưng nó chỉ lưu được tên file là 1. file lưu kế tiếp e nghĩ nó sẽ ra là 1(1) cũng được. Mà ai ngờ nó lưu chèn lên file 1 lại. Coi như mất file trước đó.

 

[hoduytrieuvy]

cám ơn bác nhiều. E chưa hiểu file của bác.

 

[VetMini]

Sub copybansao()
'
' copybansao Macro
'
' Keyboard Shortcut: Ctrl+y
'
ChDir "C:\Users\Administrator\Desktop\bansaohoadon"
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"C:\Users\Administrator\Desktop\bansaohoadon\1.pdf", Quality:= _
xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
OpenAfterPublish:=True
End Sub

Đoạn này là e sử dụng record macro. Nhưng nó chỉ lưu được tên file là 1. file lưu kế tiếp e nghĩ nó sẽ ra là 1(1) cũng được. Mà ai ngờ nó lưu chèn lên file 1 lại. Coi như mất file trước đó.

Thay cái dòng tô đỏ thành thế này:

"C:\Users\Administrator\Desktop\bansaohoadon\" & format(now(), "yyyy-MM-dd hhmmss") & ".pdf", Quality:= _

 

[hoduytrieuvy]

Thay cái dòng tô đỏ thành thế này:

"C:\Users\Administrator\Desktop\bansaohoadon\" & format(now(), "yyyy-MM-dd hhmmss") & ".pdf", Quality:= _

thanks bác nhiều lắm ạ. Đúng ý của e luôn rồi. hehe.

 

[VetMini]

thanks bác nhiều lắm ạ. Đúng ý của e luôn rồi. hehe.

Bạn chửi tôi đó hả.