Xuất PDF và lưu file vào đường dẫn, đặt tên

[doanspkt1992]

Dạ em kính chào các anh chị trên diễm đàn ạ!

em đang viết đoạn code để xuat worksheet excel thành định dạng file pdf và lưu vào đường dẫn có sẵn, cũng như đặt tên cho cho file
Em tìm hiểu một số code trên youtube chỉ dùng :
Printout preview = false
Nhưng nếu lưu như vậy khi xuất pdf lại bắt em đặt tên cho từng file lưu( vì em chạy vòng lặp nên rất nhiều file)
Còn khi viết thế này lại báo lỗi( như hình)

Dim path as string, file as string

path = "C:\Users\PC\Desktop\In thu hSCL\"
file = "HSCL Dot" & Format(Now(), " DD-MM-YYYY HH.NN.SS") & ".pdf"

ActiveSheet.ExportAsFixedFormat xlTypePDF, Filename:="C:\Users\PC\Desktop\In thu hSCL\HSCL Dot" & Format(Now(), " DD-MM-YYYY HH.NN.SS") & ".pdf, quality:=xlQualityStandard, includeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=True"
Application.DisplayAlerts = False
Application.ActiveWorkbook.SaveAs Filename:="C:\temp\" & ThisWorkbook.Name, FileFormat:=xlOpenXMLWorkbookMacroEnabled
Mong quý anh chị diễn đàn giúp đỡ em với ạ!

 

[Mr.hieudoanxd]

Bạn có thể tải pdfFactory pro và xuất hồ sơ qua PDF pro bạn ko cần phải đặt tên file nó sẽ tự gộp cho bạn nhé. còn code VBA thì mình chưa nghĩ ra.

 

[Maika8008]

Dạ em kính chào các anh chị trên diễm đàn ạ!

em đang viết đoạn code để xuat worksheet excel thành định dạng file pdf và lưu vào đường dẫn có sẵn, cũng như đặt tên cho cho file
Em tìm hiểu một số code trên youtube chỉ dùng :
Printout preview = false
Nhưng nếu lưu như vậy khi xuất pdf lại bắt em đặt tên cho từng file lưu( vì em chạy vòng lặp nên rất nhiều file)
Còn khi viết thế này lại báo lỗi( như hình)

Dim path as string, file as string

path = "C:\Users\PC\Desktop\In thu hSCL\"
file = "HSCL Dot" & Format(Now(), " DD-MM-YYYY HH.NN.SS") & ".pdf"

ActiveSheet.ExportAsFixedFormat xlTypePDF, Filename:="C:\Users\PC\Desktop\In thu hSCL\HSCL Dot" & Format(Now(), " DD-MM-YYYY HH.NN.SS") & ".pdf, quality:=xlQualityStandard, includeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=True"
Application.DisplayAlerts = False
Application.ActiveWorkbook.SaveAs Filename:="C:\temp\" & ThisWorkbook.Name, FileFormat:=xlOpenXMLWorkbookMacroEnabled
Mong quý anh chị diễn đàn giúp đỡ em với ạ!

Bạn thay đường dẫn và tên file pdf đơn giản hơn xem sao

 

[doanspkt1992]

Dạ em cảm ơn anh/chị,
Em vừa dùng macro để kiểm tra cách lưu file và được dòng code như sau ạ:

ChDir "C:\Users\PC\Desktop\HSCL"
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"C:\Users\PC\Desktop\HSCL\HO SO NGHIEM THU.pdf", Quality:= _
xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
OpenAfterPublish:=True
Chuyện xuất file thì ổn nhưng vấn đề là nó chỉ xuất được 1 file còn các vòng lặp sau không lưu được do trùng tên với vòng lặp trước đó, anh chị nào có cách code để các vòng lặp của dữ liệu đều xuất ra hoặc combine vào 1 file pdf không ạ?
Em cảm ơn

 

[Hoàng Tuấn 868]

!!!................

 

[thanh.bq]

Dạ em cảm ơn anh/chị,
Em vừa dùng macro để kiểm tra cách lưu file và được dòng code như sau ạ:

ChDir "C:\Users\PC\Desktop\HSCL"
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"C:\Users\PC\Desktop\HSCL\HO SO NGHIEM THU.pdf", Quality:= _
xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
OpenAfterPublish:=True
Chuyện xuất file thì ổn nhưng vấn đề là nó chỉ xuất được 1 file còn các vòng lặp sau không lưu được do trùng tên với vòng lặp trước đó, anh chị nào có cách code để các vòng lặp của dữ liệu đều xuất ra hoặc combine vào 1 file pdf không ạ?
Em cảm ơn

do bạn không thay đổi tên file xuất ra nên bị trùng tên là đúng rồi, để tránh bị trùng bạn có thể đổi tên file sau mỗi vòng lặp hoặc gắn thêm thời gian tạo file hoặc số vòng lặp cho nó khác tên đi