Thêm ngày tháng năm vào tên file pdf khi xuất từ file excell

Huynh linh 0209

Thành viên mới
Tham gia ngày
25 Tháng hai 2019
Bài viết
13
Được thích
0
Điểm
13
Tuổi
27
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!
 

File đính kèm

batman1

Thành viên gắn bó
Tham gia ngày
8 Tháng chín 2014
Bài viết
1,928
Được thích
3,021
Điểm
360
Mã:
filepdf = "D:\LUU_DON_THUOC" & "\" & Range("C5").Value & "_" & Format(Range("D17").Value, "Short Date") & ".pdf"
 

Huynh linh 0209

Thành viên mới
Tham gia ngày
25 Tháng hai 2019
Bài viết
13
Được thích
0
Điểm
13
Tuổi
27
Mã:
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

Thành viên gắn bó
Tham gia ngày
24 Tháng bảy 2018
Bài viết
2,049
Được thích
1,794
Điểm
360
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

Thành viên gắn bó
Tham gia ngày
8 Tháng chín 2014
Bài viết
1,928
Được thích
3,021
Điểm
360
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
Mã:
filepdf = "D:\LUU_DON_THUOC" & "\" & Range("C5").Value & "_" & Format(Range("D17").Value, "dd.mm.yyyy") & ".pdf"
 

Huynh linh 0209

Thành viên mới
Tham gia ngày
25 Tháng hai 2019
Bài viết
13
Được thích
0
Điểm
13
Tuổi
27
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
Mã:
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.
 
Top Bottom