منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

أنت حالياً تتصفح نسخة خفيفة من المنتدى . مشاهدة نسخة كاملة مع جميع الأشكال الجمالية .

السلام عليكم ورحمة الله وبركاته
بحثت وحاولت وجربت ولاكن لم اجد الحل
سؤالي هو طلب كود يقوم بتحويل اكسل الى pdf
ارجو من لديه الخبرة ان يساعدني في هذا الطلب

[attachment=28700]
[attachment=28699]

وجدت الحل والحمد لله في هذا الكود

كود :

 Dim Excel

        Dim ExcelDoc

        'Opens the Excel file'

        Excel = CreateObject("Excel.Application")

        ExcelDoc = Excel.Workbooks.open("C:\Users\alsaa\Desktop\55555\www.xlsx")

        'Creates the pdf file'

        Excel.ActiveSheet.ExportAsFixedFormat(0, "C:\Users\alsaa\Desktop\55555\www.pdf", 0, 1, 0, , , 0)

        'Closes the Excel file'

        Excel.ActiveWorkbook.Close()

        Excel.Application.Quit()

منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

alsaab120

alsaab120