Method 'ExportAsFixedFormat' of object '_Worksheet' failed

[furkani]

Değerli Arkadaşlar Merhaba,
Aşağıda belirtildiği şekilde gayet güzel çalışan makroda hata almaya başladım, nedenini bulamadığım için size sormak istedim.
Hata metni;
Method 'ExportAsFixedFormat' of object '_Worksheet' failed
Hata aldığım satır ise;

        S1.ExportAsFixedFormat Type:=xlTypePDF, Filename:=Yol & "\" & Dosya_Adi, Quality:=Standard, IncludeDocProperties:=True, _

        IgnorePrintAreas:=False, OpenAfterpublish:=False

Aldığım hata xlTypePDF den kaynaklı gibi gözüküyor.
Yardımlarınızı rica ediyorum. Şimdiden teşekkürler.

Kodlarım şu şekilde;

Dim Yol As String, Dosya_Adi As String
Dim Uygulama As Object, Yeni_Mail As Object, Veri As Range
Dim S1 As Worksheet, Onay As Byte, Mesaj As String, Adres As String

Sub mail_planlama()

    On Error Resume Next
    Set Uygulama = GetObject(, "Outlook.Application")
    On Error GoTo 0
    If Uygulama Is Nothing Then Call Shell("Outlook.exe", vbHide)
    
    Set Uygulama = CreateObject("Outlook.Application")
    Set Yeni_Mail = Uygulama.CreateItem(0)

    Set S1 = Sheets("komisyon_tutanak")
    
    Yol = "C:\Users\furkanipek\Desktop\HAMMADDE ÖZET\Fiyatlandırma Komisyon Kararları\"
    Dosya_Adi = Sheets("komisyon_tutanak").Range("C1") & " - " & "Karar No. " & Sheets("komisyon_tutanak").Range("J6") & ".pdf"
    ChDir Yol

    Onay = MsgBox("Kayıt edip, aşağıdaki adreslere mail göndermek istiyor musunuz?" & vbNewLine & Sheets("mail_list").Range("A2").Value, _
    vbExclamation + vbYesNo, "Uyarı!")

    If Onay = vbYes Then

        S1.ExportAsFixedFormat Type:=xlTypePDF, Filename:=Yol & "\" & Dosya_Adi, Quality:=Standard, IncludeDocProperties:=True, _
        IgnorePrintAreas:=False, OpenAfterpublish:=False

        With Yeni_Mail
        
             For Each Veri In Sheets("mail_list").Range("A2:A11").SpecialCells(xlCellTypeConstants, 6)
                 If Veri.Value <> "" Then
                     Adres = IIf(Adres = "", Veri.Value, Adres & ";" & Veri.Value)
                 End If
                
             Next
            .To = Adres
            .CC = ""
            .BCC = ""
            .Subject = Left(Dosya_Adi, Len(Dosya_Adi) - 4)
            .HTMLBody = Mesaj & .HTMLBody
            .Attachments.Add Yol & "\" & Dosya_Adi
            .BodyFormat = 2
            .Save
            .Send
        End With
        
        'Kill Yol & "\" & Dosya_Adi
        
        MsgBox "İşleminiz tamamlanmıştır.", vbInformation
    Else
        MsgBox "İşleminiz iptal edilmiştir.", vbInformation
    End If
    
    Set S1 = Nothing
    Set Yeni_Mail = Nothing
    Set Uygulama = Nothing
End Sub

 

[furkani]

Konu güncel arkadaşlar.

 

[necati]

Merhaba,
Kodunuzda bir problem yok. 2007 versiyonunda denedim çalışıyor. Tavsiyem, makro kaydeti kullanarak "komisyon_tutanak" adlı sayfanızı farklı kaydet ile kaydedin ve kaydı durdurun. Elde edilen makro kodunu inceleyip kendi kodunuza uyarlayın.

 

[furkani]

Birçok şey denemedim ancak çözemedim