پرسش تبدیل فایل به pdf بوسیله ماکرو در اکسل

[khalil2020]

دوستان میشه راهنمایی بفرمایید که چکونه می شود در فایل پیوستی از Sheet1 با استفاده از ماکرو پی دی اف تهیه کرد . کدشو مینویسم ارور میده. یا از شیت Form ی دی اف میگیره. یک نکته هم اگر در خانه a3 کدی مربوط به صفحه لیست را وارد کنیم بعد روی دکمه کلیک کنیم برای پی دی اف ارور میده. لطفا راهنمایی کنید

[Amir Ghasemiyan]

دوستان میشه راهنمایی بفرمایید که چکونه می شود در فایل پیوستی از Sheet1 با استفاده از ماکرو پی دی اف تهیه کرد . کدشو مینویسم ارور میده. یا از شیت Form ی دی اف میگیره. یک نکته هم اگر در خانه a3 کدی مربوط به صفحه لیست را وارد کنیم بعد روی دکمه کلیک کنیم برای پی دی اف ارور میده. لطفا راهنمایی کنید

سلام دوست عزیز
لطفا فایل ضمیمه رو به پستتون اضافه کنید
ولی در کل برای خروجی گرفتن از فایلتون بصورت pdf از کد زیر کمک بگیرید

Sub PDFActiveSheet()
Dim ws As Worksheet
Dim myFile As Variant
Dim strFile As String
On Error GoTo errHandler

Set ws = ActiveSheet

strFile = "exceliran.pdf"
strFile = ThisWorkbook.Path & "\" & strFile

myFile = Application.GetSaveAsFilename _
    (InitialFileName:=strFile, _
        FileFilter:="PDF Files (*.pdf), *.pdf", _
        Title:="Select Folder and FileName to save")

If myFile <> "False" Then
    ws.ExportAsFixedFormat _
        Type:=xlTypePDF, _
        Filename:=myFile, _
        Quality:=xlQualityStandard, _
        IncludeDocProperties:=True, _
        IgnorePrintAreas:=False, _
        OpenAfterPublish:=False
End If

exitHandler:
    Exit Sub
errHandler:
    MsgBox "Could not create PDF file"
    Resume exitHandler
End Sub

[علی فاطمی]

سلام دوست عزیز
لطفا فایل ضمیمه رو به پستتون اضافه کنید
ولی در کل برای خروجی گرفتن از فایلتون بصورت pdf از کد زیر کمک بگیرید

Sub PDFActiveSheet()
Dim ws As Worksheet
Dim myFile As Variant
Dim strFile As String
On Error GoTo errHandler

Set ws = ActiveSheet

strFile = "exceliran.pdf"
strFile = ThisWorkbook.Path & "\" & strFile

myFile = Application.GetSaveAsFilename _
    (InitialFileName:=strFile, _
        FileFilter:="PDF Files (*.pdf), *.pdf", _
        Title:="Select Folder and FileName to save")

If myFile <> "False" Then
    ws.ExportAsFixedFormat _
        Type:=xlTypePDF, _
        Filename:=myFile, _
        Quality:=xlQualityStandard, _
        IncludeDocProperties:=True, _
        IgnorePrintAreas:=False, _
        OpenAfterPublish:=False
End If

exitHandler:
    Exit Sub
errHandler:
    MsgBox "Could not create PDF file"
    Resume exitHandler
End Sub

سلام و خسته نباشید آقای قاسمیان عزیز
سوال من به طور مستقیم ربطی به موضوع فوق نداره ، ولی می خواستم بدونم آیا امکان یا نرم افزاری وجود داره که چندین فایل اکسل ( تاکید می کنم فایل اکسل ) را به صورت یکجا تبدیل به چندین فایل pdf کرد به شرطی که مجبور به باز کردن برنامه در اکسل نباشی و فایل های pdf شده هم نام با همان فایل های اکسل باشند ؟؟؟
ممنون از توجه شما