ذخیره با نامی خاص

[sobhan_260]

سلام به همه دوستان

میشه توی اکسل ماکرویی ایجاد بشه که با اجرای اون اکسل را با نامی که از یکی از سلول ها گرفته ذخیره کنه؟ مثلا توی یک سلول بزنیم 1 و با اجرای ماکرو فایل با نام 1 ذخیره بشه؟

اگه میشه تو قدم بعدی می خوام این فایل با فرمت پی دی اف ذخیره بشه

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

[mokaram]

برای قسمت اول سوالتون می تونید از کد زیر استفاده کنید ( سل A1 جایی هست که اسم دلخواهتون اونجا درج شده )

Dim name As String
name = Range("a1").Value
ActiveWorkbook.SaveAs Filename:=name 

برای قسمت دوم از کد زیر استفاده کنید ( سل A1 جایی هست که اسم دلخواهتون اونجا درج شده )

ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=Range("A1").Value _
    , Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _
    :=False, OpenAfterPublish:=True