Xuất sheet thành file PDF (1 người xem)

[Cá ngừ F1]

E có sử dụng code sau để xuất 1 sheet ra PDF

Sub XuatPDF()
      Sheet13.ExportAsFixedFormat xlTypePDF
End Sub

E muốn phát triển code thêm chút với các mục đích sau:
- Lưu file PDF có tên dạng ddmmyyyy hhmmss (ngày giờ xuất) vào đường dẫn nào đó (vd: D:\) và mở file PDF đó ra cho người dùng xem..
Mong giúp đỡ. E xin cảm ơn...

 

[Quang_Hải]

E có sử dụng code sau để xuất 1 sheet ra PDF

Sub XuatPDF()
      Sheet13.ExportAsFixedFormat xlTypePDF
End Sub

E muốn phát triển code thêm chút với các mục đích sau:
- Lưu file PDF có tên dạng ddmmyyyy hhmmss (ngày giờ xuất) vào đường dẫn nào đó (vd: D:\) và mở file PDF đó ra cho người dùng xem..
Mong giúp đỡ. E xin cảm ơn...

Thử thế này xem sao

Sub XuatPDF()
      ActiveSheet.ExportAsFixedFormat xlTypePDF, "C:\Users\QuangHai\Desktop\" & Date
End Sub

Hoặc vầy

Sub XuatPDF()
Dim filename As String
filename = "C:\Users\QuangHai\Desktop\" & Date & Space(1) & Hour(Time) & Minute(Time) & Second(Time)
ActiveSheet.ExportAsFixedFormat xlTypePDF, filename
End Sub

 

[Cá ngừ F1]

còn ý 2 là mở cái file pdf nữa ah.2 thao tác làm cùng 1 lúc luôn..mo file pdf để người dùng in ấn ạh..
filename.open ? (e chưa có desktop để test.hi)

 

[Quang_Hải]

còn ý 2 là mở cái file pdf nữa ah.2 thao tác làm cùng 1 lúc luôn..mo file pdf để người dùng in ấn ạh..
filename.open ? (e chưa có desktop để test.hi)

Thêm mấy dấu phẩy vào coi sao

Sub XuatPDF()
Dim filename As String
filename = "C:\Users\QuangHai\Desktop\" & Date & Space(1) & Hour(Time) & Minute(Time) & Second(Time)
ActiveSheet.ExportAsFixedFormat xlTypePDF, filename, , , , , , 1
End Sub

 

[Cá ngừ F1]

Sáu dấu , lận...cam ơn a.. để e test ạh..

 

[Cá ngừ F1]

Thêm mấy dấu phẩy vào coi sao

Sub XuatPDF()
Dim filename As String
filename = "C:\Users\QuangHai\Desktop\" & Date & Space(1) & Hour(Time) & Minute(Time) & Second(Time)
ActiveSheet.ExportAsFixedFormat xlTypePDF, filename, , , , , , 1
End Sub

Cái file pdf đó sau khi mở e muốn người dùng chỉnh sửa ( để thêm nội dung vào ) thì ntn nhỉ???

 

[Cá ngừ F1]

Cái file pdf đó sau khi mở e muốn người dùng chỉnh sửa ( để thêm nội dung vào ) thì ntn nhỉ???

E có thử bị báo lỗi này:

Sub XuatPDF()
Dim FileName As String
FileName = "F:\" & Date & Space(1) & Hour(Time) & Minute(Time) & Second(Time)
Sheet13.ExportAsFixedFormat xlTypePDF, FileName, , , , , , 1
End Sub

 

[ndu96081631]

E có thử bị báo lỗi này:

View attachment 122516

Đương nhiên là không được rồi, vì đoạn này:

FileName = "F:\" & [B][COLOR=#ff0000]Date [/COLOR][/B]& Space(1) & Hour(Time) & Minute(Time) & Second(Time)

Do có dùng Date nên sẽ trả về 1 chuổi có chứa dấu "/" chính là ký tự "cấm kỵ" của Windows
Tôi sửa thế này cho gọn:

Sub XuatPDF()
Dim FileName As String
FileName = "F:\" & Format(Now, "dd-mm-yy hhmmss")
Sheet13.ExportAsFixedFormat xlTypePDF, FileName, , , , , , 1
End Sub

chẳng hiểu sao lại Date & Space(1) & Hour(Time) & Minute(Time) & Second(Time) chi cho cực nữa

 

[Cá ngừ F1]

Đương nhiên là không được rồi, vì đoạn này:

FileName = "F:\" & [B][COLOR=#ff0000]Date [/COLOR][/B]& Space(1) & Hour(Time) & Minute(Time) & Second(Time)

Do có dùng Date nên sẽ trả về 1 chuổi có chứa dấu "/" chính là ký tự "cấm kỵ" của Windows
Tôi sửa thế này cho gọn:

Sub XuatPDF()
Dim FileName As String
FileName = "F:\" & Format(Now, "dd-mm-yy hhmmss")
Sheet13.ExportAsFixedFormat xlTypePDF, FileName, , , , , , 1
End Sub

chẳng hiểu sao lại Date & Space(1) & Hour(Time) & Minute(Time) & Second(Time) chi cho cực nữa

Giải pháp của thầy NDU quả thật ngắn gọn và hiệu nghiệm...(mỗi tội chữ chuổi phải là chuỗi mới đúng ạh)

 

[mickeybh]

Gửi anh chị và các bạn!
Sao mình test thử nó lại báo lỗi thế này nhỉ?

 

[ndu96081631]

Gửi anh chị và các bạn!
Sao mình test thử nó lại báo lỗi thế này nhỉ?

Đoán đại: Có lẽ máy bạn chưa cài chương trình đọc file pdf? Còn không thì có thể bạn đang xài Excel 2007?

 

[mickeybh]

Em đang xài office 2010 và có chương trình đọc file pdf (foxit reader) rồi anh.

 

[ndu96081631]

Em đang xài office 2010 và có chương trình đọc file pdf (foxit reader) rồi anh.

Thế thì không gì bằng là: Đưa file lên đây

 

[Cá ngừ F1]

Gửi anh chị và các bạn!
Sao mình test thử nó lại báo lỗi thế này nhỉ?

Hay máy bạn ko có ổ E ???

 

[mickeybh]

Ổ E có chứ. Mình có gửi file cho anh ndu96081631 kiểm tra. Nguyên nhân sheet đó bị ẩn nên phải chạy code để hiện ra trước khi xuất ra pdf.
Vậy nếu mình muốn xuất ra một file excel khác với sheet đã chọn để xuất mà vẫn giữ nguyên cấu trúc của sheet đã chọn và dữ liệu xuất ra dưới dạng value thì phải thay đổi code như thế nào?
Mong anh chị và các bạn giúp đỡ thêm.
Cảm ơn nhiều!

 

[thangteotdtt]

Ổ E có chứ. Mình có gửi file cho anh ndu96081631 kiểm tra. Nguyên nhân sheet đó bị ẩn nên phải chạy code để hiện ra trước khi xuất ra pdf.
Vậy nếu mình muốn xuất ra một file excel khác với sheet đã chọn để xuất mà vẫn giữ nguyên cấu trúc của sheet đã chọn và dữ liệu xuất ra dưới dạng value thì phải thay đổi code như thế nào?
Mong anh chị và các bạn giúp đỡ thêm.
Cảm ơn nhiều!

Cdoe này sử dụng từ EX 2010 trở lên bạn ơi.

 

[ndu96081631]

Vậy nếu mình muốn xuất ra một file excel khác với sheet đã chọn để xuất mà vẫn giữ nguyên cấu trúc của sheet đã chọn và dữ liệu xuất ra dưới dạng value thì phải thay đổi code như thế nào?
Mong anh chị và các bạn giúp đỡ thêm.
Cảm ơn nhiều!

Bạn nói gì mà sao tôi thấy "lùng bùng" quá. Hổng hiểu gì ráo

 

[Cá ngừ F1]

E nghĩ ý bạn ý là copy sheet sang 1 book khác nếu như sheet gốc là hàm số thì book mới chỉ là value thôi..

 

[ndu96081631]

E nghĩ ý bạn ý là copy sheet sang 1 book khác nếu như sheet gốc là hàm số thì book mới chỉ là value thôi..

Nếu vậy thì liên quan gì đến chủ đề xuất file PDF đây?

 

[thangteotdtt]

Sub XuatPDF()Dim FileName As String
FileName = "D:\" & Format(Now, "dd-mm-yy hhmmss")
Sheet1.ExportAsFixedFormat xlTypePDF, FileName, , , , , , 1
End Sub

Mình đã sử dụng đoạn code này cho EX 2010 chạy rất tốt. Nhưng đưa code này vào EX 2003 thì bị lỗi. Vậy kính nhờ các bạn có thể sửa giúp code như thế nào chạy được EX 2003, 2007, 2010? Cảm ơn các bạn.