Note: The other languages of the website are Google-translated. Back to English

Làm cách nào để sử dụng Nút lệnh để lưu trang tính đang hoạt động dưới dạng tệp PDF trong Excel?

Khi làm việc trong Microsoft Excel, bạn có thể gặp sự cố khi lưu trang tính đang hoạt động dưới dạng tệp PDF. Trong bài viết này, bạn có thể tìm hiểu cách lưu trang tính đang hoạt động dưới dạng tệp PDF bằng mã VBA thông qua Nút lệnh. Và nếu bạn cũng muốn lưu một phạm vi hoặc từng trang tính trong sổ làm việc đang hoạt động dưới dạng tệp PDF riêng lẻ, bài viết này cũng có thể giúp bạn.

Sử dụng Nút lệnh để lưu trang tính hoạt động dưới dạng tệp PDF với mã VBA
Dễ dàng lưu hiện hoạt hoặc từng trang tính dưới dạng tệp PDF riêng lẻ với Kutools cho Excel


Sử dụng Nút lệnh để lưu trang tính hoạt động dưới dạng tệp PDF với mã VBA

Bạn có thể chạy mã VBA sau để lưu trang tính hiện hoạt dưới dạng tệp PDF bằng cách nhấp vào Nút lệnh. Hãy làm như sau.

1. Đầu tiên, bạn cần tạo một thư mục có tên PDF để lưu tệp PDF đã chuyển đổi mới của mình. Ở đây tôi tạo thư mục này trong đĩa cục bộ của tôi (C :).

2. Vui lòng chèn một nút lệnh bằng cách nhấp vào Nhà phát triển > Chèn > Nút lệnh (Điều khiển ActiveX). Xem ảnh chụp màn hình:

2. Sau đó, vẽ Nút lệnh vào trang tính mà bạn cần thêm hàng mới, nhấp chuột phải vào Nút lệnh và nhấp Bất động sản từ menu chuột phải.

3. bên trong Bất động sản hộp thoại, nhập văn bản được hiển thị của Nút lệnh vào Chú thích hộp dưới Phân loại rồi đóng hộp thoại.

Bạn có thể thấy văn bản hiển thị của Nút lệnh được thay đổi như ảnh chụp màn hình bên dưới.

4. Bấm chuột phải vào Nút lệnh một lần nữa, rồi bấm Mã Chế độ xem từ menu chuột phải.

5. Trong phần mở đầu Microsoft Visual Basic cho các ứng dụng , vui lòng thay thế mã gốc trong cửa sổ Mã bằng mã VBA sau.

Mã VBA: Nút lệnh để lưu trang tính hoạt động dưới dạng PDF

Private Sub CommandButton1_Click()
    Application.ScreenUpdating = False
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, _
            Filename:="C:\PDF\Export.pdf", _
            OpenAfterPublish:=False
    Application.ScreenUpdating = True
End Sub

Chú thích: Trong mã, CommandButton1 là tên Nút lệnh mà bạn sẽ sử dụng để lưu trang tính hiện hoạt dưới dạng tệp PDF. "C: \ PDF \ Export.pdf" là đường dẫn và tên của tệp PDF đang lưu của bạn.

6. Nhấn nút Khác + Q các phím đồng thời để đóng Microsoft Visual Basic cho các ứng dụng cửa sổ. Sau đó, tắt Chế độ thiết kế theo Nhà phát triển tab.

Bây giờ, hãy nhấp vào Nút lệnh, trang tính hoạt động sẽ được lưu dưới dạng tệp PDF có tên Xuất và nằm ở vị trí đã chỉ định.


Lưu từng trang tính dưới dạng tệp PDF riêng lẻ của sổ làm việc đang hoạt động với Kutools cho Excel

Ở đây giới thiệu Chia sổ làm việc tiện ích của Kutools cho Excel để dễ dàng lưu trang tính đang hoạt động dưới dạng tệp PDF. Bên cạnh đó, bạn cũng có thể lưu từng trang tính trong sổ làm việc hiện tại dưới dạng tệp PDF riêng lẻ với tiện ích này.

Trước khi áp dụng Kutools cho Excel, Xin vui lòng tải xuống và cài đặt nó trước tiên.

1. Trong sổ làm việc, bạn cần lưu từng trang tính dưới dạng tệp PDF riêng lẻ, sau đó nhấp vào Kutools Plus > Bảng tính > Chia sổ làm việc. Xem ảnh chụp màn hình:

