Arkadaşlar elimde 300e yakın excel formatında dosya var. Bunları en hızlı şekilde pdf'e çevirebilmem için bir yol/yntem 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

Yine kendi gbeğ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 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 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 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 klasrü seçin, PDF dosyalarının kaydedileceği klasrü 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

1 tanesini yapan acrobat pronun parametresini bulabilirsen, 300 tane için batch yazsan en kolayı olurdu Nush ile uslanmayanı etmeli tekdir, Tekdir ile uslanmayanın hakkı ktektir!

Acrobat pro var ise o yapıyor yok ise Adobe Acrobat Pro DC 2021 İndir - Full Türkçe + Katılımsız indirebilirsin. Batch Conversion of Excel to PDF

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