Xuất Hàng Loạt Từ Excel Sang PDF Trong 1 File

Có thể bạn quan tâm

Trang chủ Có gì mới Hoạt động gần nhất Tác giả
Diễn đàn Tìm bài viết mới Tìm theo chuyên mục
Video Video về Excel Video về tin học khác Tin tức về tin học chung
Thông tin mới Featured content Tìm bài mới Tài Nguyên Mới Hoạt động gần nhất
Tài nguyên Đánh giá mới nhất Tìm tài nguyên
Facebook
Đóng góp

Đăng nhập Đăng Ký Có gì mới? Tìm kiếm

Tìm kiếm

Mọi nơi Đề tài Diễn đàn này Đề tài này Chỉ tìm trong tiêu đề Note Bởi: Tìm kiếm Tìm nâng cao…

Tìm bài viết mới
Tìm theo chuyên mục

Menu Đăng nhập Đăng Ký Install the app Install How to install the app on iOS

Follow along with the video below to see how to install our site as a web app on your home screen.

Note: This feature may not be available in some browsers.

Khách ơi! GPE thông tin đến bạn ấn phẩm "lập trình VBA trong Excel": - Phần cơ bản - Phần Nâng Cao - VBA trong Excel - Cải thiện và tăng tốc

Trang chủ
Diễn đàn
Lập Trình với Excel

You are using an out of date browser. It may not display this or other websites correctly.You should upgrade or use an alternative browser. Xuất hàng loạt từ Excel sang PDF trong 1 file (1 người xem)

Thread starter Thread starter Miccpro
Ngày gửi Ngày gửi 1/2/18

Người dùng đang xem chủ đề này

Đang trực tuyến: 2 (Thành viên: 0, Khách: 2) M

Miccpro

Thành viên thường trực

Tham gia 9/12/10 Bài viết 236 Được thích 10 Em sưu tầm được trên mạng File xuất excel sang PDF. Sau khi xuất xong có thể dùng Web hoặc Phần mềm trung gian để gộp tất cả File PDF đó thành 1 File PDF duy nhất. Mong muốn của em là không dùng phần mềm trung gian mà xử lý bằng VBA để xuất ra 1 File duy nhất luôn ạ. Em xin cảm ơn

File đính kèm

Ung-dung-Spinner-xuat-PDF-03.xlsm Ung-dung-Spinner-xuat-PDF-03.xlsm 31.9 KB · Đọc: 174

Sắp xếp theo thời gian sắp xếp theo bầu chọn M

Miccpro

Thành viên thường trực

Tham gia 9/12/10 Bài viết 236 Được thích 10 Nếu VBA không xử lý được xuất 1 FIle duy nhất mong các bác giúp em: Tự động tạo 1 sheet 1, coppy đúng định dạng các trang sang sheet vừa tạo, xuất PDF và xóa Sheet vừa tạo được không ạ Upvote 0 M

Miccpro

Thành viên thường trực

Tham gia 9/12/10 Bài viết 236 Được thích 10

Miccpro đã viết: Nếu VBA không xử lý được xuất 1 FIle duy nhất mong các bác giúp em: Tự động thêm mới 1 sheet, coppy đúng định dạng các trang sang sheet vừa tạo, xuất PDF và xóa Sheet vừa tạo được không ạ Nhấp chuột vào đây để mở rộng...

Híc, Em sửa bài đăng mà ấn nhầm Reply, xin lỗi ạ Upvote 0 M

moctriet

Thành viên thường trực

Tham gia 17/12/17 Bài viết 230 Được thích 140 Đang bận code nên chỉ giúp bạn chút thông tin tham khảo. https://trumpexcel.com/convert-excel-to-pdf/ Upvote 0 M

Miccpro

Thành viên thường trực

Tham gia 9/12/10 Bài viết 236 Được thích 10

moctriet đã viết: Đang bận code nên chỉ giúp bạn chút thông tin tham khảo. https://trumpexcel.com/convert-excel-to-pdf/ Nhấp chuột vào đây để mở rộng...

Link die bác ạ. Nếu rảnh bác giúp em được nhé! cảm ơn bác Upvote 0 C

chisinhvnn

Thành viên tiêu biểu

Tham gia 7/3/08 Bài viết 479 Được thích 106 link còn dùng được mà

Miccpro đã viết: Link die bác ạ. Nếu rảnh bác giúp em được nhé! cảm ơn bác Nhấp chuột vào đây để mở rộng...

