Chuyển tệp Excel sang tệp PDF bằng VBA

[thang_nguyen1]

Mình có vấn đề này mong mọi người giúp đỡ. Mình muốn chuyển tệp Excel sang PDF nhưng mà khi chuyển nó bị cắt ra từng mảng nhỏ. Vì tính chất công việc mình làm thủ công lên lâu. Vậy các bạn giúp mình viết lệnh chuyển sang PDF giữ nguyên được cả file báo cáo mà không bị cắt ra từng mảng. mình gửi file lên đây chỉ là bộ khung thôi ạ. Vì tính chất bảo mật của công ty, mong các bạn thông cảm. Chúc mọi người có một ngày chủ nhật thật vui vẻ!

 

[Hoàng Tuấn 868]

Mình có vấn đề này mong mọi người giúp đỡ. Mình muốn chuyển tệp Excel sang PDF nhưng mà khi chuyển nó bị cắt ra từng mảng nhỏ. Vì tính chất công việc mình làm thủ công lên lâu. Vậy các bạn giúp mình viết lệnh chuyển sang PDF giữ nguyên được cả file báo cáo mà không bị cắt ra từng mảng. mình gửi file lên đây chỉ là bộ khung thôi ạ. Vì tính chất bảo mật của công ty, mong các bạn thông cảm. Chúc mọi người có một ngày chủ nhật thật vui vẻ!

Sao không cho dữ liệu giả lập vào, nhìn thấy file trỗng rỗng nên bỏ qua luôn.

 

[HUONGHCKT]

Mình có vấn đề này mong mọi người giúp đỡ. Mình muốn chuyển tệp Excel sang PDF nhưng mà khi chuyển nó bị cắt ra từng mảng nhỏ. Vì tính chất công việc mình làm thủ công lên lâu. Vậy các bạn giúp mình viết lệnh chuyển sang PDF giữ nguyên được cả file báo cáo mà không bị cắt ra từng mảng. mình gửi file lên đây chỉ là bộ khung thôi ạ. Vì tính chất bảo mật của công ty, mong các bạn thông cảm. Chúc mọi người có một ngày chủ nhật thật vui vẻ!

Thử code này xem sao? (code copy trên mạng)

Sub ExportAsPDF()

Dim FolderPath As String

FolderPath = Sheets("NG").Range("D1").Value

   Sheets(Array("NG")).Select
   ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=FolderPath & "\" & "Gì Gì đó.pdf", _
        openafterpublish:=False, ignoreprintareas:=False
   MsgBox "Ban da chuyen doi thanh cong file BAO CAO sang PDF!"
End Sub

 

[Maika8008]

Thử code này xem sao? (code copy trên mạng)

Sub ExportAsPDF()

Dim FolderPath As String

FolderPath = Sheets("NG").Range("D1").Value

   Sheets(Array("NG")).Select
   ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=FolderPath & "\" & "Gì Gì đó.pdf", _
        openafterpublish:=False, ignoreprintareas:=False
   MsgBox "Ban da chuyen doi thanh cong file BAO CAO sang PDF!"
End Sub

Sao lại có dòng này bạn: Sheets(Array("NG")).Select ?

 

[thang_nguyen1]

Thử code này xem sao? (code copy trên mạng)

Sub ExportAsPDF()

Dim FolderPath As String

FolderPath = Sheets("NG").Range("D1").Value

   Sheets(Array("NG")).Select
   ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=FolderPath & "\" & "Gì Gì đó.pdf", _
        openafterpublish:=False, ignoreprintareas:=False
   MsgBox "Ban da chuyen doi thanh cong file BAO CAO sang PDF!"
End Sub

Code bị lỗi bạn ơi , như là lỗi khi lưu file PDF

 

[HUONGHCKT]

Sao lại có dòng này bạn: Sheets(Array("NG")).Select ?

Cảm ơn anh đã xem bài. Dòng đó thừa do quên xóa. Lúc trước tôi dùng là tôi chỉ copy 1 phần của sheet nguồn và paste vào sheet mẫu và sau đó xử lý 1 số ô của sheet mẫu sau đó mới chuyển sang tệp PDF.

