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

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 Emlaklar sağ tıklama menüsünden.

3. içinde Emlaklar 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.

  Ücretsiz deneme yapmak istiyorsanız (30-gün) bu yardımcı programın, 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-2021 ve 365'i destekler. Tüm dilleri destekler. Kuruluşunuzda veya kuruluşunuzda kolay devreye alma. Tam özellikler 30 günlük ücretsiz deneme. 60 günlük para iade garantisi.
kte sekmesi 201905

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!
ofis tabanı
Yorumları sıralama ölçütü
Yorumlar (33)
Henüz derecelendirme yok. İlk değerlendiren siz olun!
Bu yorum sitedeki moderatör tarafından en aza indirildi
Merhaba, Kullanıcının "Export.pdf" yerine dosya adını girmesine nasıl izin verilir? Teşekkürler, Ian
Bu yorum sitedeki moderatör tarafından en aza indirildi
Alt SaveAsPDF()
Application.Screen Güncelleme = Yanlış
ActiveSheet.ExportAsFixedFormat Türü:=xlTypePDF, _
Dosya Adı:=Application.InputBox("Dosya Adını Girin")

strExcelPath = "H:\Belgelerim"

Application.ScreenUpdating = True
End Sub
Bu yorum sitedeki moderatör tarafından en aza indirildi
Benzer bir isteğim var, dosyanın sekmedeki belirli bir hücreyle aynı şekilde adlandırılmasını istiyorum, IE: G19 (Bu fatura numarası ve dosyanın bu adla PDF olarak kaydedilmesini istiyorum)? . Export.pdf dosyasını çalıştırmayı başardım ama bu birden fazla kaydetme üzerinde çalışmayacak.Herhangi bir düşünce teşekkürler
Bu yorum sitedeki moderatör tarafından en aza indirildi
Good Day,
Aşağıdaki VBA kodu, sorunu çözmenize yardımcı olabilir. Lütfen kodu çalıştırdıktan sonra açılan Kutoos for Excel iletişim kutusunda G19 hücresini seçin. Yorumun için teşekkür ederim.

Özel Alt KomutDüğmesi1_Click ()
Aralık olarak Dim xRg
Dim xName As Dize
On Error Resume Next
Application.ScreenUpdating = Yanlış
Set xRg = Application.InputBox("PDF'yi hücre değeriyle adlandıracağınız hücreyi seçin:", "Kutools for Excel", Selection.Address, , , , , 8)
xRg Hiçbir Şey Değilse, Sub'dan Çıkın
xAd = xRg(1).Value
ActiveSheet.ExportAsFixedFormat Türü:=xlTypePDF, _
Dosya adı:="C:\PDF\" & xName & ".pdf", _
OpenAfterPublish: = Yanlış
Application.ScreenUpdating = True
End Sub
Bu yorum sitedeki moderatör tarafından en aza indirildi
Yolu D sürücüsüne değiştirdim, ancak D sürücüsüne kaydedilmiyor. Ne yapalım?
Bu yorum sitedeki moderatör tarafından en aza indirildi
Merhaba Akshay MN,
Yukarıdaki yolu D sürücüsüne değiştirdiyseniz, D sürücünüzde PDF adlı bir klasör olduğundan emin olun.
Dosyayı bir alt klasör oluşturmadan yalnızca D sürücüsüne kaydetmek istiyorsanız, lütfen bu klasör yolunu kullanın: "C:\" & xName & ".pdf"
Bu yorum sitedeki moderatör tarafından en aza indirildi
Artık bir komut düğmesiyle dosyalarımı PDF'ye dönüştürebilirim, ancak aynı işlevi her dosyaya farklı bir ad vermek için de alabilir miyim; var olan bir sayı yapısına göre mi?
Bu yorum sitedeki moderatör tarafından en aza indirildi
Merhaba Randy
Üzgünüm bu konuda yardımcı olamam, forumumuza herhangi bir soru göndermeye hoş geldiniz: https://www.extendoffice.com/forum.html uzmanımızdan daha fazla Excel desteği almak için.
Bu yorum sitedeki moderatör tarafından en aza indirildi
Çalışma Zamanı hatası '1004' GÖSTERİYOR
Bu yorum sitedeki moderatör tarafından en aza indirildi
Merhaba Nzee,
Excel sürümünüzü bilmem gerekiyor. Yorumun için teşekkür ederim.
Bu yorum sitedeki moderatör tarafından en aza indirildi
plz microsoft excel'de pdf olarak kaydetmek için kodlamayı yapıştırın
Bu yorum sitedeki moderatör tarafından en aza indirildi
Bunu MS Word için nasıl yaparım? Cevap olarak radyo düğmesi seçenekleri olan bir sürü sorum var. Bu yüzden, seçilen cevapları olan soruları yalnızca başka bir kelime belgesinde çıktılamak için bir komut düğmesi oluşturmak istiyorum. Bunu nasıl yaparım? Bir kod gerçekten yardımcı olacaktır! Gerekirse belgeyi sana e-postayla gönderirim. Teşekkürler!
Bu yorum sitedeki moderatör tarafından en aza indirildi
İyi günler,
Maalesef henüz bu konuda size yardımcı olamam.
Bu yorum sitedeki moderatör tarafından en aza indirildi
Alt ZapiszPDF()
Dim sNazwaPliku As String

