Thêm ngày tháng năm vào tên file pdf khi xuất từ file excell (1 người xem)

[Huynh linh 0209]

Mọi người cứu mình với:
Khi mình xuất 01 file excell ra file pdf với câu lệnh:

Sub LUUDONTHUOC()
MsgBox "Da cap nhat du lieu, moi ban luu DON THUOC"
filepdf = "D:\LUU_DON_THUOC" & "\" & Range("C5") & ".pdf"
ActiveSheet.ExportAsFixedFormat xlTypePDF, filepdf
End Sub
Thì kết quả là đúng với nội dung mình mong muốn, nhưng nếu có 2 tên trùng nhau thì nó sẽ đè lên nhau mất file kia. Vì vậy mình nhờ mọi người chỉ mình để thêm ngày tháng năm ở ô "D17" vào tên file từ câu lệnh ở trên để không bị trùng nhau!
Ví dụ: Khi mình bấm vào nút "LƯU ĐƠN THUỐC" thì sẽ xuất hiện một file PDF mới với tên file: (Nguyễn Văn Tuấn _ 12/12/2019)
Rất cảm ơn mọi người!

 

[batman1]

filepdf = "D:\LUU_DON_THUOC" & "\" & Range("C5").Value & "_" & Format(Range("D17").Value, "Short Date") & ".pdf"

 

[Huynh linh 0209]

filepdf = "D:\LUU_DON_THUOC" & "\" & Range("C5").Value & "_" & Format(Range("D17").Value, "Short Date") & ".pdf"

Lại không được nữa ời. nó chạy tới cái dòng này cái noa bao lỗi ''ActiveSheet.ExportAsFixedFormat xlTypePDF, filepdf ''
có cách nào nữa không ạ. giúp em với.

 

[snow25]

Lại không được nữa ời. nó chạy tới cái dòng này cái noa bao lỗi ''ActiveSheet.ExportAsFixedFormat xlTypePDF, filepdf ''
có cách nào nữa không ạ. giúp em với.

Bạn chỉnh lại định dạng ngày tháng năm đi.không được đặt kiểu có dấu"/" xem được ko.

 

[batman1]

Lại không được nữa ời. nó chạy tới cái dòng này cái noa bao lỗi ''ActiveSheet.ExportAsFixedFormat xlTypePDF, filepdf ''
có cách nào nữa không ạ. giúp em với.

Tôi chủ quan quá. Ở chỗ tôi ngày tháng có dạng 2019-03-16 nên không có lỗi.

Sửa thành

filepdf = "D:\LUU_DON_THUOC" & "\" & Range("C5").Value & "_" & Format(Range("D17").Value, "dd.mm.yyyy") & ".pdf"

 

[Huynh linh 0209]

Tôi chủ quan quá. Ở chỗ tôi ngày tháng có dạng 2019-03-16 nên không có lỗi.

Sửa thành

filepdf = "D:\LUU_DON_THUOC" & "\" & Range("C5").Value & "_" & Format(Range("D17").Value, "dd.mm.yyyy") & ".pdf"

Ok tuyet vời. ngon lành. cản on rất rất nhiều.