Etkin çalışma sayfasını Excel'de PDF dosyası olarak kaydetmek için Komut Düğmesi nasıl kullanılır?

Microsoft Excel'de çalışırken, aktif çalışma sayfasını PDF dosyası olarak kaydetme sorunuyla karşılaşabilirsiniz. Bu makalede, etkin çalışma sayfasını bir Komut Düğmesi aracılığıyla VBA kodu ile PDF dosyası olarak kaydetmeyi öğrenebilirsiniz. Ayrıca, etkin çalışma kitabındaki bir aralığı veya her çalışma sayfasını ayrı PDF dosyası olarak kaydetmek isterseniz, bu makale size yardımcı olabilir.

Etkin çalışma sayfasını VBA kodu ile PDF dosyası olarak kaydetmek için Komut Düğmesini kullanın
Kutools for Excel ile etkin veya her çalışma sayfasını ayrı PDF dosyası olarak kolayca kaydedin

Etkin çalışma sayfasını VBA kodu ile PDF dosyası olarak kaydetmek için Komut Düğmesini kullanın

Etkin bir çalışma sayfasını bir Komut Düğmesine tıklayarak PDF dosyası olarak kaydetmek için aşağıdaki VBA kodunu çalıştırabilirsiniz. Lütfen aşağıdaki işlemleri yapın.

1. İlk olarak, yeni dönüştürülmüş PDF dosyanızı kaydetmek için PDF adlı bir klasör oluşturmanız gerekir. Burada bu klasörü yerel diskimde (C :) oluşturuyorum.

2. Lütfen tıklayarak bir Komut Düğmesi ekleyin Geliştirici > Ekle > Komut Düğmesi (ActiveX Kontrolü). Ekran görüntüsüne bakın:

2. Ardından, yeni satırlar eklemeniz gereken çalışma sayfasına bir Komut Düğmesi çizin, Komut Düğmesine sağ tıklayın ve İlanlar sağ tıklama menüsünden.

3. içinde İlanlar iletişim kutusunda, Komut Düğmesinin görüntülenen metnini Başlık altındaki kutuyu kategorize sekmesine gidin ve ardından iletişim kutusunu kapatın.

Komut Düğmesinin görüntülenen metninin aşağıda gösterilen ekran görüntüsü gibi değiştirildiğini görebilirsiniz.

4. Komut Düğmesine tekrar sağ tıklayın ve ardından Kodu Görüntüle sağ tıklama menüsünden.

5. Açılışta Uygulamalar için Microsoft Visual Basic penceresi, lütfen Kod penceresindeki orijinal kodu aşağıdaki VBA kodu ile değiştirin.

VBA kodu: Etkin çalışma sayfasını PDF olarak kaydetmek için Komut Düğmesi

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

not: Kodda, CommandButton1, aktif sayfayı PDF dosyası olarak kaydetmek için kullanacağınız Komut Düğmesi adıdır. "C: \ PDF \ Export.pdf", kaydettiğiniz PDF dosyanızın yolu ve adıdır.

6. Tuşuna basın. Ara Toplam + Q kapatmak için aynı anda tuşları Uygulamalar için Microsoft Visual Basic pencere. Sonra kapatın Tasarım Modu altında Geliştirici sekmesi.

Şimdi, Komut Düğmesine tıklayın, aktif çalışma sayfası Dışa Aktar adlı bir PDF dosyası olarak kaydedilecek ve belirtilen konuma yerleştirilecektir.

Kutools for Excel ile her çalışma sayfasını etkin çalışma kitabının ayrı PDF dosyası olarak kaydedin

İşte tavsiye Çalışma Kitabını Böl yarar Kutools for Excel Etkin çalışma sayfasını kolayca PDF dosyası olarak kaydetmek için. Ayrıca, bu yardımcı program ile mevcut çalışma kitabındaki her çalışma sayfasını ayrı PDF dosyası olarak kaydedebilirsiniz.

Başvurmadan önce Kutools for ExcelLütfen önce indirin ve kurun.