sNazwaPliku = ActiveSheet.Name

Application.Dialogs(xlDialogSaveAs).Show sNazwaPliku, 57

End Sub
Bu yorum sitedeki moderatör tarafından en aza indirildi
kodu takip ettim, sahip olduğum şey bu:

Özel Alt KomutDüğmesi2_Click ()
Application.ScreenUpdating = Yanlış
ActiveSheet.ExportAsFixedFormat Türü:=xlTypePDF, _
Dosya adı:=Aralık("P2"), _
OpenAfterPublish:=Doğru
Application.ScreenUpdating = True
End Sub

orijinal dosyanın bulunduğu konuma kaydetmek için dosyaya ihtiyacım var. aynı adla kaydetmek için excel dosyasının bir kopyasına da ihtiyacınız var.
Bu yorum sitedeki moderatör tarafından en aza indirildi
Merhaba Matt Bentley,
Kod mükemmel çalışıyor. Paylaşım için teşekkürler.
Bu yorum sitedeki moderatör tarafından en aza indirildi
Merhaba,

kann jeman ve mir helfen?

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

Özel Alt KomutDüğmesi1_Click ()
Application.ScreenUpdating = Yanlış
ActiveSheet.ExportAsFixedFormat Türü:=xlTypePDF, _
Dosya adı:="C:\PDF\Export.pdf", _
OpenAfterPublish: = Yanlış
Application.ScreenUpdating = True
End Sub

Teşekkür ederim
Bu yorum sitedeki moderatör tarafından en aza indirildi
Merhaba,

ich nutze diese Zeilen ve möchte das eine Zelle de Dateiname verwenden wird!
Gebe bir Tipp Kann mir jemand?


Özel Alt KomutDüğmesi1_Click ()
Application.ScreenUpdating = Yanlış
ActiveSheet.ExportAsFixedFormat Türü:=xlTypePDF, _
Dosya adı:="c:/" & G3 & ".pdf", _
OpenAfterPublish: = Yanlış
Application.ScreenUpdating = True
End Sub
Bu yorum sitedeki moderatör tarafından en aza indirildi
Merhaba Sasha
Aşağıdaki kod yardımcı olabilir. Kodu uygulamadan önce lütfen 'C:\Kullanıcılar\Win10x64Test\Belgeler\PDF' dördüncü satırda kendi hedef klasör yolunuz.
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
Bu yorum sitedeki moderatör tarafından en aza indirildi
Что это за кнопка - "другой" + Q клавиши одновременно" ?
Bu yorum sitedeki moderatör tarafından en aza indirildi
Merhaba Диана,
Klavyenizdeki "Alt" tuşudur. Microsoft Excel, kullanıcıların Microsoft Visual Basic for Applications penceresini kapatmak ve çalışma sayfasına geri dönmek için "Alt" + "Q" tuşlarına basmasına izin verir.
Bu yorum sitedeki moderatör tarafından en aza indirildi
Goededag

Command-Knop Om Een ​Actief Werkblad Op Te Slaan Als PDF-Bestand Met VBA-Code.
kodlarla birleştirilmiş bir helemaal birim değildir.
teşekkürler
Bu yorum sitedeki moderatör tarafından en aza indirildi
Merhaba Max,
Üzgünüm, ne demek istediğini anlamıyorum. Yapmaya çalıştığınız şeyin ekran görüntüsünü eklemeniz gerekebilir. Rahatsızlıktan dolayı özür dileriz.
Bu yorum sitedeki moderatör tarafından en aza indirildi
Merhaba Takımı,

Oluşturulan dosyanın hedefini herhangi bir kullanıcının masaüstüne değiştirmeye yardımcı olabilecek birinin olup olmadığını merak ediyorum. Şirketim C:'ye erişime izin vermiyor, bu yüzden betik çalışmıyor.

