Sorgu için arama sonuçları: ExportAsFixedFormat

...& 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...

Bunu da uyguladım hata vermiyor ama sonuç da vermiyor malesef. Kayıt yapmıyor yani.

Bu şekilde hata verdi

sub kaydet() Path = Worksheets("Ayarlar").Range("C15").Text Tarih = Worksheets("Günlük").Range("G2").Value If Dir(Path & Tarih & ".pdf" ) <> "" then Worksheets("Günlük").ExportAsFixedFormat xlTypePDF, Filename:=Path & Tarih & ".pdf" end if end sub

...= Worksheets("Günlük").Range("G2").Value dosyaAdi = Path & Tarih & ".pdf" If fs.FileExists(dosyaAdi) = True Then Msgbox "Aynı isimde dosya bulunduğu için kayıt işlemi yapılmadı.!" Exit sub End If Worksheets("Günlük").ExportAsFixedFormat xlTypePDF, Filename:=Path & Tarih & ".pdf" End Sub

Compile error: Syntax error Bu hatayı veriyor

If Dir(Path & Tarih & ".pdf" ) <> "" Worksheets("Günlük").ExportAsFixedFormat xlTypePDF, Filename:=Path & Tarih & ".pdf" end if

Merhaba Excelde pdf olarak kaydetmek için aşağıdaki kodu kullanıyorum. Ama aynı isimli dosya olursa uyarı vermeden direk üstüne kaydediyor. Aynı isimli pdf dosyası olduğu zaman kaydetmeyecek şekilde kodu güncelleyebilir miyiz?

..."" Then MkDir klasorYol End If If Dir(testKlasorYol, vbDirectory) = "" Then MkDir testKlasorYol End If Sheets(x).ExportAsFixedFormat Type:=xlTypePDF, Filename:=yol Next MsgBox "İşlem tamamlandı." Exit Sub hata: MsgBox "Bir hata oluştu: " & Err.Description...

...= ThisWorkbook.Path & "\" & Sheets(x).Name If Dir(klasorYol, vbDirectory) = "" Then MkDir klasorYol End If Sheets(x).ExportAsFixedFormat Type:=xlTypePDF, Filename:=yol Next MsgBox "İşlem tamamlandı." Exit Sub hata: MsgBox "Bir hata oluştu: " & Err.Description End Sub

...yapabilir mi? Private Sub CommandButton1_Click() For x = 1 To Sheets.Count yol = ThisWorkbook.Path & "\" & Sheets(x).Name On Error GoTo hata: Sheets(x).ExportAsFixedFormat Type:=xlTypePDF, Filename:=yol hata: Next MsgBox "İşlem tamamlandı." End Sub Kullandığım kod bu. Teşekkür ederim.