Bài đã được tự động gộp: 13/8/23

Code bị lỗi bạn ơi , như là lỗi khi lưu file PDF

Bạn đã để tên đường dẫn lưu file PDF này vào ô D1 chưa?

ví dụ D1=C:\Users\Admin\Downloads\

 

[thang_nguyen1]

Cảm ơn anh đã xem bài. Dòng đó thừa do quên xóa. Lúc trước tôi dùng là tôi chỉ copy 1 phần của sheet nguồn và paste vào sheet mẫu và sau đó xử lý 1 số ô của sheet mẫu sau đó mới chuyển sang tệp PDF.

Bài đã được tự động gộp: 13/8/23

Bạn đã để tên đường dẫn lưu file PDF này vào ô D1 chưa?

ví dụ D1=C:\Users\Admin\Downloads\

Mình không rõ bạn có thể giúp mình viết lại dòng lệnh được không?

 

[Hoàng Tuấn 868]

Mình không rõ bạn có thể giúp mình viết lại dòng lệnh được không?

Đây là địa chỉ đường dẫn đến thư mục (Folder) mà bạn muốn lưu file pdf mới được tạo ra trên máy tính của bạn, bạn phải tự làm vì địa chỉ đó nằm trên máy tính của bạn mà.

 

[hoahongden142917]

em cũng đóng góp chút xíu ạ.
Anh phải sửa đúng địa chỉ mà file pdf xuất ra vào code nhe anh.

Bài đã được tự động gộp: 14/8/23

em tích hợp code của anh HUONGHCKT vào luôn nè.

 

[Hoàng Tuấn 868]

Anh phải sửa đúng địa chỉ mà file pdf xuất ra vào code nhe anh.

Vậy thì ô D1 bị thừa mất rồi.

 

[huuthang_bd]

Mình muốn chuyển tệp Excel sang PDF nhưng mà khi chuyển nó bị cắt ra từng mảng nhỏ.

Tôi thấy do bạn không biết thiết lập trang in chứ trường hợp này không liên quan gì đến lập trình cả. Vùng in rộng thì bạn chỉ có 2 lựa chọn là in tỷ lệ nhỏ cho vừa khổ giấy của bạn hoặc chọn khổ giấy to hơn.

 

[thang_nguyen1]

Tôi thấy do bạn không biết thiết lập trang in chứ trường hợp này không liên quan gì đến lập trình cả. Vùng in rộng thì bạn chỉ có 2 lựa chọn là in tỷ lệ nhỏ cho vừa khổ giấy của bạn hoặc chọn khổ giấy to hơn.

Cái ý mình tự chỉnh bằng tay được còn lệnh để chuyển sang file PDF mình chưa rõ. Mong bạn giúp đỡ ạ

 

[huuthang_bd]

Cái ý mình tự chỉnh bằng tay được còn lệnh để chuyển sang file PDF mình chưa rõ. Mong bạn giúp đỡ ạ

Code xuất PDF thì chỉ 1 dòng như vầy thôi.

Sub SaveAsPDF()
   Sheets("NG").ExportAsFixedFormat 0, ThisWorkbook.FullName & ".pdf", 0, True, False, , , True
End Sub

 

[thang_nguyen1]

Mình muốn lưu có đường dẫn cụ thể thì phải viết lệnh ra sao ạ?

Code xuất PDF thì chỉ 1 dòng như vầy thôi.

Sub SaveAsPDF()
   Sheets("NG").ExportAsFixedFormat 0, ThisWorkbook.FullName & ".pdf", 0, True, False, , , True
End Sub

 

[Maika8008]

Mình muốn lưu có đường dẫn cụ thể thì phải viết lệnh ra sao ạ?

Sửa ThisWorkbook.FullName & ".pdf" thành đường dẫn + tên cần lưu

 

[huuthang_bd]

Mình muốn lưu có đường dẫn cụ thể thì phải viết lệnh ra sao ạ?

Các bài bên trên có rồi đó bạn. Còn nếu muốn chọn nơi lưu mỗi khi chạy code thì nghiên cứu Application.FileDialog hoặc Application.GetSaveAsFilename.