Link còn dùng được mà bạn Upvote 0 M

Miccpro

Thành viên thường trực

Tham gia 9/12/10 Bài viết 236 Được thích 10

chisinhvnn đã viết: link còn dùng được mà Link còn dùng được mà bạn Nhấp chuột vào đây để mở rộng...

Em tìm thấy code này: Mã: Sao chép. Sub PrintAllSheetsToPDF() 'SUBROUTINE: PrintAllSheetsToPDF 'DEVELOPER: Ryan Wells 'DESCRIPTION: Combine all your worksheets into one PDF Dim strSheets() As String Dim strfile As String Dim sh As Worksheet Dim icount As Integer Dim myfile As Variant 'Save Chart Sheet names to an Array For Each sh In ActiveWorkbook.Worksheets If sh.Visible = xlSheetVisible Then ReDim Preserve strSheets(icount) strSheets(icount) = sh.Name icount = icount + 1 End If Next sh If icount = 0 Then 'No charts found. Punch error MsgBox "A PDF cannot be created because no sheets were found.", , "No Sheets Found" Exit Sub End If 'Prompt for save location strfile = "Sheets" & "_" _ & Format(Now(), "yyyymmdd_hhmmss") _ & ".pdf" strfile = ThisWorkbook.Path & "\" & strfile myfile = Application.GetSaveAsFilename _ (InitialFileName:=strfile, _ FileFilter:="PDF Files (*.pdf), *.pdf", _ Title:="Select Folder and File Name to Save as PDF") If myfile <> "False" Then 'save as PDF ThisWorkbook.Sheets(strSheets).Select ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, FileName:= _ myfile, Quality:=xlQualityStandard, IncludeDocProperties:=True, _ IgnorePrintAreas:=False, OpenAfterPublish:=True Else MsgBox "No File Selected. PDF will not be saved", vbOKOnly, "No File Selected" End If End Sub Nhưng không vận dụng được vào file đính kèm, bác giúp em được không, cảm ơn bác Upvote 0 M

Miccpro

Thành viên thường trực

Tham gia 9/12/10 Bài viết 236 Được thích 10 Có anh chị nào giúp được em không ạ. Hay là dùng phương án tạo file mới với nhiều sheets, sau khi xuất sang PDF thì xóa file hoặc coppy vào 1 sheet sau đó xuất dữ liệu từ sheet đó sang PDF. Mong các anh chị hướng dẫn, em xin cảm ơn Upvote 0

nmhung49

Thành viên tích cực

Tham gia 20/8/09 Bài viết 1,186 Được thích 1,338

Miccpro đã viết: Có anh chị nào giúp được em không ạ. Hay là dùng phương án tạo file mới với nhiều sheets, sau khi xuất sang PDF thì xóa file hoặc coppy vào 1 sheet sau đó xuất dữ liệu từ sheet đó sang PDF. Mong các anh chị hướng dẫn, em xin cảm ơn Nhấp chuột vào đây để mở rộng...

Bạn dùng code đơn giản này chỉnh sửa lại theo yêu cầu Mã: Sao chép. Sub Macro1() Sheets(Array("Sheet1", "Sheet2", "Sheet3")).Select 'Sheet1, sheet2, sheet3 la ten cac sheet muon in hang loat ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _ ThisWorkbook.FullName, Quality:=xlQualityStandard, _ IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _ False End Sub Upvote 0 M

Miccpro

Thành viên thường trực

Tham gia 9/12/10 Bài viết 236 Được thích 10

nmhung49 đã viết: Bạn dùng code đơn giản này chỉnh sửa lại theo yêu cầu Mã: Sao chép. Sub Macro1() Sheets(Array("Sheet1", "Sheet2", "Sheet3")).Select 'Sheet1, sheet2, sheet3 la ten cac sheet muon in hang loat ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _ ThisWorkbook.FullName, Quality:=xlQualityStandard, _ IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _ False End Sub Nhấp chuột vào đây để mở rộng...

Em đang muốn cách xuất từ excel sang PDF chi trong 1 file PDF. Còn File đính kèm bài #1 đang xuất thành nhiều file PDF . Code của bác là sau khi đã đưa được ra các sheet thì Select All Sheet Upvote 0

huuthang_bd

Chuyên gia GPE

Tham gia 10/9/08 Bài viết 8,942 Được thích 11,366 Donate (Momo)

