[حل شده] ذخیره با نامی خاص

[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