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

Liên hệ QC

Huynh linh 0209

Thành viên mới
Tham gia
25/2/19
Bài viết
13
Được thích
0
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

  • DU_LIEU.xlsm
    217 KB · Đọc: 31
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.
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.
 
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"
 
Web KT
Back
Top Bottom