Giới tính Nam Nghề nghiệp Thợ đụng Mấy bác cứ trả lời mà chả chịu đọc yêu cầu của chủ thớt nên cứ trả lời đâu đâu -> khổ cho chủ thớt

File đính kèm

Ung-dung-Spinner-xuat-PDF-03.xlsm Ung-dung-Spinner-xuat-PDF-03.xlsm 29.4 KB · Đọc: 203

Upvote 0 M

Miccpro

Thành viên thường trực

Tham gia 9/12/10 Bài viết 236 Được thích 10

huuthang_bd đã viết: Mấy bác cứ trả lời mà chả chịu đọc yêu cầu của chủ thớt nên cứ trả lời đâu đâu -> khổ cho chủ thớt . Nhấp chuột vào đây để mở rộng...

cảm ơn anh rất rất nhiều ạ. Tuyệt vời luôn anh ạ TIện thể cho em phiền xíu nữa, nếu lưu file mà trung tên, nếu không muốn xóa file cũ (không lưu đè) mà tạo thêm file mới thì có cách nào lưu giống mặc định excel là Name (1). pdf không anh Upvote 0

huuthang_bd

Chuyên gia GPE

Tham gia 10/9/08 Bài viết 8,942 Được thích 11,366 Donate (Momo)

Giới tính Nam Nghề nghiệp Thợ đụng

Miccpro đã viết: cảm ơn anh rất rất nhiều ạ. Tuyệt vời luôn anh ạ TIện thể cho em phiền xíu nữa, nếu lưu file mà trung tên, nếu không muốn xóa file cũ (không lưu đè) mà tạo thêm file mới thì có cách nào lưu giống mặc định excel là Name (1). pdf không anh Nhấp chuột vào đây để mở rộng...

Đã có cửa sổ đặt tên file thì cứ đặt tên trên đó chứ ai lại đặt tự động theo kiểu đó. Tôi bổ sung cho bạn cảnh báo lưu trùng tên.

File đính kèm

Ung-dung-Spinner-xuat-PDF-03.xlsm Ung-dung-Spinner-xuat-PDF-03.xlsm 31.3 KB · Đọc: 173

Upvote 0 M

Miccpro

Thành viên thường trực

Tham gia 9/12/10 Bài viết 236 Được thích 10

huuthang_bd đã viết: Đã có cửa sổ đặt tên file thì cứ đặt tên trên đó chứ ai lại đặt tự động theo kiểu đó. Tôi bổ sung cho bạn cảnh báo lưu trùng tên. Nhấp chuột vào đây để mở rộng...

Em đã test rất nhiều file của anh nhưng còn vướng 2 vấn đề để hoàn thiện. Đành phiền anh thêm vậy: 1. File excel đã Set Print_Area trong khổ giấy A4 nhưng xuất sang pdf lại là chế độ Letter nên bị tràn trang in. Em đã thử thêm Mã: Sao chép. TmpSh.PageSetup.PaperSize = xlPaperA4 nhưng không được. 2. Các hàng ở File excel đang ẩn thì sang Pdf bị lộ hết và chiều rộng của hàng bị thay đổi

Mong anh giúp đỡ, em xin cảm ơn! Lần chỉnh sửa cuối: 2/2/18 Upvote 0

huuthang_bd

Chuyên gia GPE

Tham gia 10/9/08 Bài viết 8,942 Được thích 11,366 Donate (Momo)

Giới tính Nam Nghề nghiệp Thợ đụng

Miccpro đã viết: Em đã test rất nhiều file của anh nhưng còn vướng 2 vấn đề để hoàn thiện. Đành phiền anh thêm vậy: 1. File excel đã Set Print_Area trong khổ giấy A4 nhưng xuất sang pdf lại là chế độ Letter nên bị tràn trang in. Em đã thử thêm Mã: Sao chép. TmpSh.PageSetup.PaperSize = xlPaperA4 nhưng không được. 2. Các hàng ở File excel đang ẩn thì sang Pdf bị lộ hết và chiều rộng của hàng bị thay đổi Mong anh giúp đỡ, em xin cảm ơn! Nhấp chuột vào đây để mở rộng...

Nếu là vấn đề trên file ở bài #1 tôi sẽ hỗ trợ tiếp. Còn là file khác là do bạn đặt câu hỏi không sát với yêu cầu, đưa file giả lập không đúng với thực tế. Có khi chỉ thay đổi yêu cầu một chút thôi phải viết lại toàn bộ code

