folder Tahribat.com Forumları
linefolder Bilgisayarla İlgili Diğer Konular
linefolder 300 Excel Dosyasını En Kısa Sürede Pdf'e Çevirmek



300 Excel Dosyasını En Kısa Sürede Pdf'e Çevirmek

  1. KısayolKısayol reportŞikayet pmÖzel Mesaj
    italyan
    italyan's avatar
    Kayıt Tarihi: 03/Aralık/2003
    Erkek

    Arkadaşlar elimde 300e yakın excel formatında dosya var. Bunları en hızlı şekilde pdf'e çevirebilmem için bir yol/yöntem arıyorum. Nasıl yapabilirim ? Yardımcı olabilir misiniz ? Şuan rapor yapmaktan düşünemiyorum. Bi destek atın :D 

    Gerçek yoktur.Herşey yorumdur. - KKK - Düşünürseniz, acı çekersiniz. Şüphe ederseniz, delirirsiniz. Hissederseniz, yalnız kalırsınız. O yüzden koy goethe
    Reply With Quote Alıntı yap
  2. KısayolKısayol reportŞikayet pmÖzel Mesaj
    engin01288
    engin01288's avatar
    Kayıt Tarihi: 11/Haziran/2015
    Erkek

    Acrobat pro var ise o yapıyor yok ise Adobe Acrobat Pro DC 2021 İndir - Full Türkçe + Katılımsız (fullprogramlarindir.net) indirebilirsin.

    Batch Conversion of Excel to PDF (adobe.com)

    Reply With Quote Alıntı yap
  3. KısayolKısayol reportŞikayet pmÖzel Mesaj
    italyan
    italyan's avatar
    Kayıt Tarihi: 03/Aralık/2003
    Erkek

    Yine kendi göbeğimizi kendimiz kesiyoruz....

    VBA kısmında modül ekleyip aşağıdaki komutu yazın.

    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


    F5 yapın. Excel dosyalarının olduğu klasörü seçin , PDF dosyalarının kaydedileceği klasörü seçin. Geçmiş olsun.... 

    Kodlardan anlayan bi baksın , herhangi bir ibnelik mibnelik yok değil mi komutlarda ? 

    Gerçek yoktur.Herşey yorumdur. - KKK - Düşünürseniz, acı çekersiniz. Şüphe ederseniz, delirirsiniz. Hissederseniz, yalnız kalırsınız. O yüzden koy goethe
    Reply With Quote Alıntı yap
  4. KısayolKısayol reportŞikayet pmÖzel Mesaj
    archair23
    archair23's avatar
    Kayıt Tarihi: 15/Ekim/2008
    Erkek

    Yanlis hatrlamiosam tek seferde 30 tane yapabiliosun free olarak  gunluk limit yok sinirsiz yapabilisin.

     

    https://www.ilovepdf.com/

     

    https://www.ilovepdf.com/excel_to_pdf 

    Acer 4820TG i5 Ati 5650 & İphone 4 & iphone 6 & Turkcell Platinum & Ipad Mini Retina & Playstation 4 & GTA V & Logitech Z506 & Cookoo & Samsung Evo 250gb
    Reply With Quote Alıntı yap
  5. KısayolKısayol reportŞikayet pmÖzel Mesaj
    Tarikat Şeyhi
    HolyOne
    HolyOne's avatar
    Kayıt Tarihi: 01/Haziran/2002
    Erkek

    1 tanesini yapan acrobat pronun (yada benzer başka bi programın) parametresini bulabilirsen, 300 tane için batch yazsan en kolayı olurdu

    Nush ile uslanmayanı etmeli tekdir, Tekdir ile uslanmayanın hakkı kötektir!
    Reply With Quote Alıntı yap
Toplam Hit: 1054 Toplam Mesaj: 5
excel pdf convert