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...

 

[Cá ngừ F1]

- Mình không phải làm hàng ngày nhưng việc này là khá thường xuyên.
- Mỗi thư mục của mình có khoảng gần 20 file mình cần xuất sheet("name") ra pdf để gửi đi
- Nếu chạy code ở Ý thứ nhất bài trên của mình thì mình phải mở bấy nhiêu file mình thấy cũng phiền.
- Các bạn có giải pháp xin cứ giúp dù sao cũng thêm một cách để giải quyết vấn đề. Xin cảm ơn các bạn!.

Ở phần chữ kỹ của tôi có bài về File system object của sư phụ Quang Hải.
Áp dụng vào bài này thì tuyệt cú mèo. Hì
Bạn cùng nghĩ thử xem sao?

 

[befaint]

- Làm đúng như hướng dẫn của bạn luôn nhưng vẫn lỗi đó bạn à!.

- Mình phát hiện thêm là nếu tên file excel cần chuyển có dấu tiếng việt thì bị lỗi; và chỉ chuyển 1 file trong thư mục chọn

Tôi kiểm tra chạy bình thường thì mới gửi file lên.
Bạn thử test với folder có các file có tên là chữ không dấu xem... sẽ chuyển đủ các file.
Vụ tên file là chữ có dấu thì bị lỗi... tôi sẽ sửa lại chỗ này.
p/s: tôi không đặt tên file/folder là chữ có dấu bao giờ

Đã sửa lại vụ tên file là chữ có dấu.
Bạn xem file đính kèm nhé.

 

[Thuyanhanoi]

Tôi kiểm tra chạy bình thường thì mới gửi file lên.
Bạn thử test với folder có các file có tên là chữ không dấu xem... sẽ chuyển đủ các file.
Vụ tên file là chữ có dấu thì bị lỗi... tôi sẽ sửa lại chỗ này.
p/s: tôi không đặt tên file/folder là chữ có dấu bao giờ

Đã sửa lại vụ tên file là chữ có dấu.
Bạn xem file đính kèm nhé.

- Thật là tuyệt cảm ơn bạn rất nhiều!.
- Hì hì nhưng nếu trên form của bạn mà có thêm mục chọn trang cần chuyển nữa thì quá tốt (ví dụ: chuyển từ trang 3 đến trang 6). Một lần nữa cảm ơn bạn!.