. Đây là bài học đã được nói đi nói lại nhiều lần trên GPE. Tạm biệt. Upvote 0 M

Miccpro

Thành viên thường trực

Tham gia 9/12/10 Bài viết 236 Được thích 10

huuthang_bd đã viết: Nếu là vấn đề trên file ở bài #1 tôi sẽ hỗ trợ tiếp. Còn là file khác là do bạn đặt câu hỏi không sát với yêu cầu, đưa file giả lập không đúng với thực tế. Có khi chỉ thay đổi yêu cầu một chút thôi phải viết lại toàn bộ code . Đây là bài học đã được nói đi nói lại nhiều lần trên GPE. Tạm biệt. Nhấp chuột vào đây để mở rộng...

Vâng, do em không lường hết khi trường hợp khi hỏi, thành thật xin lỗi. Em hiểu "Có khi chỉ thay đổi yêu cầu một chút thôi phải viết lại toàn bộ code" vì trong trường hợp trên rõ ràng phải thay đổi code (excel sẽ tự động Auot Fit Row Height khi paste). Em đã thử tạo file mới rồi move or copy sang (cái này giữ nguyên định dạng) nhưng không được do trong sheet chứa code VBA nên bị báo lỗi. Cảm ơn anh rất nhiều Upvote 0 T

thoai

Thành viên thường trực

Tham gia 5/8/06 Bài viết 225 Được thích 25

huuthang_bd đã viết: Mấy bác cứ trả lời mà chả chịu đọc yêu cầu của chủ thớt nên cứ trả lời đâu đâu -> khổ cho chủ thớt . Nhấp chuột vào đây để mở rộng...

Sao xuất bị lỗi dòng này Anh Sub XuatPDF() Dim maxR As Integer Dim sFilename As String, Rs As Long, TmpSh As Worksheet sFilename = Application.GetSaveAsFilename(Replace(ThisWorkbook.FullName, ".xlsm", ".pdf"), "PDF, *.pdf") If sFilename = "False" Then Exit Sub Application.ScreenUpdating = False Set TmpSh = Sheets.Add maxR = Sheet1.Range("F" & Rows.Count).End(xlUp).Value Sheet1.[Print_Area].Copy TmpSh.[A1].PasteSpecial xlPasteColumnWidths For x = 1 To maxR With Sheet1.Range("M2") .Value = x Call Spinner_getData With Sheet1.[Print_Area] .Copy TmpSh.Cells(Rs + 1, 1) TmpSh.Cells(Rs + 1, 1).Resize(4, .Columns.Count).Value = .Resize(4).Value Rs = Rs + .Rows.Count TmpSh.HPageBreaks.Add TmpSh.Cells(Rs + 1, 1) End With End With Next TmpSh.ExportAsFixedFormat Type:=xlTypePDF, Filename:=sFilename, Quality:=xlQualityStandard Application.DisplayAlerts = False TmpSh.Delete Application.DisplayAlerts = True Application.ScreenUpdating = True MsgBox "Well Done!" End Sub

File đính kèm

Untitled.png 146.5 KB · Đọc: 54

Upvote 0

huuthang_bd

Chuyên gia GPE

Tham gia 10/9/08 Bài viết 8,942 Được thích 11,366 Donate (Momo)

Giới tính Nam Nghề nghiệp Thợ đụng Excel 2007 không hỗ trợ xuất PDF. Bạn tìm và cài đặt thêm phần mềm SaveAsPDFandXPS là được. Upvote 0 T

trongtuandkt

Thành viên mới

Tham gia 10/10/18 Bài viết 6 Được thích 0

huuthang_bd đã viết: Mấy bác cứ trả lời mà chả chịu đọc yêu cầu của chủ thớt nên cứ trả lời đâu đâu -> khổ cho chủ thớt . Nhấp chuột vào đây để mở rộng...

bác giúp e sửa code này với, hiện nó chạy ra nhiều file pdf e cũng muốn nó chỉ xuất ra 1 file pdf thôi Private Function xuatpdf(ByVal FileName As String) As String Dim n As Long Dim sFolder As String, sFile As String, sExt As String, sTmpFile As String sTmpFile = FileName With CreateObject("Scripting.FileSystemObject") sExt = .GetExtensionName(FileName) sFolder = .GetParentFolderName(FileName) sFile = .GetBaseName(FileName) Do While .FileExists(sTmpFile) = True n = n + 1 sTmpFile = .BuildPath(sFolder, sFile & "(" & n & ")." & sExt) Loop xuatpdf = sTmpFile End With End Function Sub pdf() Dim filepdf As String Dim a1, a2, i, j& a1 = Sheet2.Range("M19").Value a2 = Sheet2.Range("M20").Value B = Sheet2.Range("N16").Value m = 1 Do m = m + 1 If a1 <= a2 Then For i = a1 To a2 Sheet2.Range("L16").Value = (i - 1) * 10 + 1 filepdf = xuatpdf(ThisWorkbook.Path & "\" & i & ".pdf") Sheet2.ExportAsFixedFormat xlTypePDF, filepdf filepdf = xuatpdf(ThisWorkbook.Path & "\" & i + 2 & ".pdf") Sheet3.ExportAsFixedFormat xlTypePDF, filepdf Next End If If m > B Then Exit Do Loop End Sub Upvote 0 be_09

be_09

Biên Hòa, Đồng Nai

Tham gia 9/4/11 Bài viết 9,972 Được thích 9,884 Nghề nghiệp Công chức

Miccpro đã viết: Em sưu tầm được trên mạng File xuất excel sang PDF. Sau khi xuất xong có thể dùng Web hoặc Phần mềm trung gian để gộp tất cả File PDF đó thành 1 File PDF duy nhất. Mong muốn của em là không dùng phần mềm trung gian mà xử lý bằng VBA để xuất ra 1 File duy nhất luôn ạ. Em xin cảm ơn Nhấp chuột vào đây để mở rộng...

Góp ý cho bạn: 1/ Tìm bài viết với từ khóa In phiếu thu chi hàng loạt, code sẽ ngắn gọn hơn. 2/ Thay gì chọn máy in thì bạn chọn in PDF. Upvote 0 T

trongtuandkt

Thành viên mới

Tham gia 10/10/18 Bài viết 6 Được thích 0

be09 đã viết: Góp ý cho bạn: 1/ Tìm bài viết với từ khóa In phiếu thu chi hàng loạt, code sẽ ngắn gọn hơn. 2/ Thay gì chọn máy in thì bạn chọn in PDF. Nhấp chuột vào đây để mở rộng...

Minh đã in tự động với code đó được rồi.nhưng hiện tại nó xuất 1 trang in ra 1 file pdf. nếu nối thì bất tiện nên mục đích của mình muốn xuất tất cả ra 1 file pdf thôi nên nhờ các bạn chỉnh hộ code. Cảm ơn các bạn rất nhiều! Private Function xuatpdf(ByVal FileName As String) As String Dim n As Long Dim sFolder As String, sFile As String, sExt As String, sTmpFile As String sTmpFile = FileName With CreateObject("Scripting.FileSystemObject") sExt = .GetExtensionName(FileName) sFolder = .GetParentFolderName(FileName) sFile = .GetBaseName(FileName) Do While .FileExists(sTmpFile) = True n = n + 1 sTmpFile = .BuildPath(sFolder, sFile & "(" & n & ")." & sExt) Loop xuatpdf = sTmpFile End With End Function Sub pdf() Dim filepdf As String Dim a1, a2, i, j& a1 = Sheet2.Range("M19").Value a2 = Sheet2.Range("M20").Value If a1 < a2 Then For i = a1 To a2 Sheet2.Range("L16").Value = (i - 1) * 10 + 1 filepdf = xuatpdf(ThisWorkbook.Path & "\" & i & ".pdf") Sheet2.ExportAsFixedFormat xlTypePDF, filepdf Next End If End Sub Bài đã được tự động gộp: 13/10/18

huuthang_bd đã viết: Excel 2007 không hỗ trợ xuất PDF. Bạn tìm và cài đặt thêm phần mềm SaveAsPDFandXPS là được. Nhấp chuột vào đây để mở rộng...

File đính kèm

BIEU XUAT PDF.xls BIEU XUAT PDF.xls 3.1 MB · Đọc: 32
BIEU XUAT PDF.xls BIEU XUAT PDF.xls 3.1 MB · Đọc: 25

Upvote 0 T

trongtuandkt

Thành viên mới

Tham gia 10/10/18 Bài viết 6 Được thích 0 hic có bạn nào giúp mình với Upvote 0

Doãn Quốc Bình

Thành viên chính thức

Tham gia 18/7/18 Bài viết 59 Được thích 3 Giới tính Nam

nmhung49 đã viết: Bạn dùng code đơn giản này chỉnh sửa lại theo yêu cầu Mã: Sao chép. Sub Macro1() Sheets(Array("Sheet1", "Sheet2", "Sheet3")).Select 'Sheet1, sheet2, sheet3 la ten cac sheet muon in hang loat ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _ ThisWorkbook.FullName, Quality:=xlQualityStandard, _ IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _ False End Sub Nhấp chuột vào đây để mở rộng...

báo lỗi dòng này: Sheets(Array("Sheet1", "Sheet2", "Sheet3")).Select làm sao bây giờ các bác Upvote 0

hoamattroicoi

Thành viên gắn bó

Thành viên BQT Moderator Tham gia 19/12/10 Bài viết 2,587 Được thích 5,775 Nghề nghiệp Công nhân vệ sinh số liệu

Doãn Quốc Bình đã viết: báo lỗi dòng này: Sheets(Array("Sheet1", "Sheet2", "Sheet3")).Select làm sao bây giờ các bác Nhấp chuột vào đây để mở rộng...

Bạn kiểm tra tên sheet trong file của bạn có tên Sheet1, Sheet2, Sheet3 không hay là tên khác, nếu là tên khác thì thay tên tương ứng vào code này.

Upvote 0

Doãn Quốc Bình

Thành viên chính thức

Tham gia 18/7/18 Bài viết 59 Được thích 3 Giới tính Nam

hoamattroicoi đã viết: Bạn kiểm tra tên sheet trong file của bạn có tên Sheet1, Sheet2, Sheet3 không hay là tên khác, nếu là tên khác thì thay tên tương ứng vào code này. View attachment 247507 Nhấp chuột vào đây để mở rộng...

mình thay rồi mà vẫn báo lỗi đó bạn Upvote 0

quangduocx1

Thành viên mới

Tham gia 9/2/19 Bài viết 1 Được thích 0

huuthang_bd đã viết: Đã có cửa sổ đặt tên file thì cứ đặt tên trên đó chứ ai lại đặt tự động theo kiểu đó. Tôi bổ sung cho bạn cảnh báo lưu trùng tên. Nhấp chuột vào đây để mở rộng...

anh ơi cho e nhớ vs ạ. e, đang bị vướng là e đang làm lại file HSCLCTHANOI để xuất sheet 3 vs sheet 4 với chỉ số chạy ra pdf thành 1 file mà e chưa làm được ạ, e có xem mấy file vs mấy code của các anh chị mà e chưa làm được anh, hướng dẫn thêm cho e vs ạ, kiểu xuất pdf như file lylichcoc ạ e cảm ơn anh ạ

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

quangduocx1 đã viết: anh ơi cho e nhớ vs ạ. e, đang bị vướng là e đang làm lại file HSCLCTHANOI để xuất sheet 3 vs sheet 4 với chỉ số chạy ra pdf thành 1 file mà e chưa làm được ạ, e có xem mấy file vs mấy code của các anh chị mà e chưa làm được anh, hướng dẫn thêm cho e vs ạ, kiểu xuất pdf như file lylichcoc ạ e cảm ơn anh ạ Nhấp chuột vào đây để mở rộng...

Option Explicit Sub InHangLoat() Dim I As Integer, m As Integer Dim TenCoc As String, lylichcoc As String m = Range("DT.NK!B" & Cells.Rows.Count).End(xlUp).Row For I = 13 To m TenCoc = Range("DT.NK!B" & I).FormulaR1C1 With Sheets("2. NK") .Range("R2").FormulaR1C1 = TenCoc End With lylichcoc = "lylichcoc" & I & ".pdf" ThisWorkbook.Sheets(Array("2. NK", "3. Dia Chat", "4. PTDBT")).Select ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _ "D:\" & lylichcoc, Quality:=xlQualityStandard, _ IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _ True Next I End Sub code chạy file lylichcoc

File đính kèm

HSCLCTHANOI.xlsm HSCLCTHANOI.xlsm 50.7 KB · Đọc: 24
lylichcoc.xlsx lylichcoc.xlsx 2.3 MB · Đọc: 25

Lần chỉnh sửa cuối: 8/12/20 Upvote 0 C

chungpvc

Thành viên mới

Tham gia 10/3/18 Bài viết 1 Được thích 0 Giới tính Nam Chào các bác, các bác giúp em vấn đề này với ạ. Em muốn xuất hàng loạt file excel ở sheet "PYCK95" ra file pdf rời rạc, dữ liệu ở sheet "PYCK95" được lấy từ sheet "ML" sang. File pdf sẽ lưu dưới định dạng "Cell C7".pdf Bác nào biết chỉ giáo em với ạ. Em xin cảm ơn.

File đính kèm

1. Test xuat pdf.xlsm 1. Test xuat pdf.xlsm 1.6 MB · Đọc: 15

Upvote 0 Bạn phải đăng nhập hoặc đăng ký để trả lời bài viết tại đây.

Bài viết mới nhất

hỏi về công thức tách kí tự từ chuỗi (3 người xem)

Momominh
Thứ bảy lúc 11:52
Hàm và công thức Excel

Trả lời 9 Đọc 166 Hôm nay lúc 03:24 DeTong D T Mọi người giúp mình lập bảng tính sao hạn ạ (1 người xem)

thinhthien1
Hôm qua, lúc 22:23
Tìm kiếm, dò tìm và tham chiếu

Trả lời 0 Đọc 22 Hôm qua, lúc 22:23 thinhthien1 T

Copilot bình luận các ván cờ vua từng ngày.

SA_DQ
3/11/25
Chia sẻ

Trả lời 22 Đọc 945 Hôm qua, lúc 15:32 SA_DQ

S TỰ ĐỘNG CẬP NHẬT DỮ LIỆU

sangdennh
Thứ sáu lúc 09:55
Hàm và công thức Excel

Trả lời 13 Đọc 385 Hôm qua, lúc 14:35 DeTong D

File.xlsx hay bị tự động out, khi mở lại báo lỗi repaired và chỉ lưu được đến lần last saved gần nhất ạ

zonmaomao
Thứ sáu lúc 21:50
Giải thích, gỡ rối, xử lý lỗi công thức

Trả lời 3 Đọc 86 Hôm qua, lúc 12:38 huhumalu H T Nhờ làm file excel quản lý kho N-X-T theo vị trí

Tuan_Leok
1/11/18
Excel Ứng Dụng

Trả lời 15 Đọc 5K Thứ bảy lúc 18:11 thanhphongtslocphat

Question Question

Liệt kê tổ hợp chập k của nhóm n phần tử.

NguyenNgocThuHien
5/12/17
Lập Trình với Excel

Trả lời 55 Đọc 19K Thứ sáu lúc 14:14 tohop T G Em xin hỏi hàm Vlook up ạ!

giangong
Thứ sáu lúc 10:23
Hàm và công thức Excel

Trả lời 1 Đọc 74 Thứ sáu lúc 10:38 dungpham01 D

Chương trình lập Báo cáo khảo sát Địa chất công trình GeoSection

PhanTuHuong
7/10/21
Xây dựng ứng dụng.

Trả lời 10 Đọc 7K Thứ năm lúc 14:52 PhanTuHuong

2 Xin hỏi về Công thức tính tiết theo PPCT (phân phối chương trình) trong Lịch báo giảng tự động

2013myvietnam
Thứ tư lúc 20:22
Excel và Giáo Dục

Trả lời 9 Đọc 311 Thứ năm lúc 14:25 2013myvietnam 2 V Giúp tạo bảng phân công lịch trực tự động

vudaicacvatn
Thứ tư lúc 17:05
Những vấn đề chung

Trả lời 4 Đọc 164 Thứ năm lúc 08:51 thanthanhan

[GPE21] ỨNG DỤNG POWER QUERY TRONG ĐỐI CHIẾU DỮ LIỆU HÓA ĐƠN ĐIỆN TỬ VÀ DỮ LIỆU KẾ TOÁN

GPE-Trợ Lý
21/12/25
Học tập Online

Trả lời 1 Đọc 10K Thứ năm lúc 05:26 GPE-Trợ Lý

Nhờ các cao nhân chỉ giúp file excel quá nặng. không không biết nguyên nhân

hanhlx88
29/12/25
Giải thích, gỡ rối, xử lý lỗi công thức

Trả lời 5 Đọc 236 Thứ tư lúc 22:56 Mr.hieudoanxd

Q Nhờ các anh chị giúp cho công thức đếm số khách hàng theo File đính kèm

QUANSUNG
29/12/25
Hướng dẫn sử dụng các hàm trong Excel

Trả lời 8 Đọc 279 Thứ tư lúc 16:31 dungpham01 D T Nhờ các Pro giúp thiết lập bảng excel

thanhkybk
29/12/25
Hàm và công thức Excel

Trả lời 10 Đọc 458 Thứ tư lúc 15:19 thanhkybk T D

Question Question

Tách dòng tự động theo điều kiện bằng VBA

duongnhuxuyen
12/12/25
Lập Trình với Excel

Trả lời 20 Đọc 770 Thứ ba lúc 10:32 ptm0412

D Công thức tính thuế TNCN cho người lao động nước ngoài

Dinh Hong Nhung
29/12/25
Hàm và công thức Excel

Trả lời 1 Đọc 211 29/12/25 Phan Thế Hiệp

D Công thức tính thuế thu nhập cá nhân mới nhất theo mức 5 bậc

Dinh Hong Nhung
11/12/25
Hàm và công thức Excel

Trả lời 16 Đọc 2K 29/12/25 dungpham01 D L [Nhờ giúp đỡ] Tìm khoảng thời gian bị gối, hoặc trùng nhau

Lá chanh
26/12/25
Hàm và công thức Excel

Trả lời 8 Đọc 247 29/12/25 lamvankhoat1 L B Tính 1 đồng Doanh thu thuần mang về thì còn lại được bao nhiêu đồng EBITDA

Bobby52
27/12/25
Hàm và công thức Excel

Trả lời 0 Đọc 125 27/12/25 Bobby52 B Xem thêm… Chia sẻ: Facebook X Bluesky LinkedIn Reddit Pinterest Tumblr WhatsApp Email Chia sẻ Link

Thành viên có số lượng bài viết cao nhất tháng

sangdennh 7
Phan Thế Hiệp 5
dungpham01 5
2013myvietnam 4
DeTong 4
Duy Tùng 9x 3
thanhphongtslocphat 2
zonmaomao 2
huhumalu 2
SA_DQ 2
thanthanhan 1
PhanTuHuong 1
giangong 1
tohop 1
thinhthien1 1
Momominh 1
huuthang_bd 1

Thành viên có điểm tương tác cao nhất tháng

Phan Thế Hiệp 13
2013myvietnam 5
dungpham01 3
thanthanhan 2
PhanTuHuong 2
huhumalu 2
Duy Tùng 9x 1
SA_DQ 1

Thời gian đếm ngược.

000 Ngày 00 Giờ 00 phút 00 giây Thân mời tham dự sự kiện sinh nhật GPE 2025

Trang chủ
Diễn đàn
Lập Trình với Excel

Website này sử dụng cookies. Tiếp tục sử dụng trang này, đồng nghĩa với việc bạn chấp nhận website sử dụng cookies. Chấp nhận Tìm hiểu thêm.…

Back Top Bottom

Từ khóa » Chuyển Excel Sang Pdf Hàng Loạt

Tìm kiếm

Người dùng đang xem chủ đề này

Miccpro

Thành viên thường trực

File đính kèm

Miccpro

Thành viên thường trực

Miccpro

Thành viên thường trực

moctriet

Thành viên thường trực

Miccpro

Thành viên thường trực

chisinhvnn

Thành viên tiêu biểu

Miccpro

Thành viên thường trực

Miccpro

Thành viên thường trực

nmhung49

Thành viên tích cực

Miccpro

Thành viên thường trực

huuthang_bd

Chuyên gia GPE

File đính kèm

Miccpro

Thành viên thường trực

huuthang_bd

Chuyên gia GPE

File đính kèm

Miccpro

Thành viên thường trực

huuthang_bd

Chuyên gia GPE

Miccpro

Thành viên thường trực

thoai

Thành viên thường trực

File đính kèm

huuthang_bd

Chuyên gia GPE

trongtuandkt

Thành viên mới

be_09

Biên Hòa, Đồng Nai

trongtuandkt

Thành viên mới

File đính kèm

trongtuandkt

Thành viên mới

Doãn Quốc Bình

Thành viên chính thức

hoamattroicoi

Thành viên gắn bó

Doãn Quốc Bình

Thành viên chính thức

quangduocx1

Thành viên mới

File đính kèm

chungpvc

Thành viên mới

File đính kèm

Bài viết mới nhất

Thành viên có số lượng bài viết cao nhất tháng

Thành viên có điểm tương tác cao nhất tháng

Thời gian đếm ngược.

Liên Hệ