سلام
گاهی پیش میاد که میخواین شیت های مورد نظرتون از بین تمامی شیت های اکسل براتون به صورت فایل 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 کد بالا رو قرار میدم و شیت های دیگه هم همینطور
در قسمت قرمز هم نام فایلی که تعیین کردیم و محل ذخیره رو تغییر میده که تو انجمن نمونه زیادی هم هست که بتونین در مورد تعیین محل ذخیره فایل هم اگه سوالی داشتین رفع کنین
 |
اخطار: این یک موضوع قدیمی است
به دلیل قدیمی بودن موضوع، ممکن است برخی فایل های ضمیمه به درستی کار نکنند. لطفا در صورت عدم ضرورت، از بالا آوردن موضوعات قدیمی خودداری نمایید. |
|
پاسخ با نقل قول
علاقه مندی ها (Bookmarks)