2. bên trong Chia sổ làm việc hộp thoại, vui lòng cấu hình như sau:

2.1) Chỉ kiểm tra tên trang tính hoạt động trong Tên trang tính cái hộp;
2.2) Chọn PDF (* .pdf) tùy chọn từ Save as type danh sách thả xuống;
2.3) Nhấp vào chẻ nút, sau đó là một Chọn thư mục hộp thoại bật lên, chỉ định một thư mục để lưu tệp PDF;

Sau đó, trang tính đã chọn được lưu dưới dạng tệp PDF ngay lập tức.

Chú ý:

1. Bạn có thể kiểm tra nhiều tên trang tính trong hộp Tên trang tính để lưu chúng dưới dạng tệp pdf riêng lẻ cùng một lúc;
2. Ngoại trừ lưu trang tính dưới dạng tệp pdf, bạn có thể lưu trang tính dưới dạng txt. hoặc csv. tệp khi bạn cần.

  Nếu bạn muốn dùng thử miễn phí (30-day) của tiện ích này, vui lòng nhấp để tải xuống, và sau đó đi đến áp dụng hoạt động theo các bước trên.


Demo: Lưu lựa chọn hoặc từng trang tính dưới dạng PDF với Kutools cho Excel


Các bài liên quan:


Các công cụ năng suất văn phòng tốt nhất

Kutools cho Excel giải quyết hầu hết các vấn đề của bạn và tăng 80% năng suất của bạn

  • Tái sử dụng: Chèn nhanh công thức phức tạp, biểu đồ và bất cứ thứ gì bạn đã sử dụng trước đây; Mã hóa ô với mật khẩu; Tạo danh sách gửi thư và gửi email ...
  • Thanh siêu công thức (dễ dàng chỉnh sửa nhiều dòng văn bản và công thức); Bố cục đọc (dễ dàng đọc và chỉnh sửa số lượng ô lớn); Dán vào Dải ô đã Lọchữu ích. Cảm ơn !
  • Hợp nhất các ô / hàng / cột mà không làm mất dữ liệu; Nội dung phân chia ô; Kết hợp các hàng / cột trùng lặp... Ngăn chặn các ô trùng lặp; So sánh các dãyhữu ích. Cảm ơn !
  • Chọn trùng lặp hoặc duy nhất Hàng; Chọn hàng trống (tất cả các ô đều trống); Tìm siêu và Tìm mờ trong Nhiều Sổ làm việc; Chọn ngẫu nhiên ...
  • Bản sao chính xác Nhiều ô mà không thay đổi tham chiếu công thức; Tự động tạo tài liệu tham khảo sang Nhiều Trang tính; Chèn Bullets, Hộp kiểm và hơn thế nữa ...
  • Trích xuất văn bản, Thêm Văn bản, Xóa theo Vị trí, Xóa không gian; Tạo và In Tổng số phân trang; Chuyển đổi giữa nội dung ô và nhận xéthữu ích. Cảm ơn !
  • Siêu lọc (lưu và áp dụng các lược đồ lọc cho các trang tính khác); Sắp xếp nâng cao theo tháng / tuần / ngày, tần suất và hơn thế nữa; Bộ lọc đặc biệt bằng cách in đậm, in nghiêng ...
  • Kết hợp Workbook và WorkSheets; Hợp nhất các bảng dựa trên các cột chính; Chia dữ liệu thành nhiều trang tính; Chuyển đổi hàng loạt xls, xlsx và PDFhữu ích. Cảm ơn !
  • Hơn 300 tính năng mạnh mẽ. Hỗ trợ Office / Excel 2007-2021 và 365. Hỗ trợ tất cả các ngôn ngữ. Dễ dàng triển khai trong doanh nghiệp hoặc tổ chức của bạn. Đầy đủ tính năng Dùng thử miễn phí 30 ngày. Bảo đảm hoàn lại tiền trong 60 ngày.
tab kte 201905

Tab Office mang lại giao diện Tab cho Office và giúp công việc của bạn trở nên dễ dàng hơn nhiều

  • Cho phép chỉnh sửa và đọc theo thẻ trong Word, Excel, PowerPoint, Publisher, Access, Visio và Project.
  • Mở và tạo nhiều tài liệu trong các tab mới của cùng một cửa sổ, thay vì trong các cửa sổ mới.
  • Tăng 50% năng suất của bạn và giảm hàng trăm cú nhấp chuột cho bạn mỗi ngày!
