Excel'de birden fazla çalışma kitabı veya çalışma sayfasını bir seferde PDF dosyalarına nasıl dönüştürebilirsiniz?

Verileri paylaşırken değişiklikleri önlemek istediğinizde, Excel dosyalarını PDF'ye dönüştürmek yaygın bir iştir. Excel'in Farklı Kaydet özelliği, tek bir çalışma kitabını PDF'ye dönüştürmenize olanak tanır, ancak birden fazla dosya için bu işlem zaman alıcı olabilir. Bu kılavuzda, VBA kodu ve Kutools for Excel gibi çeşitli yöntemler kullanılarak birden fazla çalışma kitabı veya çalışma sayfasının hızlıca PDF dosyalarına dönüştürülmesi ele alınmaktadır.

• Çalışma kitaplarını tek tek Farklı Kaydet işleviyle PDF dosyalarına dönüştürme
• Birden fazla çalışma kitabını VBA koduyla tek seferde PDF dosyalarına dönüştürme
• Güçlü bir özellik ile birden fazla çalışma kitabını PDF dosyalarına dönüştürme
• Bir çalışma kitabından birden fazla çalışma sayfasını VBA koduyla ayrı PDF dosyalarına dönüştürme
• Elverişli bir özellik ile bir çalışma kitabından birden fazla çalışma sayfasını ayrı PDF dosyalarına dönüştürme

Çalışma kitaplarını tek tek Farklı Kaydet işleviyle PDF dosyalarına dönüştürme

Normalde, Excel'deki Farklı Kaydet özelliği, tüm çalışma kitabını bir PDF dosyasına kaydetmenize yardımcı olabilir, lütfen şu adımları izleyin:

1. PDF formatına dönüştürmek istediğiniz çalışma kitabını açın.

2. Dosya > Farklı Kaydet'e tıklayın ve Farklı Kaydet iletişim kutusunda, yeni dosyayı kaydetmek için bir klasör belirtin, ardından Kaydetme Biçimini Belirt açılır listesinden PDF'yi seçin ve ardından Seçenekler düğmesine tıklayın, aşağıdaki ekran görüntüsüne bakın:

3. Ardından, açılan Seçenekler iletişim kutusunda Tüm Çalışma Kitabı'nı işaretleyin, aşağıdaki ekran görüntüsüne bakın:

4. Ve ardından Tamam > Kaydet'e tıklayın, bu bütün çalışma kitabı PDF dosya formatında kaydedilmiş olacaktır.

Birden fazla çalışma kitabını VBA koduyla bir seferde PDF dosyalarına dönüştürme

Dönüştürülecek yüzlerce Excel dosyası varsa, yukarıdaki yöntem zahmetli olabilir, burada birden fazla çalışma kitabını bir seferde PDF dosyalarına dönüştürmek için bir VBA kodundan bahsedeceğim, lütfen aşağıdaki adımları izleyin:

1. Microsoft Visual Basic for Applications penceresini açmak için ALT + F11 tuşlarına basın.

2. Ekle > Modül'e tıklayın ve aşağıdaki kodu Modül Penceresine yapıştırın.

VBA kodu: Birden fazla çalışma kitabını bir seferde PDF dosyalarına dönüştürme

