[Help] In nhiều sheet trong excel thành .pdf

[AnhNQT]

Xin chào mọi người!
Nhờ mng hỗ trợ giúp code để in file excel có nhiều sheet với tên sheet có 3 ký tự đầu giống nhau.
VD: File có 100 sheet và có 95 sheet có tên là ABC_xxxxxxx trong đó ABC là 3 ký tự đầu giống nhau. và mình cần in 95 sheet kia thành 1 file pdf.

 

[LamNA]

Xin chào mọi người!
Nhờ mng hỗ trợ giúp code để in file excel có nhiều sheet với tên sheet có 3 ký tự đầu giống nhau.
VD: File có 100 sheet và có 95 sheet có tên là ABC_xxxxxxx trong đó ABC là 3 ký tự đầu giống nhau. và mình cần in 95 sheet kia thành 1 file pdf.

Có thể làm thủ công như sau thử:
- chọn sheet cần xuất pdf bằng cách ấn giữ nút ctrl ( trường hợp các sheet liên tiếp thì chọn shift chọn đến sheet cuối cùng )
- chọn file - export - greate pdf/xps

 

[AnhNQT]

Cảm ơn bác nhưng e muốn làm tự động.
Còn hiện tại theo cách hơi củ chuối là ẩn các sheet không cần in đi (như ví dụ là 5 sheet cố định) và dùng code in tất cả các sheet đang active.

 

[huuthang_bd]

Tôi chưa chạy thử nhé

Sub PDF()
bReplace = true
For each sh in sheets
  If sh.name like "ABC*" then
    Sh.visible = true
    Sh.select, bReplace
    bReplace = false
  End if
Next
If not bReplace then
  ActiveSheet.ExportAsFixedFormat xlTypePDF, "D:\ABC.pdf"
End if
End sub

 

[AnhNQT]

Tôi chưa chạy thử nhé

Sub PDF()
bReplace = true
For each sh in sheets
  If sh.name like "ABC*" then
    Sh.visible = true
    Sh.select, bReplace
    bReplace = false
  End if
Next
If not bReplace then
  ActiveSheet.ExportAsFixedFormat xlTypePDF, "D:\ABC.pdf"
End if
End sub

Em chạy đến dòng này bị lỗi "Sh.select, bReplace". Nếu có thời gian bác chạy thử giúp em xem sửa ntn a. E cũng gà mờ k biết sửa )

 

[huuthang_bd]

Em chạy đến dòng này bị lỗi "Sh.select, bReplace". Nếu có thời gian bác chạy thử giúp em xem sửa ntn a. E cũng gà mờ k biết sửa )

Bỏ dấu phẩy đi là được nha bạn. Lúc đó tôi trả lời bằng điện thoại nên bị lỗi cú pháp.