officetab dưới cùng
Nhận xét (33)
Chưa có xếp hạng. Hãy là người đầu tiên xếp hạng!
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Xin chào, Làm cách nào để cho phép người dùng nhập tên tệp thay vì "Export.pdf"? Cảm ơn, Ian
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Sub SaveAsPDF ()
Application.Screen Updating = Sai
ActiveSheet.ExportAsFixedFormat Loại: = xlTypePDF, _
Tên tệp: = Application.InputBox ("Nhập tên tệp")

strExcelPath = "H: \ Tài liệu của tôi"

Application.ScreenUpdating = True
End Sub
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Tôi có một yêu cầu tương tự, tôi muốn tệp được đặt tên giống như một ô cụ thể trong tab, IE: G19 (Đây là số hóa đơn và tôi muốn tệp lưu dưới dạng PDF với tên đó)? . Tôi đã quản lý để làm cho export.pdf hoạt động nhưng điều này sẽ không hoạt động trên nhiều lần lưu.
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Ngày tốt,
Mã VBA sau đây có thể giúp bạn giải quyết vấn đề. Vui lòng chọn ô G19 trong hộp thoại Kutoos for Excel bật lên sau khi chạy mã. Cảm ơn bình luận của bạn.

Private Sub CommandButton1_Click ()
Dim xRg theo phạm vi
Dim xName dưới dạng chuỗi
On Error Resume Next
Application.ScreenUpdating = Sai
Đặt xRg = Application.InputBox ("Chọn ô bạn sẽ đặt tên PDF với giá trị ô:", "Kutools cho Excel", Selection.Address,,,, 8)
Nếu xRg không có gì thì thoát Sub
xName = xRg (1). Giá trị
ActiveSheet.ExportAsFixedFormat Loại: = xlTypePDF, _
Tên tệp: = "C: \ PDF \" & xName & ".pdf", _
OpenAfterPublish: = Sai
Application.ScreenUpdating = True
End Sub
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Tôi đã thay đổi đường dẫn đến ổ đĩa D, nhưng nó không được lưu trong ổ đĩa D. Để làm gì?
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Xin chào Akshay MN,
Nếu bạn đã sửa đổi đường dẫn trên đến ổ D, hãy đảm bảo rằng có một thư mục tên PDF trong ổ D của bạn.
Nếu bạn chỉ muốn lưu tệp trong ổ đĩa D mà không tạo thư mục con, vui lòng sử dụng đường dẫn thư mục này: "C: \" & xName & ".pdf"
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Tôi có thể chuyển đổi tệp của mình sang PDF ngay bây giờ bằng một nút lệnh, nhưng tôi cũng có thể nhận được chức năng tương tự để đặt tên khác cho mỗi tệp; dựa trên một cấu trúc số tồn tại?
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Hi Randy,
Xin lỗi, tôi không thể giúp gì cho việc này, hoan nghênh bạn đăng bất kỳ câu hỏi nào trong diễn đàn của chúng tôi: https://www.extendoffice.com/forum.html để nhận được nhiều hỗ trợ Excel hơn từ chuyên gia của chúng tôi.
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Nó hiển thị lỗi thời gian chạy '1004'
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Xin chào Nzee,
Tôi cần biết phiên bản Excel của bạn. Cảm ơn bình luận của bạn.
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
làm ơn dán mã để lưu dưới dạng nút pdf trong microsoft excel
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Làm cách nào để thực hiện việc này cho MS Word? Tôi có một loạt câu hỏi với các tùy chọn nút radio làm câu trả lời. Vì vậy, tôi muốn tạo một nút lệnh để xuất các câu hỏi với các câu trả lời đã chọn chỉ trên một tài liệu word khác. Làm thế nào để tôi làm điều này? Một mã sẽ thực sự hữu ích! Tôi sẽ gửi tài liệu qua email cho bạn nếu bạn cần. Thanks!
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Good day,
Xin lỗi không thể giúp bạn với điều đó được nêu ra.
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Sub ZapiszPDF ()
Dim sNazwaPliku dưới dạng Chuỗi

sNazwaPliku = ActiveSheet.Name

Application.Dialogs (xlDialogSaveAs) .Show sNazwaPliku, 57

End Sub
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Tôi đã làm theo mã, đây là những gì tôi có:

Private Sub CommandButton2_Click ()
Application.ScreenUpdating = Sai
ActiveSheet.ExportAsFixedFormat Loại: = xlTypePDF, _
Tên tệp: = Phạm vi ("P2"), _
OpenAfterPublish: = True
Application.ScreenUpdating = True
End Sub