Sub ExcelSaveAsPDF()
'Updateby Extendoffice
    Dim strPath As String
    Dim xStrFile1, xStrFile2 As String
    Dim xWbk As Workbook
    Dim xSFD, xRFD As FileDialog
    Dim xSPath As String
    Dim xRPath, xWBName As String
    Dim xBol As Boolean
    Set xSFD = Application.FileDialog(msoFileDialogFolderPicker)
    With xSFD
    .Title = "Please select the folder contains the Excel files you want to convert:"
    .InitialFileName = "C:\"
    End With
    If xSFD.Show <> -1 Then Exit Sub
    xSPath = xSFD.SelectedItems.Item(1)
    Set xRFD = Application.FileDialog(msoFileDialogFolderPicker)
    With xRFD
    .Title = "Please select a destination folder to save the converted files:"
    .InitialFileName = "C:\"
    End With
    If xRFD.Show <> -1 Then Exit Sub
    xRPath = xRFD.SelectedItems.Item(1) & "\"
    strPath = xSPath & "\"
    xStrFile1 = Dir(strPath & "*.*")
    Application.ScreenUpdating = False
    Application.DisplayAlerts = False
    Do While xStrFile1 <> ""
        xBol = False
        If Right(xStrFile1, 3) = "xls" Then
            Set xWbk = Workbooks.Open(Filename:=strPath & xStrFile1)
            xbwname = Replace(xStrFile1, ".xls", "_pdf")
            xBol = True
        ElseIf Right(xStrFile1, 4) = "xlsx" Then
            Set xWbk = Workbooks.Open(Filename:=strPath & xStrFile1)
            xbwname = Replace(xStrFile1, ".xlsx", "_pdf")
            xBol = True
        ElseIf Right(xStrFile1, 4) = "xlsm" Then
            Set xWbk = Workbooks.Open(Filename:=strPath & xStrFile1)
            xbwname = Replace(xStrFile1, ".xlsm", "_pdf")
            xBol = True
        End If
        If xBol Then
            xWbk.ExportAsFixedFormat Type:=xlTypePDF, Filename:=xRPath & xbwname & ".pdf"
            xWbk.Close SaveChanges:=False
       End If
        xStrFile1 = Dir
    Loop
    Application.DisplayAlerts = True
    Application.ScreenUpdating = True
End Sub

3. Bu kodu çalıştırmak için F5 tuşuna basın ve bir pencere açılacak, lütfen dönüştürmek istediğiniz çalışma kitaplarını içeren bir klasör seçin, aşağıdaki ekran görüntüsüne bakın:

4. Tamam'a tıklayın, başka bir pencere açılacak, lütfen yeni PDF dosyalarını kaydetmek istediğiniz klasör yolunu seçin, aşağıdaki ekran görüntüsüne bakın:

5. Tamam'a tıklayın, dönüştürme tamamlandıktan sonra, sonuçları görüntülemek için belirlenen klasöre gidebilirsiniz, aşağıdaki ekran görüntülerine bakın:

Güçlü bir özellik ile birden fazla çalışma kitabını PDF dosyalarına dönüştürme

Kutools for Excel'iniz varsa, Format Dönüştürücü yardımcı programıyla birden fazla çalışma kitabını bir seferde PDF dosyalarına hızlıca dönüştürebilirsiniz.

1. Kutools Plus > Çalışma Kitabı > Format Dönüştürücü'ye tıklayın, aşağıdaki ekran görüntüsüne bakın:

2. Dönüştürmek istediğiniz çalışma kitaplarını kapatmanızı hatırlatan bir uyarı kutusu açılacaktır.

3. Tamam'a tıklayın, ardından FileFormat Dönüştürücü iletişim kutusunda aşağıdaki seçenekleri belirtin:

• Dönüştürme Türü açılır listesinde, Excel Çalışma Kitabını PDF'ye seçin;
• Dönüştürmek istediğiniz Excel dosyalarını seçmek için Ekle düğmesine tıklayın. Gereksinimlerinize göre bilgisayarınızdan veya OneDrive'dan çalışma kitapları seçebilirsiniz.

4. Dönüştürmek istediğiniz çalışma kitaplarını ekledikten sonra hala Dosya Format Dönüştürücü iletişim kutusunda, lütfen dönüştürülen dosyaları kaydetmek için bir klasör yolu seçmek üzere düğmesine tıklayın ve ardından iletişim kutusunun alt kısmındaki gerekli işlemleri belirtin, aşağıdaki ekran görüntüsüne bakın:

5. Ardından dönüştürmeye başlamak için Tamam'a tıklayın. Belirlenen tüm Excel dosyaları PDF'ye dönüştürüldükten sonra, sonuçları görüntülemek için belirlenen klasöre gidin. Aşağıdaki ekran görüntülerine bakın:

Bir çalışma kitabından birden fazla çalışma sayfasını ayrı PDF dosyalarına VBA koduyla dönüştürme

Bazı durumlarda, çalışma kitabındaki her çalışma sayfasını ayrı PDF dosyalarına dönüştürmek isteyebilirsiniz. Çalışma kitabınız birçok sayfa içeriyorsa, aşağıdaki VBA kodu her çalışma sayfasını ayrı bir PDF dosyası olarak aynı anda kaydetmenize yardımcı olabilir.

1. Dönüştürmek istediğiniz bir çalışma kitabını açın ve ardından Microsoft Visual Basic for Applications penceresini açmak için ALT + F11 tuşlarına basılı tutun.

2. Ekle > Modül'e tıklayın ve aşağıdaki kodu Modül Penceresine yapıştırın.

VBA kodu: Bir çalışma kitabından birden fazla çalışma sayfasını ayrı PDF dosyalarına dönüştürme

Sub SplitEachWorksheet()
'Updateby Extendoffice
Dim xSPath As String
Dim xSFD As FileDialog
Dim xWSs As Sheets
Dim xWb As Workbook
Dim xWbs As Workbooks
Dim xNWb As Workbook
Dim xInt, xI As Integer
Set xSFD = Application.FileDialog(msoFileDialogFolderPicker)
With xSFD
.title = "Please select a folder to save the converted files:"
.InitialFileName = "C:\"
End With
If xSFD.Show <> -1 Then Exit Sub
xSPath = xSFD.SelectedItems.Item(1)
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Set xWb = Application.ActiveWorkbook
Set xWbs = Application.Workbooks
Set xWSs = xWb.Sheets
Set xNWb = xWbs.Add
xInt = xWSs.Count
For xI = 1 To xInt
On Error GoTo EBreak
Set xWs = xWSs.Item(xI)
If xWs.Visible Then
xWSs(xWs.Name).Copy
Application.ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=xSPath & "\" & xWs.Name & ".pdf"
Application.ActiveWorkbook.Close False
End If
EBreak:
Next
xWb.Activate
Application.DisplayAlerts = True
Application.ScreenUpdating = True
End Sub

3. Bu kodu çalıştırmak için F5 tuşuna basın ve bir pencere açılacak; lütfen dönüştürülen PDF dosyalarını kaydetmek için bir klasör yolu seçin. Ekran görüntüsüne bakın:

4. Tamam düğmesine tıklayın ve geçerli çalışma kitabındaki tüm çalışma sayfaları ayrı PDF dosyalarına dönüştürülecektir:

Elverişli bir özellik ile bir çalışma kitabından birden fazla çalışma sayfasını ayrı PDF dosyalarına dönüştürme

Kutools for Excel ayrıca Çalışma Kitabını Ayır adlı kullanışlı bir özelliğe sahiptir, bu özellik ile çalışma kitabındaki birden fazla çalışma sayfasını ayrı Excel dosyası, Txt dosyası, CSV dosyası ve PDF dosyası olarak kaydedebilirsiniz.

1. Her sayfayı ayrı bir PDF dosyası olarak kaydetmek istediğiniz çalışma kitabını açın ve ardından Kutool Plus > Çalışma Kitabı > Çalışma Kitabını Ayır'a tıklayın, aşağıdaki ekran görüntüsüne bakın:

2. Çalışma Kitabını Ayır iletişim kutusunda, kaydetmek istediğiniz sayfayı işaretleyin ve ardından Kaydetme Biçimini Belirt açılır listesinden PDF (*.pdf) seçeneğini seçin ve ardından Ayır düğmesine tıklayın, Klasör Seç penceresinde dönüştürülen dosyaları koymak için bir klasör belirtin, aşağıdaki ekran görüntüsüne bakın:

3. Ve ardından, geçerli çalışma kitabındaki tüm seçili çalışma sayfaları bireysel olarak PDF dosyalarına kaydedilecektir, aşağıdaki ekran görüntüsüne bakın:

Daha fazla ilgili makale: