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,944 Được thích 11,370 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,944 Được thích 11,370 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,944 Được thích 11,370 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,944 Được thích 11,370 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

Q xin anh/chị giúp e đặt công thức tính tổng theo tuần của file có tháng chạy theo năm (3 người xem)

QUYNH THY
Hôm nay lúc 11:40
Hướng dẫn sử dụng các hàm trong Excel

Trả lời 0 Đọc 24 Hôm nay lúc 11:40 QUYNH THY Q N Xin các cao nhân chỉ giúp hàm phân ca ( 3 ca làm việc 24/7) (2 người xem)

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

Trả lời 10 Đọc 274 Hôm nay lúc 11:30 HieuCD H

Chia sẻ: Tạo thông báo nhắc nhở khi sắp đến ngày kỷ niệm (1 người xem)

huuthang_bd
6/5/21
Ứng dụng cho lĩnh vực khác

Trả lời 43 Đọc 12K Hôm nay lúc 07:07 Maika8008

Giao lưu Lào Việt

yeudoi
Hôm qua, lúc 18:05
Gặp gỡ Offline

Trả lời 0 Đọc 35 Hôm qua, lúc 18:05 yeudoi

Question Question

[Share] Tool tạo Ribbon XML cho Excel/Office: Kéo thả trực quan - Không cần cài đặt (2 người xem)

singfeng
Thứ bảy lúc 11:49
Lập Trình với Excel

Trả lời 4 Đọc 162 Hôm qua, lúc 17:23 HeSanbi

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 36 Đọc 1K Hôm qua, lúc 15:38 SA_DQ

Question Question

Excel có chứa chương trình VBA: Mỗi khi đã tắt vẫn hiện lại ô thông báo yêu cầu điền mật khẩu!

anhnghi07
26/9/24
Lập Trình với Excel

Trả lời 11 Đọc 810 Hôm qua, lúc 09:53 Gà Con yêu VBA

O Xin mọi người giúp e xử lý file Xuất nhập tồn (từ dọc -> ngang) ạ!

oiquetoi
7/1/26
Hàm và công thức Excel

Trả lời 23 Đọc 571 Chủ nhật lúc 19:05 oiquetoi O

Question Question

Tải hóa đơn điện tử (https://hoadondientu.gdt.gov.vn/) Excel Vba

ongke0711
6/10/24
Lập Trình với Excel

4 5 6 Trả lời 586 Đọc 86K Chủ nhật lúc 10:49 Officexinh O

Tổng hợp hóa chất sử dụng theo tháng (1 người xem)

biboylenka
Thứ tư lúc 14:08
Hàm và công thức Excel

Trả lời 16 Đọc 426 Thứ sáu lúc 21:40 Phan Thế Hiệp

Tìm kiếm nhanh trong drop down list

donhungtin2013
13/4/16
Tìm kiếm, dò tìm và tham chiếu

Trả lời 71 Đọc 31K Thứ sáu lúc 15:05 vt0411 V

Nhờ các bác hỗ trợ xem giúp em bài toán này nên dùng công thức nào với ạ!

LinhCoChi
Thứ tư lúc 08:44
Hàm và công thức Excel

Trả lời 5 Đọc 231 Thứ sáu lúc 08:57 LinhCoChi

H [Cần hỏi] Giải pháp tìm kiếm và gợi ý tự động trong ô excel

hungnh.ript
26/2/18
Hỏi đáp những vấn đề khác

Trả lời 10 Đọc 4K Thứ sáu lúc 08:21 vt0411 V

Cập nhật dữ liệu từ sheet phụ sang sheet tổng

Gà Công Nghệ
12/1/26
Những vấn đề chung

Trả lời 15 Đọc 384 Thứ năm lúc 07:12 Gà Công Nghệ

Kính gửi diễn đàn

hongphuong1997
13/1/26
Giao lưu Online

Trả lời 8 Đọc 319 Thứ tư lúc 12:32 ptm0412

A Menu con Data là Datavadition bị mờ

AnhThu-1976
Thứ tư lúc 11:01
Những vấn đề chung

Trả lời 2 Đọc 130 Thứ tư lúc 11:57 AnhThu-1976 A

Dán lên cao
Question Question

Index - Các bài viết về VBA

befaint
4/9/17
Lập Trình với Excel

Trả lời 6 Đọc 32K Thứ tư lúc 11:20 hoaiantrinh H

Đã giải quyết

HÀM FITROW - Co giãn dòng tự động và bổ trợ in ấn Excel v2.46 (*19/02/2025)

HeSanbi
18/4/21
Lập Trình với Excel

Trả lời 58 Đọc 29K Thứ tư lúc 09:45 Cát Lượng

TaxCode v4.27 - Add-in Tra cứu mã số thuế từ tổng cục thuế nhanh chóng

HeSanbi
27/11/25
Các Add-ins cho excel

Trả lời 17 Đọc 2K Thứ tư lúc 08:14 HeSanbi

N Cách lọc giá trị trùng có nhiều điều kiện

Ngọc Ngọc (Eira)
13/1/26
Tìm kiếm, dò tìm và tham chiếu

Trả lời 2 Đọc 150 Thứ tư lúc 08:06 Ngọc Ngọc (Eira) N 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

ptm0412 21
Phan Thế Hiệp 19
dungpham01 13
SA_DQ 11
oiquetoi 10
AnhThu-1976 9
Gà Công Nghệ 9
thanthanhan 8
DeTong 7
sangdennh 7
Cúc Hr 7
DamMeVBAvaExcel 6
chiendich 5
Gà Con yêu VBA 5
Duy Tùng 9x 4
2013myvietnam 4
HUONGHCKT 4
thanhphongtslocphat 4
biboylenka 4
HieuCD 4

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

Phan Thế Hiệp 54
ptm0412 37
dungpham01 17
thanthanhan 12
HieuCD 11
hoangtuaotrang_hp_vn 6
Cúc Hr 6
singfeng 6
DeTong 5
2013myvietnam 5
HUONGHCKT 5
SA_DQ 5
chiendich 4
LOGANWover 3
le_vis 3
AnhThu-1976 3
biboylenka 3
HeSanbi 3
huuthang_bd 3
huhumalu 2

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ệ