Function Exceli_PDF_Yap(xlFileName As String, SavePDF As String)
Dim objXl As Object

Const xlTypePDF = 0
Const xlQualityStandard = 0

Set objXl = CreateObject("Excel.Application")

With objXl
    .Workbooks.Open (xlFileName)
      
    .ActiveWorkbook.ExportAsFixedFormat Type:=xlTypePDF, FileName:= _
        "" & SavePDF & "", quality:=xlQualityStandard, _
        includedocproperties:=True, ignoreprintareas:=False, openafterpublish:= _
        True
    .Quit
End With
    
End Function