Cách chuyển file Excel sang PDF sử dụng VBA
Chuyển đổi file Excel sang PDF bằng VBA
Trong bài viết này như thế nào , chúng tôi ở đâu tốt sẽ hướng dẫn bạn cách sử dụng VBA Excel - viết tắt nhanh nhất của Visual Basic for Applications sử dụng , một ngôn ngữ lập trình tích hợp trong Excel - full crack để chuyển đổi ứng dụng tất cả nội dung trong file Excel sang định dạng PDF tự động . Bài hướng dẫn chuyển Excel sang PDF tài khoản bao gồm: Chuyển ô tùy chọn sang PDF qua app , Chuyển một bảng (Table) sang PDF quảng cáo , Chuyển xóa tài khoản tất cả bảng sang file PDF cập nhật riêng biệt dịch vụ , Chuyển qua mạng tất cả bảng tính (Spreadsheet) sang một file PDF qua mạng , Chuyển bảng tính biểu đồ sang PDF link down và Chuyển đối tượng biểu đồ sang PDF.
Dưới đây chi tiết , chúng tôi tự động sẽ trình bày từng macro kèm theo một số chú thích tài khoản , từ đó bạn khóa chặn có thể tìm chúng nhanh chóng phải làm sao , sao chép vào trình chỉnh sửa VBA nhanh nhất của mình danh sách và sử dụng.
qua mạng Khi bạn chạy một macro bất kỳ nơi nào , hộp thoại Save As hỗ trợ sẽ xuất hiện mới nhất và hỏi bạn muốn lưu file PDF vào thư mục nào trong máy đăng ký vay . Tên mặc định tốt nhất bao gồm ngày tháng tài khoản và dấu thời gian (time stamp) khi bạn thực thi macro ở định dạng yyyymmdd_hhmmss (lần lượt là ngày tháng năm_giờ phút giây)
Dưới đây là qua web các macro:
Chuyển ô tùy chọn sang PDF (Print Selection To PDF)
Macro này quảng cáo sẽ chuyển đổi tài khoản các ô bạn tài khoản đã chọn thành PDF tốt nhất . giảm giá Nếu bạn chỉ chọn một ô qua app , macro VBA đủ thông mình hướng dẫn để nhận ra rằng có lẽ bạn không muốn chuyển một ô duy nhất vì thế nó nhanh nhất sẽ đề nghị bạn lựa chọn phạm vi ô muốn chuyển đổi:
Sub PrintSelectionToPDF()
"SUBROUTINE: PrintSelectionToPDF
"DEVELOPER: Chúng tôi
"DESCRIPTION: Chuyển cài đặt các ô hỗ trợ được chọn sang PDF
Dim ThisRng As Range
Dim strfile As String
Dim myfile As Variant
If Selection.Count = 1 Then
Set ThisRng = Application.InputBox("Select a range" qua app , "Get Range" thanh toán , Type:=8)
Else
Set ThisRng = Selection
End If
"Dấu nhắc thư mục lưu
strfile = "Selection" & "_" _
& Format(Now() nhanh nhất , "yyyymmdd_hhmmss") _
& ".pdf"
strfile = ThisWorkbook.Path & "" & strfile
myfile = Application.GetSaveAsFilename _
(InitialFileName:=strfile công cụ , _
FileFilter:="PDF Files (*.pdf) sửa lỗi , *.pdf" quản lý , _
Title:="Lựa chọn thư mục danh sách và tên file lưu thành PDF")
If myfile <> "False" Then "save as PDF
ThisRng.ExportAsFixedFormat Type:=xlTypePDF quản lý , Filename:= _
myfile thanh toán , Quality:=xlQualityStandard kiểm tra , IncludeDocProperties:=True cài đặt , _
IgnorePrintAreas:=False link down , OpenAfterPublish:=True
Else
MsgBox "Không có file đăng ký vay được chọn kiểm tra . Không thể lưu file PDF" miễn phí , vbOKOnly cài đặt , "Không có file ứng dụng được chọn"
End If
End Sub
Sau khi chọn phạm vi ô trên điện thoại và nhấn OK tính năng , trên màn hình qua web sẽ xuất hiện hộp thoại mới nhất để bạn chọn thư mục muốn lưu file PDF tăng tốc . Chương trình trên điện thoại sẽ tự động chọn thời gian tốt nhất và ngày tháng từ đồng hồ hệ thống kỹ thuật và chèn vào tên file.
Chuyển một bảng sang PDF (Print One Table To PDF)
Rất nhiều người dùng Excel chuyên nghiệp lựa chọn lưu dữ liệu tài khoản của họ vào bảng tải về . Macro này nguyên nhân được sử dụng giả mạo để chuyển đổi bảng bạn giả mạo đã chọn sang file PDF an toàn . xóa tài khoản Khi bạn chạy marco giảm giá , chương trình bản quyền sẽ yêu cầu bạn đặt tên cho bảng muốn lưu.
Sub PrintTableToPDF()
"SUBROUTINE: PrintTableToPDF
"DEVELOPER: Chúng tôi
"DESCRIPTION: Chuyển đổi bảng bạn chọn sang file PDF
Dim strfile As String
Dim myfile As Variant
Dim strTable As String như thế nào , r As Range
Application.ScreenUpdating = False
"Nhập tên bảng muốn lưu
strTable = InputBox("Tên bảng bạn muốn lưu là gì?" tốc độ , ""Nhập tên bảng") "Bảng muốn lưu
If Trim(strTable) = "" Then Exit Sub
"Dấu nhắc thư mục lưu
strfile = strTable & "_" _
& Format(Now() ở đâu tốt , "yyyymmdd_hhmmss") _
& ".pdf"
strfile = ThisWorkbook.Path & "" & strfile
myfile = Application.GetSaveAsFilename _
(InitialFileName:=strfile nguyên nhân , _
FileFilter:="PDF Files (*.pdf) dịch vụ , *.pdf" thanh toán , _
Title:="Lựa chọn thư mục kích hoạt và tên file lưu thành PDF")
If myfile <> "False" Thì "lưu thành PDF
Range(strTable).ExportAsFixedFormat Type:=xlTypePDF tối ưu , Filename:=myfile tối ưu , Quality:=xlQualityStandard ở đâu nhanh , _
IncludeDocProperties:=True link down , IgnorePrintAreas:=False kiểm tra , OpenAfterPublish:=True
Else
MsgBox "Không có file bản quyền được chọn thanh toán . Không thể lưu file PDF" chia sẻ , vbOKOnly quảng cáo , "Không có file nhanh nhất được chọn"
End If
Application.DisplayAlerts = False
LetsContinue:
With Application
.ScreenUpdating = True
.DisplayAlerts = True
End With
Exit Sub
End Sub
Sau khi bạn nhập tên bảng bản quyền và nhấn OK tải về , hộp thoại xóa tài khoản sẽ xuất hiện qua mạng để bạn lựa chọn thư mục muốn lưu file PDF qua app . Chương trình bản quyền sẽ tự động chọn thời gian ở đâu uy tín và ngày tháng từ đồng hồ hệ thống thanh toán và chèn vào tên file.
Chuyển an toàn tất cả bảng sang file PDF kỹ thuật riêng biệt (Print All Tables To Separate PDFs)
qua web Nếu bảng tính mật khẩu bao gồm nhiều bảng trong khi bạn cần lưu từng bảng thành một file PDF tính năng riêng chia sẻ , bạn trên điện thoại có thể chạy mã VBA này.
nơi nào Khi bạn chạy marco này chia sẻ , màn hình tính năng sẽ xuất hiện hộp thoại yêu cầu bạn lựa chọn thư mục muốn lưu file PDF.
Sau khi bạn chọn xong thư mục lừa đảo , macro trên điện thoại sẽ lưu từng bảng vào một file PDF nạp tiền riêng bằng tên bảng xuất hiện trong tiêu đề file PDF.
Sub PrintAllTablesToPDFs()
"SUBROUTINE: PrintAllTablesToPDFs
"DEVELOPER: Chúng tôi
"DESCRIPTION: Chuyển từng bảng trong bảng tính thành một file PDF sửa lỗi riêng
Dim strTables() As String
Dim strfile As String
Dim ch As Object tất toán , sh As Worksheet
Dim icount As Integer
Dim myfile As Variant
Dim tbl As ListObject
Dim sht As Worksheet
With Application.FileDialog(msoFileDialogFolderPicker)
.Title = "Bạn muốn lưu file PDF ở thư mục nào?"
.ButtonName = "Lưu ở đây"
.InitialFileName = ThisWorkbook.Path
If .Show = -1 Then " if OK is pressed
sfolder = .SelectedItems(1)
Else
End
End If
End With
For Each sht In ThisWorkbook.Worksheets
For Each tbl In sht.ListObjects
myfile = ThisWorkbook.Name & "" & tbl.Name & "" _
& Format(Now() tài khoản , "yyyymmdd_hhmmss") _
& ".pdf"
myfile = sfolder & "" & myfile
sht.Range(tbl.Name).ExportAsFixedFormat Type:=xlTypePDF nơi nào , Filename:= _
myfile ở đâu uy tín , Quality:=xlQualityStandard giảm giá , IncludeDocProperties:=True qua app , _
IgnorePrintAreas:=False tính năng , OpenAfterPublish:=True
Next tbl
Next sht
End Sub
Chuyển kỹ thuật tất cả bảng tính sang một file PDF (Print All Sheets To One PDF)
Trong nhiều trường hợp nạp tiền , người dùng Excel cần sao chép hầu hết bảng tính vào file PDF kiểm tra . File PDF này dịch vụ được chuyển đổi sử dụng để lưu trữ trên vi phim microfiche tốc độ . tổng hợp Nếu bạn phải làm sao cũng rơi vào tình huống tương tự chi tiết , macro VBA này tải về sẽ giúp bạn tự động chuyển dữ liệu tất cả bảng tính sang một file PDF.
Sub PrintAllSheetsToPDF()
"SUBROUTINE: PrintAllSheetsToPDF
"DEVELOPER: Chúng tôi
"DESCRIPTION: Kết hợp nhanh nhất tất cả bảng tính vào một file 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 trực tuyến . Punch error
MsgBox "Không thể tạo file PDF vì không tìm thấy bảng tính." giả mạo , giá rẻ , "Không tìm thấy bảng tính"
Exit Sub
End If
"Dấu nhắc thư mục lưu
strfile = "Sheets" & "_" _
& Format(Now() tất toán , "yyyymmdd_hhmmss") _
& ".pdf"
strfile = ThisWorkbook.Path & "" & strfile
myfile = Application.GetSaveAsFilename _
(InitialFileName:=strfile bản quyền , _
FileFilter:="PDF Files (*.pdf) xóa tài khoản , *.pdf" quản lý , _
Title:="Lựa chọn thư mục quảng cáo và tên file lưu thành PDF")
If myfile <> "False" Then "save as PDF
ThisWorkbook.Sheets(strSheets).Select
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF tất toán , Filename:= _
myfile danh sách , Quality:=xlQualityStandard bản quyền , IncludeDocProperties:=True mới nhất , _
IgnorePrintAreas:=False download , OpenAfterPublish:=True
Else
MsgBox "Không có file mới nhất được chọn mẹo vặt . Không thể lưu file PDF" tải về , vbOKOnly khóa chặn , "Không có file ở đâu nhanh được chọn"
End If
End Sub
Chuyển bảng tính biểu đồ sang PDF (Print Chart Sheets To PDF)
Macro này chuyển đổi mật khẩu tất cả bảng tính biểu đồ thành sang file PDF - bản quyền nhưng không chuyển tối ưu các đối tượng (object) biểu đồ mẹo vặt , có nghĩa là chỉ chuyển đổi biểu đồ có tab tốc độ riêng trong danh sách tab bảng tính:
Sub PrintChartSheetsToPDF()
"SUBROUTINE: PrintChartSheetsToPDF
"DEVELOPER: Chúng tôi
"DESCRIPTION: Kết hợp mới nhất tất cả sheet biểu đồ vào một file PDF
Dim strSheets() As String
Dim strfile As String
Dim ch As Object download , sh As Worksheet
Dim icount As Integer
Dim myfile As Variant
"Save Chart Sheet names to an Array
For Each ch In ActiveWorkbook.Charts
ReDim Preserve strSheets(icount)
strSheets(icount) = ch.Name
icount = icount + 1
Next ch
If icount = 0 Then "No charts found mới nhất . Punch error
MsgBox "Không thể tạo file PDF vì không tìm thấy sheet biểu đồ." tối ưu , kiểm tra , "Không tìm thấy sheet biểu đồ"
Exit Sub
End If
"Dấu nhắc thư mục lưu
strfile = "Charts" & "_" _
& Format(Now() hướng dẫn , "yyyymmdd_hhmmss") _
& ".pdf"
strfile = ThisWorkbook.Path & "" & strfile
myfile = Application.GetSaveAsFilename _
(InitialFileName:=strfile lấy liền , _
FileFilter:="PDF Files (*.pdf) qua web , *.pdf" mới nhất , _
Title:="Lựa chọn thư mục tự động và tên file lưu thành PDF")
If myfile <> "False" Then "save as PDF
ThisWorkbook.Sheets(strSheets).Select
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF ở đâu tốt , Filename:= _
myfile kiểm tra , Quality:=xlQualityStandard cài đặt , IncludeDocProperties:=True kiểm tra , _
IgnorePrintAreas:=False tính năng , OpenAfterPublish:=True
Else
MsgBox "Không có file lấy liền được chọn ở đâu uy tín . Không thể lưu file PDF" kích hoạt , vbOKOnly trực tuyến , "Không có file giá rẻ được chọn"
End If
End Sub
Chuyển đối tượng biểu đồ sang PDF (Print Chart Objects To PDF)
Macro này lấy liền sẽ lưu link down tất cả biểu đồ thông thường - đối tượng biểu đồ - vào một file PDF ứng dụng riêng quản lý . Bất kể biểu đồ nằm ở bảng tính (worksheet) nào đều ở đâu tốt được lưu vào file PDF kỹ thuật . Mỗi biểu đồ trên điện thoại sẽ nằm ở một trang bản quyền riêng trong file PDF .
Sub PrintChartsObjectsToPDF()
"SUBROUTINE: PrintChartsObjectsToPDF
"DEVELOPER: Chúng tôi
"DESCRIPTION: Kết hợp hướng dẫn tất cả đối tượng biểu đồ vào một file PDF
Dim ws As Worksheet tốc độ , wsTemp As Worksheet
Dim chrt As ChartObject
Dim tp As Long
Dim strfile As String
Dim myfile As Variant
Application.ScreenUpdating = False
Set wsTemp = Sheets.Add
tp = 10
With wsTemp
For Each ws In ActiveWorkbook.Worksheets
If ws.Name = wsTemp.Name Then GoTo nextws:
For Each chrt In ws.ChartObjects
chrt.Copy
wsTemp.Range("A1").PasteSpecial
Selection.Top = tp
Selection.Left = 5
If Selection.TopLeftCell.Row > 1 Then
ActiveSheet.Rows(Selection.TopLeftCell.Row).PageBreak = xlPageBreakManual
End If
tp = tp + Selection.Height + 50
Next
nextws:
Next ws
End With
"Dấu nhắc thư mục lưu
strfile = "Charts" & "_" _
& Format(Now() kích hoạt , "yyyymmdd\_hhmmss") _
& ".pdf"
strfile = ActiveWorkbook.Path & "" & strfile
myfile = Application.GetSaveAsFilename _
(InitialFileName:=strfile ở đâu tốt , _
FileFilter:="PDF Files (*.pdf) xóa tài khoản , *.pdf" như thế nào , _
Title:="Lựa chọn thư mục tăng tốc và tên file lưu thành PDF")
If myfile <> False Then "save as PDF
wsTemp.ExportAsFixedFormat Type:=xlTypePDF giảm giá , Filename:=myfile hay nhất , Quality:=xlQualityStandard giả mạo , _
IncludeDocProperties:=True vô hiệu hóa , IgnorePrintAreas:=False như thế nào , OpenAfterPublish:=True
"Else
" MsgBox "Không có file phải làm sao được chọn ở đâu tốt . Không thể lưu file PDF" trực tuyến , vbOKOnly vô hiệu hóa , "Không có file kiểm tra được chọn"
End If
Application.DisplayAlerts = False
wsTemp.Delete
With Application
.ScreenUpdating = True
.DisplayAlerts = True
End With
Exit Sub
End Sub
https://thuthuat.taimienphi.vn/cach-chuyen-file-excel-sang-pdf-sua-dung-vba-44795n.aspx
Ngoài ra dịch vụ , bạn lừa đảo cũng nên tìm hiểu thêm cách lưu vba quảng cáo để sử dụng trong trường hợp cần thiết vô hiệu hóa , xem chi tiết hướng dẫn lưu vba, lưu Macro trong Excel trên Chúng tôi.
4.8/5 (80 votes)
