[حل شده] RUN time erorr هنگام خروجی به pdf

[yogishiip]

سلام
با تابع زیر خروجی pdf میگیریم

'
    ChDir "C:\Data"
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:="C:\Data\Be.pdf" _
        , Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _
        :=False, OpenAfterPublish:=False
    Range("B4").Select
End Sub

اگر بخایم بجای نام ثابت be.pdf از خود کاربر نام فایل رو سوال کنه و ذخیره کنه باید چی بنویسیم ؟
اگر فایل باز باشه و یا نام موجود باشه ارورر Run time میده .اگر بخایم بجای ارورر پیام بده باید چی بنویسم ؟

[generalsamad]

با سلام
این کد را تست کنید

Sub test()
Dim namefile As String
namefile = InputBox("Lotfan Name File Ra Vared Konid")
    ChDir "D:\Data"
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:="D:\Data\" & namefile _
        , Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _
        :=False, OpenAfterPublish:=False
    Range("B4").Select
End Sub