ÇOK ÇOK ÇOK teşekkürler!
Bu yorum sitedeki moderatör tarafından en aza indirildi
Merhaba Ben Stoddart,
Masaüstünüzdeki herhangi bir klasörü açmanız ve adres kutusundaki klasör yolunu kopyalamanız, ardından VBA kodundaki klasör yolunu kopyaladığınız yolla değiştirmeniz yeterlidir.
İşte yeni Dosya Adı satırı (lütfen Kullanıcı Adını kendi kullanıcı adınızla değiştirin), İhracat.pdf PDF dosyasının adı ve dosya uzantısıdır:
Dosyaadı:="C:\Kullanıcılar\Kullanıcı Adı\Desktop\PDF\Export.pdf", _
Bu yorum sitedeki moderatör tarafından en aza indirildi
Bunu ne zaman çalıştırsam, excel sayfalarının kaydedildiği yerel sürücüme bir PDF kaydediyor, bunun otomatik kaydetmesini nasıl durdurabilirim?

Özel Alt KomutDüğmesi1_Click ()
Application.ScreenUpdating = Yanlış
ActiveSheet.ExportAsFixedFormat Türü:=xlTypePDF, _
OpenAfterPublish:=Doğru
Application.ScreenUpdating = True
End Sub
Bu yorum sitedeki moderatör tarafından en aza indirildi
Aşağıdakini çalıştırdığımda otomatik olarak PDF'nin yerel bir sürümünü oluşturuyor - bunun otomatik olarak kaydedilmesini nasıl durdurabilirim?

Özel Alt KomutDüğmesi1_Click ()
Application.ScreenUpdating = Yanlış
ActiveSheet.ExportAsFixedFormat Türü:=xlTypePDF, _
OpenAfterPublish:=Doğru
Application.ScreenUpdating = True
End Sub
Bu yorum sitedeki moderatör tarafından en aza indirildi
Merhaba James,
PDF dosyasını manuel olarak kaydetmek üzere bir klasör seçmek için bir pencere açmak ister misiniz?
Bu yorum sitedeki moderatör tarafından en aza indirildi
Merhaba Crystal, ideal olarak evet, böylece PDF'yi nereye kaydedeceğimi seçebilirim.
Bu yorum sitedeki moderatör tarafından en aza indirildi
James,

Aşağıdaki VBA kodu, sorunu çözmenize yardımcı olabilir.
not: Aynı anda hem hedefi hem de dosya adını işleyemezsiniz. Aşağıdaki VBA kodunu ekledikten sonra butona tıkladığınızda karşınıza bir hedef klasör seçmeniz için bir iletişim kutusu açılacaktır. Bir hedef klasör seçtikten sonra, PDF dosyasına bir ad vermeniz için bir kutu açılır.

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
Bu yorum sitedeki moderatör tarafından en aza indirildi
Zeilene ihtiyacım var ve bağırsaklarımda işlevsellik var, benim Sorunum şu ki, bu tarihler gerçek hayattan çok daha fazlası, çok daha fazlası!
Vermeiden'ı nasıl elde edersiniz, bu sadece bir kommendir, varolan varlıklar ve sadece bir dünyadır?
Bu yorum sitedeki moderatör tarafından en aza indirildi
Zeilene ihtiyacım var ve bağırsaklarımda işlevsellik var, benim Sorunum şu ki, çok az zamanımız var, WIRD en çok einfach überschrieben!
Vermeiden'ı nasıl elde edersiniz, bu sadece bir kommendir, varolan varlıklar ve sadece bir dünyadır?


Özel Alt KomutDüğmesi1_Click ()
Application.ScreenUpdating = Yanlış
ActiveSheet.ExportAsFixedFormat Türü:=xlTypePDF, _
Dosyaadı:="X:\firmen\Buchhaltung\Rechnungs-Kopie_Ackermann Service GmbH\2022\RK-Abrechnung\" & ActiveSheet.Range("G1") & ".pdf", _
OpenAfterPublish:=Doğru
Application.ScreenUpdating = True
End Sub
Bu yorum sitedeki moderatör tarafından en aza indirildi
Merhaba Sasha
Aşağıdaki VBA kodu yardımcı olabilir. Lütfen bir deneyin.

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
Buraya henüz hiç yorum yapılmamış
Lütfen yorum yazın
Misafir olarak yayınlama
×
Bu gönderiyi değerlendirin:
0   Karakterler
Önerilen Konumlar

Bizi takip et

Telif Hakkı © 2009 - www.extendoffice.com. | Tüm hakları Saklıdır. Tarafından desteklenmektedir ExtendOffice. | | | Site Haritası
Microsoft ve Office logosu, Microsoft Corporation'ın Amerika Birleşik Devletleri ve / veya diğer ülkelerdeki ticari markaları veya tescilli ticari markalarıdır.
Sectigo SSL ile korunmaktadır