با عرض سلام و خسته نباشید خدمت دوستان و اساتید گرامی. کد زیر رو برای ذخیره فایل با آدرس و نام مشخص شده استفاده میکنم اما ارور 1004 میده..ممنون میشم دوستان کمکم کنن.
کد:
Dim FName As StringDim FPath As String


FName = Range("c1")
FPath = "C:\Documents and Settings\User\My Documents"
ActiveWorkbook.SaveAs Filename:=FPath & "\" & FName, _
            FileFormat:=xlNormal, _
            Password:="", _
            WriteResPassword:="", _
            ReadOnlyRecommended:=False, _
            CreateBackup:=False
اخطار: این یک موضوع قدیمی است
به دلیل قدیمی بودن موضوع، ممکن است برخی فایل های ضمیمه به درستی کار نکنند. لطفا در صورت عدم ضرورت، از بالا آوردن موضوعات قدیمی خودداری نمایید.