سلام
برای این کار شما میتونید از کد زیر استفاده کنید که نام فایل را از سلول A1 میگیره و در مسیر مشخص ذخیره میکنه
کد PHP:
Sub SaveAs() ChDir "C:\Users\Meysam\Desktop" ActiveWorkbook.SaveAs Filename:=ActiveWorkbook.Sheets("sheet1").Range("A1").Value, _ FileFormat:=xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False ThisWorkbook.Close End Sub
[HR][SIZE=5][COLOR="#0000FF"][FONT=Times New Roman][B] در سرزمینی کہ نتوان مردانہ زیست ، مردانہ مردن بهتر از این زندگیست [/B][/FONT][/COLOR][/SIZE][/HR]
کامنت