tôi cần tệp để lưu vào vị trí chứa tệp gốc. cũng cần một bản sao của tệp excel để lưu cùng tên.
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Xin chào Matt Bentley,
Mã hoạt động hoàn hảo. Cảm ơn bạn đã chia sẻ.
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Xin chào,

kann jemand mir helfen?

Ich nutze diese Zeilen und möchte jedoch, das aus dem Blatt ein Zellenwert als Dateiname gespeichert wird:

Private Sub CommandButton1_Click ()
Application.ScreenUpdating = Sai
ActiveSheet.ExportAsFixedFormat Loại: = xlTypePDF, _
Tên tệp: = "C: \ PDF \ Export.pdf", _
OpenAfterPublish: = Sai
Application.ScreenUpdating = True
End Sub

Cảm ơn bạn
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Xin chào,

ich nutze diese Zeilen und möchte das eine Zelle als Dateiname verwenden wird!
Kann mir jemand ein Tipp geben?


Private Sub CommandButton1_Click ()
Application.ScreenUpdating = Sai
ActiveSheet.ExportAsFixedFormat Loại: = xlTypePDF, _
Tên tệp: = "c: /" & G3 & ".pdf", _
OpenAfterPublish: = Sai
Application.ScreenUpdating = True
End Sub
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Xin chào Sasha,
Đoạn mã sau đây có thể giúp bạn. Trước khi áp dụng mã, vui lòng thay đổi 'C: \ Users \ Win10x64Test \ Documents \ PDF'trong dòng thứ tư cho bạn đường dẫn thư mục đích của riêng bạn.
Private Sub CommandButton1_Click()
'Updated by Extendoffice 20220929
    Application.ScreenUpdating = False
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, _
            Filename:="C:\Users\Win10x64Test\Documents\PDF\" & Range("G3").Value, _
            OpenAfterPublish:=False
    Application.ScreenUpdating = True
End Sub
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Что это за кнопка - "другой" + Q клавиши одновременно "? Не поняла что нажимать, птодскажите, пожа
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Xin chào Диана,
Đó là phím "Alt" trên bàn phím của bạn. Microsoft Excel cho phép người dùng nhấn các phím "Alt" + "Q" để đóng cửa sổ Microsoft Visual Basic for Applications và quay lại trang tính.
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Goededag

Đây có phải là một bộ phim của một bộ phim excelblad te maken voor của Command-Knop Om Een Actief Werkblad Op Te Slaan Als PDF-Bestand Met VBA-Code.
ko er niet helemaal uit met de code.
alvast bedankt
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
himax,
Xin lỗi tôi không hiểu ý của bạn. Bạn có thể cần đính kèm ảnh chụp màn hình về những gì bạn đang cố gắng thực hiện. Xin lỗi vì sự bất tiện.
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Chào đội

Chỉ tự hỏi liệu có ai có thể giúp thay đổi đích của tệp đã tạo thành bất kỳ máy tính để bàn nào của người dùng không? Công ty của tôi không cho phép truy cập vào C: vì vậy tập lệnh không hoạt động.

RẤT NHIỀU RẤT NHIỀU cảm ơn!
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Xin chào Ben Stoddart,
Bạn chỉ cần mở bất kỳ thư mục nào trên màn hình nền và sao chép đường dẫn thư mục trong hộp địa chỉ, sau đó thay thế đường dẫn thư mục trong mã VBA bằng đường dẫn bạn đã sao chép.
Đây là dòng Tên tệp mới (vui lòng thay Tên người dùng bằng tên người dùng của riêng bạn), Xuất khẩu.pdf là tên và phần mở rộng của tệp PDF:
Tên tệp:="C:\Users\Username\Desktop\PDF\Export.pdf", _
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Bất cứ khi nào tôi chạy nó, nó sẽ lưu một tệp PDF vào ổ đĩa cục bộ của tôi nơi lưu các trang tính excel, làm cách nào để ngăn việc này tự động lưu?

Private Sub CommandButton1_Click ()
Application.ScreenUpdating = Sai
ActiveSheet.ExportAsFixedFormat Loại: = xlTypePDF, _
OpenAfterPublish: = True
Application.ScreenUpdating = True
End Sub
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Khi tôi chạy phần bên dưới, nó sẽ tự động tạo một phiên bản PDF cục bộ - làm cách nào để ngăn việc này tự động lưu?

