باز كردن فايل جديد (خالي) (با امكان تعيين نام براي ذخيره آن) و كپي داده*ها از فايل اول به فايل جديد

[ظهور 313]

با سلام و عرض ادب خدمت همه اساتيد گرامي
نياز به يه دستور دارم تا با يك كليد، يك فايل خالي باز بشه و برخي داده*ها از فايل اصلي رو داخل اون كپي كنم. اگه امكان ذخيره فايل جديد با نام مورد نظر من هم وجود داشته باشه كه خيلي عاليه
ممنون ميشم اگه راهنمايي بفرماييد
نكته مهم: هنگامي كه فرم در حال اجراست، دو تا فايل بازه و اطلاعات بايد از يك فايل در يك فايل جديد (خالي) كپي بشه
اين ماكرو رو براش ضبط كردم اما خطا ميده
به همون خط اول گير ميده
Application.Workbooks("Liste hoghoogh").Range("J.LISTE.HOGHOGH[#All]").Select
Application.Workbooks("Liste hoghoogh").Sheets("ListeHoghooghi").Range("C12").A ctivate
Selection.Copy
Workbooks.Add
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
ChDir "C:\Users\313\Desktop"
ActiveWorkbook.SaveAs Filename:="C:\Users\313\Desktop\ليست حقوقي.xlsm", _
FileFormat:=xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False
ActiveWindow.Close

در ضمن مي*خوام در صورت امكان، نام فايل رو از يك سلول بگيره

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