1. Çalışma kitabında her çalışma sayfasını ayrı bir PDF dosyası olarak kaydetmeniz ve ardından Kutools Artı > alıştırma kitabı > Çalışma Kitabını Böl. Ekran görüntüsüne bakın:

2. içinde Çalışma Kitabını Böl iletişim kutusu, lütfen aşağıdaki gibi yapılandırın:

2.1) Yalnızca sayfadaki etkin sayfa adını kontrol edin. Çalışma sayfası adı Kutu;

2.2) Seç PDF (* .pdf) seçeneği Kayıt türü açılır liste;

2.3) Bölünmüş düğmesi, sonra a Klasör Seç iletişim kutusu açılır, PDF dosyasını kaydetmek için bir klasör belirtin;

Ardından seçilen çalışma sayfası hemen PDF dosyası olarak kaydedilir.

notlar:

1. Çalışma sayfası adı kutusunda birden çok çalışma sayfası adını kontrol ederek bunları tek seferde ayrı pdf dosyası olarak kaydedebilirsiniz;

2. Çalışma sayfasını pdf dosyaları olarak kaydetmenin dışında, çalışma sayfalarını txt olarak kaydedebilirsiniz. veya csv. ihtiyacınız olan dosya.

Bu yardımcı programın ücretsiz denemesine (30 günlük) sahip olmak istiyorsanız, indirmek için lütfen tıklayınızve ardından yukarıdaki adımlara göre işlemi uygulamaya gidin.

Demo: Kutools for Excel ile seçimi veya her çalışma sayfasını PDF olarak kaydedin

İlgili Makaleler:

En İyi Ofis Üretkenliği Araçları

Kutools for Excel Sorunlarınızın Çoğunu Çözer ve Verimliliğinizi% 80 Artırır

Yeniden: Hızlıca yerleştirin karmaşık formüller, grafikler ve daha önce kullandığınız her şey; Hücreleri Şifrele şifre ile; Posta Listesi Oluşturun ve e-posta gönder ...
Süper Formül Çubuğu (birden çok metin ve formül satırını kolayca düzenleyin); Okuma Düzeni (çok sayıda hücreyi kolayca okuyun ve düzenleyin); Filtrelenmiş Aralığa Yapıştır...
Hücreleri / Satırları / Sütunları Birleştirme Veri kaybetmeden; Bölünmüş Hücre İçeriği; Yinelenen Satırları / Sütunları Birleştirme... Yinelenen Hücreleri Önleyin; Aralıkları Karşılaştır...
Yinelenen veya Benzersiz'i seçin Satırlar; Boş Satırları Seçin (tüm hücreler boştur); Süper Bul ve Bulanık Bul Birçok Çalışma Kitabında; Rastgele Seçim ...
Tam kopya Formül referansını değiştirmeden Birden Çok Hücre; Otomatik Referans Oluştur Birden Çok Sayfaya; Madde İşaretleri Ekle, Onay Kutuları ve daha fazlası ...
Metni Çıkar, Metin Ekle, Konuma Göre Kaldır, Alanı Kaldır; Sayfalama Alt Toplamları Oluşturma ve Yazdırma; Hücre İçeriği ve Yorumları Arasında Dönüştür...
Süper Filtre (filtre şemalarını kaydedin ve diğer sayfalara uygulayın); Gelişmiş Sıralama ay / hafta / gün, sıklık ve daha fazlasına göre; Özel Filtre kalın, italik ...
Çalışma Kitaplarını ve Çalışma Sayfalarını Birleştirin; Tabloları anahtar sütunlara göre birleştirin; Verileri Birden Çok Sayfaya Bölme; Toplu dönüştürme xls, xlsx ve PDF...
300'den fazla güçlü özellik. Office / Excel 2007-2019 ve 365'i destekler. Tüm dilleri destekler. Kuruluşunuzda veya kuruluşunuzda kolay dağıtım. Tam özellikli 30 günlük ücretsiz deneme. 60 günlük para iade garantisi.

