ذخیره شیت های دلخواه اکسل در یک فایل pdf

[ali.b]

سلام
گاهی پیش میاد که میخواین شیت های مورد نظرتون از بین تمامی شیت های اکسل براتون به صورت فایل pdf ذخیره بشه
کد زیر این کار ور برای شما انجام میده

Sub Button2_Click()Dim strPDF_File_Name As String
FileName1 = Sheets("1").Range("B4") 'InputBox("Please input filename", "Filename")
Sheets(Array("1", "2")).Select
 ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=ThisWorkbook.Path & "\" & FileName1 & ".pdf", Quality _
 :=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
 OpenAfterPublish:=True
End Sub

در قسمت مشخص شده با رنگ ابی شما نامی که برای فایل pdf در نظر گرفته میشه رو مشخص میکنین
در صمت سبز تعداد شیت های مورد نظر که مخواین به صورت pdf در بیاد رو مشخص میکنین و در ضمن میتونید به جای اینکه نام شیت (1) رو وارد کنید از روش زیر استفاده کنید

sheets(array(sheet1.name,sheet2.name)).select

یعنی اگه نام شیت اول من 1 باشه به جای اینکه بنویسم 1 کد بالا رو قرار میدم و شیت های دیگه هم همینطور

در قسمت قرمز هم نام فایلی که تعیین کردیم و محل ذخیره رو تغییر میده که تو انجمن نمونه زیادی هم هست که بتونین در مورد تعیین محل ذخیره فایل هم اگه سوالی داشتین رفع کنین

اخطار: این یک موضوع قدیمی است به دلیل قدیمی بودن موضوع، ممکن است برخی فایل های ضمیمه به درستی کار نکنند. لطفا در صورت عدم ضرورت، از بالا آوردن موضوعات قدیمی خودداری نمایید.

[ali.b]

IncludeDocProperties:=True, IgnorePrintAreas:=False, _
 OpenAfterPublish:=True

این قسمت ها هم مربوط تنظیمات pdf هست که میتونی با تغییرات لازم به هدفتون برسین
درضمن وقتی این کد رو اجرا کنین فایل جدید باز میشه که اگه نمیخواین فایل خودکار باز بشه گزینه OpenAfterPublish:=True رو از حالت true به false تغییر بدین

[ali.b]

در ضمن علت توضیح من در مورد نوع نام گذاری شیت اینه که تو Vb با حرف ی مشکل داره و با روش دوم دیگه این مشکل رو نخواهید داشت

[amir.maliyan]

در ضمن علت توضیح من در مورد نوع نام گذاری شیت اینه که تو Vb با حرف ی مشکل داره و با روش دوم دیگه این مشکل رو نخواهید داشت

سلام واقعا عالي و دقيق كار ميكنه
سپاسگزارم
فقط يه مشكل دارم شيتي كه من ميخواهم به pdf تبديل كنم چند صفحه است چطور مشخص كنم از صفحه چند تا جند را برام pdf كن
ممنون ميشم راهنمايي كنيد

[Amir Ghasemiyan]

سلام واقعا عالي و دقيق كار ميكنه
سپاسگزارم
فقط يه مشكل دارم شيتي كه من ميخواهم به pdf تبديل كنم چند صفحه است چطور مشخص كنم از صفحه چند تا جند را برام pdf كن
ممنون ميشم راهنمايي كنيد

سلام دوست عزيز
كافيه دو پارامتر From و To رو به پارامترهاي تعريف شده اضافه كنيد. مثلا اينطوري:

Sub Button2_Click()Dim strPDF_File_Name As String
FileName1 = Sheets("1").Range("B4") 'InputBox("Please input filename", "Filename")
Sheets(Array("1", "2")).Select
 ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=ThisWorkbook.Path & "\" & FileName1 & ".pdf", Quality _
 :=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
 OpenAfterPublish:=True, From:=1, To:=1
End Sub

[amir.maliyan]

سلام آقاي مهندس وقت بخير سپاس عالي بود درست شد قبلا ميزدم خطا مي داد مثل تصوير ولي يه كاما كم داشت خيلي ممنون

[hooman_tt]

با سلام خدمت تمام اساتید ارجمند
میشه این توضیحات و راهنمایی هاتون رو بزرگواری بفرمایین و توی یک نمونه فایل قرار بدین؟
من هرکاری کردم نتونستم این ها رو به مرحله اجرا برسونم .
که البته مقصر بی سوادی بنده است .
ممنون و متشکر.

[ali.b]

سلام دوست عزیز
اینم فایل نمونه

[kia97]

سلام
آیا امکانش هست که این کد را فقط برای یک دکمه در یوزر فرم تعریف کرد که بعداز کلیک شیت های مورد نظر ما(مثلا شیت های 7 و 8 ) تبدیل به پی دی اف بشود ؟

[hooman_tt]

با سپاس از اظهار لطف حضرتعالی