Private Sub CommandButton1_Click ()
Application.ScreenUpdating = Sai
ActiveSheet.ExportAsFixedFormat Loại: = xlTypePDF, _
OpenAfterPublish: = True
Application.ScreenUpdating = True
End Sub
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Hi James,
Bạn có muốn cửa sổ bật lên để chọn thư mục lưu tệp PDF theo cách thủ công không?
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Xin chào Crystal, lý tưởng nhất là có để sau đó tôi có thể chọn nơi lưu tệp PDF.
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
James,

Mã VBA sau đây có thể giúp bạn giải quyết vấn đề.
Chú thích: Bạn không thể xử lý cả đích và tên tệp cùng một lúc. Sau khi thêm mã VBA sau, khi bạn nhấp vào nút, một hộp thoại sẽ bật lên để bạn chọn thư mục đích. Sau khi chọn thư mục đích, một hộp sẽ bật lên để bạn đặt tên cho tệp PDF.

Private Sub CommandButton1_Click()
'Updated by Extendoffice 20221223
    Dim xDlg As FileDialog
    Dim xFolder As Variant
    Set xDlg = Application.FileDialog(msoFileDialogFolderPicker)
    Dim xStrName As String
    If xDlg.Show <> -1 Then Exit Sub
    
    xFolder = xDlg.SelectedItems(1)
    
    xStart = InputBox("file name", "KuTools for Excel", ActiveSheet.Name & ".pdf")

    Application.ScreenUpdating = False

    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, _
            Filename:=xFolder & "\" & xStart, _
            OpenAfterPublish:=False
    Application.ScreenUpdating = True

End Sub
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Ich nutze diese Zeilen und das funktioniert auch gut, mein Vấn đề ist nur, sollte diese Datei bereits vorhanden sein, wird diese einfach überschrieben!
Wie kann ich das vermeiden, es sollte eine Meldung kommen, Datei tồn tại bereits und es soll bedet werden?
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Ich nutze diese Zeilen und das funktioniert auch gut, mein Problem ist nur, sollte diese Datei bereits vorhanden sein, WIRD diese einfach überschrieben!
Wie kann ich das vermeiden, es sollte eine Meldung kommen, Datei tồn tại bereits und es soll bedet werden?


Private Sub CommandButton1_Click ()
Application.ScreenUpdating = Sai
ActiveSheet.ExportAsFixedFormat Loại: = xlTypePDF, _
Tên tệp:="X:\firmen\Buchhaltung\Rechnungs-Kopie_Ackermann Service GmbH\2022\RK-Abrechnung\" & ActiveSheet.Range("G1") & ".pdf", _
OpenAfterPublish: = True
Application.ScreenUpdating = True
End Sub
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Xin chào Sasha,
Mã VBA sau đây có thể trợ giúp. Xin vui lòng cung cấp cho nó một thử.

Private Sub CommandButton1_Click()
'Updated by Extendoffice 20221230
    Dim xPDFName As String
    Dim xPDFPath As String
    Dim xObjFS As Object
    Dim xNum As Integer
    Dim xStr As String
    
    xPDFName = "Export" 'The file name
    xPDFPath = "D:\work\Jan\test\" 'The file path
    Application.ScreenUpdating = True
    On Error Resume Next
    Set xObjFS = CreateObject("Scripting.FileSystemObject")
    xStr = xPDFPath & xPDFName & ".pdf"
    xNum = 1
    If xObjFS.FileExists(xStr) Then
    xResponse = MsgBox("The file already exists, do you want to overwrite it?", vbYesNo, "www.extendoffice.com", "", 0)
       If xResponse <> vbYes Then
       Exit Sub
      End If
    End If
    Application.ScreenUpdating = False
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, _
            FileName:=xStr, _
            OpenAfterPublish:=False
    Application.ScreenUpdating = True
End Sub
Không có bình luận nào được đăng ở đây
Để lại ý kiến ​​của bạn
Đăng với tư cách khách
×
Đánh giá bài viết này:
0   Nhân vật
Các vị trí được đề xuất

Kết nối với chúng tôi

Bản quyền © 2009 - www.extendoffice.com. | Đã đăng ký Bản quyền. cung cấp bởi ExtendOffice. | BẢN ĐỒ CHI NHÁNH
Microsoft và logo Office là các nhãn hiệu hoặc nhãn hiệu đã đăng ký của Microsoft Corporation tại Hoa Kỳ và / hoặc các quốc gia khác.
Được bảo vệ bởi Sectigo SSL