Devamı ... Ücretsiz indirin... Satın alma...

Office Tab, Office'e Sekmeli Arayüz Getirir ve İşinizi Çok Daha Kolay Hale Getirir

Word, Excel, PowerPoint'te sekmeli düzenlemeyi ve okumayı etkinleştirin, Publisher, Access, Visio ve Project.
Yeni pencereler yerine aynı pencerenin yeni sekmelerinde birden çok belge açın ve oluşturun.
Üretkenliğinizi% 50 artırır ve her gün sizin için yüzlerce fare tıklamasını azaltır!

Devamı ... Ücretsiz indirin... Satın alma...

11 Comments
Login

Sort by Newest
- Best
- Popular
- Newest
- Oldest

You are guest

or post as a guest, but your post won't be published automatically.

Loading comment... The comment will be refreshed after 00:00.

To post as a guest, your comment is unpublished.
Sulaiman · 1 years ago
How do I do this for MS Word? I have a bunch of questions with radio button options as answers. So I want to create a command button to output the questions with the selected answers only on another word document. How do I do this? A code would really help! I'll email you the document if you need it. Thanks!
- Reply
- To post as a guest, your comment is unpublished.
  crystal · 1 years ago
  
  Good day,
  Sorry can't help you with that yet.
  
  Reply
To post as a guest, your comment is unpublished.
atul tailor · 2 years ago
plz paste coding for save as pdf button in microsoft excel
- Reply
To post as a guest, your comment is unpublished.
Nzee · 2 years ago
IT SHOWS Run-Time error '1004'
- Reply
- To post as a guest, your comment is unpublished.
  crystal · 2 years ago
  
  Hi Nzee,
  I need to know your Excel version. Thank you for your comment.
  
  Reply
To post as a guest, your comment is unpublished.
Randy · 3 years ago
I can convert my files to PDF now with a command button, but can I also get that same function to allow a different name to each file; based on an existed number structure?
- Reply
- To post as a guest, your comment is unpublished.
  crystal · 3 years ago
  
  Hi Randy,
  Sorry I can’t help with this, welcome to post any question in our forum: https://www.extendoffice.com/forum.html to get more Excel supports from our professional.
  
  Reply
To post as a guest, your comment is unpublished.
jo.colenso@gmail.com · 3 years ago
I have a similar request I want the file to be named the same as a particular cell in the tab , IE: G19 ( This is the invoice number and I want the file to save as PDF with that name) ? . I have managed to get the export.pdf working but this isn't going to work on multiple saves.Any thoughts thanks
- Reply
- To post as a guest, your comment is unpublished.
  crystal · 3 years ago
  
  Good Day,
  The following VBA code can help you solve the problem. Please select cell G19 in the popping up Kutoos for Excel dialog box after running the code. Thank you for your comment.
  
  Private Sub CommandButton1_Click()
  Dim xRg As Range
  Dim xName As String
  On Error Resume Next
  Application.ScreenUpdating = False
  Set xRg = Application.InputBox("Select the cell you will name the PDF with the cell value:", "Kutools for Excel", Selection.Address, , , , , 8)
  If xRg Is Nothing Then Exit Sub
  xName = xRg(1).Value
  ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, _
  Filename:="C:\PDF\" & xName & ".pdf", _
  OpenAfterPublish:=False
  Application.ScreenUpdating = True
  End Sub
  
  Reply
To post as a guest, your comment is unpublished.
Ian · 4 years ago
Hi,
How would one allow the user to enter the file name as opposed to "Export.pdf"?
Thanks,
Ian
- Reply
- To post as a guest, your comment is unpublished.
  Mayur · 3 years ago
  
  Sub SaveAsPDF()
  Application.Screen Updating = False
  ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, _
  Filename:=Application.InputBox("Enter File Name")
  
  strExcelPath = "H:\My Documents"
  
  Application.ScreenUpdating = True
  End Sub
  
  Reply

Hesabınıza Giriş

Parola Sıfırlama