Excel Dosyalarını PDF'ye Nasıl Değiştirir veya Dışa Aktarırım?
Aşağıda, excel dosyalarını PDF'ye dışa aktarmanın örnekleri verilmiştir.
Örnek 1
Elektronik Tabloyu PDF Dosyası Olarak Kaydet!
Örneğin, bir organizasyondaki departman hiyerarşisini gösteren aşağıdaki verilere veya grafiğe bakın.
Dosya seçeneğinden Farklı Kaydet'i seçebilir ve Farklı Kaydet türünü "PDF" olarak seçebiliriz .
Bu, dosyayı yine de PDF olarak görür, ancak açtığınızda nasıl göründüğüne bakın.
PDF'de, kesinlikle hiçbir anlam ifade etmeyen iki farklı sayfa halinde geldi. Yalnızca Farklı Kaydet'i kullanıyor ve dosya türünü PDF olarak seçiyorsanız, bu, dosya veya elektronik tablo içeriği tek bir PDF sayfasının sığdırma alanından daha fazla olduğunda olan şeydir.
Bunun için yapmamız gereken, PDF dosyası olarak kaydetmeye çalıştığımız içerik alanını seçmektir. Ardından baskı önizleme penceresinin altında açmak için Ctrl + P tuşlarına basın .
Ayarlar altında, "Sayfayı Bir Sayfaya Sığdır" ı seçin.
Şimdi aynı pencerede Farklı Kaydet'e tıklayın ve dosya türü olarak PDF'yi seçin.
Bu, tüm verileri tek bir PDF sayfasına sığdıracaktır.
Bu, hepimizin düzenli olarak kullandığı ortak tekniktir.
Ancak, bir düğme excel elektronik tablosunun bir PDF dosyasını oluşturabilirse ne olur ??? Evet, bu VBA Kodlaması kullanılarak yapılabilir; Excel sayfasını PDF'ye dönüştürmek üzere VBA kodu oluşturmak için aşağıdaki adımları izleyin.
Örnek 2 - VBA Kodunu Kullanma
VBA Kodunu kullanarak bir excel sayfasını PDF'ye dönüştürme adımları.
Adım 1: Aşağıda gösterildiği gibi değişkenleri VBA'da bildirin.
2. Adım: Şimdi Çalışma Kitabı ve Çalışma Sayfası referansını "Ws" ve "Wb" değişkenlerine ayarlayın.
Adım 3: Dosyaya bir ad vermek için geçerli saati, yani kodun çalıştırıldığı andaki zamanı kaydetmemiz gerekir. Zamanı "SaveTime" değişkenine ayarlayın.
Adım 4: Şimdi, PDF dosyasını üzerinde çalıştığımız çalışma kitabının tam konumuna kaydetmemiz gerekiyor. Bu değeri "Yolu Kaydet" değişkenine atayın.
Adım 5: Şimdi, benzersiz bir dosya adı oluşturmak için dosya adlarını ve zamanı birleştirmemiz gerekiyor.
Adım 6: Dosyayı kaydetmek için hedef yolu seçme seçeneği vermemiz gerekiyor.
7. Adım: Şimdi bir PDF dosyası oluşturmamız gerekiyor.
Herhangi bir hata olması durumunda bunu da halletmemiz gerekiyor. Yani aşağıdaki kod aynı şeyi yapacak.
Tam kod sizin için aşağıdadır.
Kod:
Alt Excel_To_PDF () 'Değişkenleri Bildir Çalışma Sayfası Olarak Dim Wb'yi Çalışma Kitabı Olarak Dim SaveTime As String Dim SaveName As String Dim SavePath As String Dim FileName As String Dim FullPath As String DimFolder'ı Değişken Olarak Ayarla' Hatada Değişkenleri Ayarla GoTo EH Set Wb = ActiveWorkbook Ws = ActiveSheet 'Geçerli Saati Kaydet SaveTime = Biçim (Şimdi (), "yyyy mm gg _ hhmm")' Geçerli Çalışma Kitabı Klasör Yolu Adresini Kaydet SavePath = Wb.Path If SavePath = "" Sonra SavePath = Application.DefaultFilePath End If SavePath = SavePath & " " 'Dosyaya Bir Ad Verin SaveName = "PDF" FileName = SaveName & "_" & SaveTime & ".pdf"' Nereye kaydedileceğini bildirin FullPath = SavePath & FileName 'Nereye kaydedileceğini seçmek için klasör seçiciyi etkinleştirin SelectFolder = Uygulama dosyası.GetSaveAsFilename _ (InitialFileName: = FullPath, _ FileFilter: = "PDF Dosyaları (* .pdf), * .pdf", _ Title: = "Kaydedilecek Klasörü ve Dosya Adını Seçin") 'Seç Klasörse PDF Dosyası Oluştur "Yanlış" Ardından Ws .ExportAsFixedFormat _ Type: = xlTypePDF, _ FileName: = SelectFolder, _ Quality: = xlQualityStandard, _ IncludeDocProperties: = True, _ IgnorePrintAreas: = False, _ OpenAfterPublish: = False End If exitHandler: Exit Able to Msg: Msg PDF dosyası oluştur "Exume exitHandler End Sub= False, _ OpenAfterPublish: = Yanlış End exitHandler ise: Exit Sub EH: MsgBox "PDF dosyası oluşturulamıyor" exitHandler End Sub= False, _ OpenAfterPublish: = Yanlış End exitHandler ise: Exit Sub EH: MsgBox "PDF dosyası oluşturulamıyor" exitHandler End Sub
Bu kodu kopyalayın ve visual basic editor'ü açmak için Visual Basic Editor modülüne yapıştırın alt = "" + F11 tuşlarına basın. Bu kodu F5 tuşuna basarak çalıştırdığımızda aşağıdaki seçeneği karşılıyoruz.
Excel dosyanızın artık PDF'ye dönüştürüldüğünü görebilirsiniz.
Hatırlanacak şeyler
- Veriler tek bir sayfaya sığmazsa, PDF ekstra içeriği bir sonraki sayfaya aktarır.
- Bu kod, tüm çalışma sayfası içeriğini bir PDF dosyası olarak oluşturacaktır.
- Makro kodunu kopyaladıktan sonra, çalışma kitabını Makro Etkin Çalışma Kitabı olarak kaydetmeniz gerekir.
