[حل شده] ذخیره فایل باvba

[amir0914]

با عرض سلام و خسته نباشید خدمت دوستان و اساتید گرامی. کد زیر رو برای ذخیره فایل با آدرس و نام مشخص شده استفاده میکنم اما ارور 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

[iranweld]

با سلام

کد ذیل را تست کنید

Sub test()

Dim FName As String
Dim FPath As String


FName = Range("c1")
FPath = "d:\"
ActiveWorkbook.SaveAs Filename:=FPath & FName, _
            FileFormat:=xlNormal, _
            Password:="", _
            WriteResPassword:="", _
            ReadOnlyRecommended:=False, _
            CreateBackup:=False

End Sub 

[amir0914]

بازم ارور برنامه قبلی رو میده.

[iranweld]

فایل پیوست را تست کنید