نحوه تبدیل و ذخیره فایل اکسل به صورت pdf

[mazoolagh]

با اجازه آقای بهرامی

همون کد آخر تاپیک اشاره شده رو که شما زحمتش رو کشیدین،
با حذف workbook و به صورت early binding پیوست میکنم :

Dim xlApp As New Excel.Application

Dim ExcelPath As String



ExcelPath = Application.CurrentProject.Path + "\x.xlsx"



With xlApp

    .Application.Visible = False

    .Workbooks.Open (ExcelPath)

    .Sheets(Array("A", "B", "C")).Select

    .ActiveSheet.ExportAsFixedFormat _

        Type:=xlTypePDF, _

        FileName:=Replace(xlApp, ".xlsx", ".pdf"), _

        Quality:=xlQualityStandard, _

        IncludeDocProperties:=True, _

        IgnorePrintAreas:=True, _

        OpenAfterPublish:=True

    .Application.Quit

End With

Set xlApp = Nothing