PDF KAYDET KODUNDA AYNI DOSYA ÜZERİNE KAYIT UYARISI

[Avolkan0]

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?

Sub PdfKaydet()

Path = Worksheets("Ayarlar").Range("C15").Text
Tarih = Worksheets("Günlük").Range("G2").Value
Worksheets("Günlük").ExportAsFixedFormat xlTypePDF, Filename:=Path & Tarih & ".pdf"

End Sub

 

[hamitcan]

Kaydet satırının önüne aşağıdaki satırı ilave edin.

If Dir(Path & Tarih & ".pdf" ) <> ""

 

[Avolkan0]

Kaydet satırının önüne aşağıdaki satırı ilave edin.

If Dir(Path & Tarih & ".pdf" ) <> ""

Tam olarak nereye yazacağımı anlayamadım malesef

 

[hamitcan]

If Dir(Path & Tarih & ".pdf" ) <> ""

Worksheets("Günlük").ExportAsFixedFormat xlTypePDF, Filename:=Path & Tarih & ".pdf"

end if

 

[Avolkan0]

If Dir(Path & Tarih & ".pdf" ) <> ""

Worksheets("Günlük").ExportAsFixedFormat xlTypePDF, Filename:=Path & Tarih & ".pdf"

end if

Compile error:
Syntax error

Bu hatayı veriyor

 

[muratboz06]

Deneyiniz.

Sub PdfKaydet()
Dim fs As FileSystemObject

Path = Worksheets("Ayarlar").Range("C15").Text

Tarih = 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

 

[hamitcan]

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

 

[Avolkan0]

Deneyiniz.

Sub PdfKaydet()
Dim fs As FileSystemObject

Path = Worksheets("Ayarlar").Range("C15").Text

Tarih = 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

Bu şekilde hata verdi

 

[Avolkan0]

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

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

 

[RBozkurt]

Merhaba,

Deneyiniz.

Sub PdfKaydet()
    Dim Path As String
    Dim Tarih As String
    Dim DosyaYolu As String

    Path = Worksheets("Ayarlar").Range("C15").Text
    Tarih = Worksheets("Günlük").Range("G2").Value
    DosyaYolu = Path & Tarih & ".pdf"

    If Len(Dir(DosyaYolu)) > 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 String
    Dim cevap As VbMsgBoxResult

    Path = Worksheets("Ayarlar").Range("C15").Text
    Tarih = Worksheets("Günlük").Range("G2").Value
    DosyaYolu = Path & Tarih & ".pdf"

    If Len(Dir(DosyaYolu)) > 0 Then
        cevap = MsgBox("Dosya zaten mevcut. Üzerine yazmak istiyor musunuz?", vbYesNo + vbQuestion, "Onay")
        If cevap = vbYes Then
            Worksheets("Günlük").ExportAsFixedFormat xlTypePDF, Filename:=DosyaYolu
            MsgBox "Dosya başarıyla kaydedildi.", vbInformation
        Else
            MsgBox "İşlem iptal edildi.", vbInformation
        End If
    Else
        Worksheets("Günlük").ExportAsFixedFormat xlTypePDF, Filename:=DosyaYolu
        'MsgBox "Dosya başarıyla kaydedildi.", vbInformation
    End If
End Sub

 

[Avolkan0]

Merhaba,

Deneyiniz.

Sub PdfKaydet()
    Dim Path As String
    Dim Tarih As String
    Dim DosyaYolu As String

    Path = Worksheets("Ayarlar").Range("C15").Text
    Tarih = Worksheets("Günlük").Range("G2").Value
    DosyaYolu = Path & Tarih & ".pdf"

    If Len(Dir(DosyaYolu)) > 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 String
    Dim cevap As VbMsgBoxResult

    Path = Worksheets("Ayarlar").Range("C15").Text
    Tarih = Worksheets("Günlük").Range("G2").Value
    DosyaYolu = Path & Tarih & ".pdf"

    If Len(Dir(DosyaYolu)) > 0 Then
        cevap = MsgBox("Dosya zaten mevcut. Üzerine yazmak istiyor musunuz?", vbYesNo + vbQuestion, "Onay")
        If cevap = vbYes Then
            Worksheets("Günlük").ExportAsFixedFormat xlTypePDF, Filename:=DosyaYolu
            MsgBox "Dosya başarıyla kaydedildi.", vbInformation
        Else
            MsgBox "İşlem iptal edildi.", vbInformation
        End If
    Else
        Worksheets("Günlük").ExportAsFixedFormat xlTypePDF, Filename:=DosyaYolu
        'MsgBox "Dosya başarıyla kaydedildi.", vbInformation
    End If
End Sub

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

 

[Avolkan0]

Bişey daha istesem peki sizden

PDF olarak kaydettikten sonra, otomatik olarak kaydedilen pdf'nin de açılmasını da sağlayabilirmiyiz?

 

[RBozkurt]

Bişey daha istesem peki sizden

PDF olarak kaydettikten sonra, otomatik olarak kaydedilen pdf'nin de açılmasını da sağlayabilirmiyiz?

Kodun en sonundaki End If'den bir önceki satıra Shell "explorer.exe " & Chr(34) & DosyaYolu & Chr(34), vbHide ekleyip deneyiniz.

 

[Korhan Ayhan]

Şu satırda dosyayı açar...

Worksheets("Günlük").ExportAsFixedFormat, OpenAfterExport:=True

 

[Avolkan0]

Kodun en sonundaki End If'den bir önceki satıra Shell "explorer.exe " & Chr(34) & DosyaYolu & Chr(34), vbHide ekleyip deneyiniz.

Çok minnettarım size. teşekkürler. sorunsuz çalışıyor.

 

[Avolkan0]

Şu satırda dosyayı açar...

Worksheets("Günlük").ExportAsFixedFormat, OpenAfterExport:=True

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

 

[RBozkurt]

Çok minnettarım size. teşekkürler. sorunsuz çalışıyor.

Önemli değil, iyi çalışmalar.

 

[Korhan Ayhan]

Bende bu haliyle denemedim. Tahmini yazmıştım. Belki eksik olmuş olabilir. Ama pdf kaydetme parametrelerinde dosyayı açma seçeneği var.