Sorgu için arama sonuçları: ExportAsFixedFormat

Üstadım Merhaba; Konu oldukça dikkatimi çekti gerçekten elinize emeğinize sağlık. Benimde buna benzer bir konu üzerine sorum ve yardım rica olacak. Ben bir sitenin yöneticisiyim her evin ayrı ayrı borç alacak tablosu var. Kodlarla da PDF çevirebiliyorum ancak gönderme konusunda tek tek...

...PDF olarak kaydet pdfPath = "C:\DosyaYolu\" & ActiveSheet.Name & ".pdf" ' Kendi dosya yolunu ayarla ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=pdfPath, Quality:=xlQualityStandard ' WhatsApp'ı sadece bir kez aç If Not whatsappOpened Then...

...= num pdfName = folderPath & "Sozel_" & CStr(num) & ".pdf" wsTemplate.ExportAsFixedFormat Type:=xlTypePDF, Filename:=pdfName, Quality:=xlQualityStandard End If Next cell End Sub Sub PDF2() 'SAYISAL BOLUM ICIN...

With Worksheets("KİMLİK") .ExportAsFixedFormat _ Type:=xlTypePDF, _ Filename:=dosya_yolu, _ Quality:=xlQualityStandard, _ IncludeDocProperties:=True, _ IgnorePrintAreas:=False, _ OpenAfterPublish:=False End With ile PDF oluşturuyorum. Ancak Boş...

...fileName = filePath & cleanName & ".pdf" Debug.Print fileName ws.ExportAsFixedFormat Type:=xlTypePDF, fileName:=fileName, _ Quality:=xlQualityStandard, IncludeDocProperties:=True, _ IgnorePrintAreas:=False...

...filePath End If For Each ws In ThisWorkbook.Worksheets fileName = filePath & ws.Name & ".pdf" ws.ExportAsFixedFormat Type:=xlTypePDF, fileName:=fileName, _ Quality:=xlQualityStandard, IncludeDocProperties:=True, _ IgnorePrintAreas:=False...

Öncelikle bilginize emeğinize sağlık. Haftalardır çözmeye çalıştığım sorunuma yardımcı oldunuz çok teşekkür ederim. Son bir sorum olacak; PDF yerine excel dosyası olarak yapmak istesem neyi değiştirmem gerek?

...Next j Next i ' Sayfayı Rapor.pdf ismiyle aktif olan Excel dosyasının olduğu klasöre kaydet ve aç tempSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=ThisWorkbook.Path & "\Rapor.pdf", OpenAfterPublish:=True ' OpenAfterPublish:=False Dosyayı açmaz ' Sayfayı silerken...

...pdffile = gecicipath & Range("B7") & ".pdf" Set alan = Range(ActiveSheet.PageSetup.PrintArea) alan.ExportAsFixedFormat Type:=xlTypePDF, fileName:=pdffile, openafterpublish:=False ReDim Preserve pdfFiles(i - 5) pdfFiles(i - 5) = pdffile Next...

...= ThisWorkbook.Path & "\" pdffile = gecicipath & Range("B7") & ".pdf" Set alan = Range(ActiveSheet.PageSetup.PrintArea) alan.ExportAsFixedFormat Type:=xlTypePDF, Filename:=pdffile, openafterpublish:=False Set outmail = outapp.CreateItem(olMailItem) With outmail .To = Range("j1") .Subject =...

...& RAPORLAR & "\" isim = CreateObject("Scripting.FileSystemObject").GetBaseName(ThisWorkbook.Name) & " - " & _ ThisWorkbook.ActiveSheet.Range("A1").Text & ".xlsx" ThisWorkbook.ActiveSheet.ExportAsFixedFormat Type:=XLSX, Filename:=yol & isim MsgBox "Rapor Aktarıldı" End Sub

...kaydetmiş. ister oradan alın, ister ilgili satırı değiştiriniz. docN.ExportAsFixedFormat OutputFileName:=ThisDocument.Path & "\" & isim & ".pdf", ExportFormat:=wdExportFormatPDF yenisi bu şekilde olmalı. docN.ExportAsFixedFormat OutputFileName:=docC.Path & "\" & isim & ".pdf"...

zahmet veriyorum size ama. bu kezde sayfalar kaydedildi uyarısı geliyor ancak herhangi bir yere pdf dosyası kaydetmiyor. özellikle word dosyasını yeni bir klasör açıp oraya ekledim. vba yı çalıştırdım msgbox daki sayfalar kaydedildi bilgisi geldi ancak hiç bir yere kayıt edilmiş bir pdf yok. siz...

...rCopy.Copy Set docN = Documents.Add Selection.Paste Selection.TypeBackspace Selection.TypeBackspace docN.ExportAsFixedFormat OutputFileName:=ThisDocument.Path & "\" & isim & ".pdf", ExportFormat:=wdExportFormatPDF docN.Close SaveChanges:=wdDoNotSaveChanges Next i...

...rCopy.Copy Set docN = Documents.Add Selection.Paste Selection.TypeBackspace Selection.TypeBackspace docN.ExportAsFixedFormat OutputFileName:= _ ThisDocument.Path & "\" & isim & ".pdf" _ , ExportFormat:=wdExportFormatPDF, OpenAfterExport:=False...

...= CreateObject("WScript.Shell").SpecialFolders("Desktop") Dosya_Adi = Range("AX18").Value & ".pdf" Range("Print_Area").ExportAsFixedFormat Type:=xlTypePDF, _ Filename:=Yol & "\" & Dosya_Adi, _ Quality:=xlQualityStandard, _ IncludeDocProperties:=True, _...

Aslında bu kodu da denedim ama ben çalıştırmayı beceremedim kesin. Yine de size de çok teşekkür ederim

Şu satırda dosyayı açar... Worksheets("Günlük").ExportAsFixedFormat, OpenAfterExport:=True

Çok çok teşekkür ederim. İstediğimden bile daha fazlasını paylaşmışsınız. Sorunsuz çalışıyor.

...> 0 Then MsgBox "Dosya mevcut: " & DosyaYolu, vbExclamation, "Uyarı" Else Worksheets("Günlük").ExportAsFixedFormat xlTypePDF, Filename:=DosyaYolu End If End Sub Sor ve kaydet, Sub PdfKaydet() Dim Path As String Dim Tarih As String Dim DosyaYolu As...