دریافت نام فایل

Question

اگر در حال نوشتن یک ماکرو VBA در اکسل هستید، ممکن است نیاز داشته باشید که به کاربر اجازه دهید فایلی را که می خواهد از دیسک مشخص کند. خوشبختانه، می توانید از داخل VBA به کادر گفتگوی Open استاندارد دسترسی داشته باشید و از آن برای برگرداندن نام فایل استفاده کنید. زیربرنامه مثال زیر نحوه انجام این کار را نشان می دهد:

Sub GetFName()
    Dim FName As Variant
    Dim Msg As String

    FName = Application.GetOpenFilename()
    If FName <> False Then
        Msg = "You chose " & FName
        MsgBox Msg
    Else
        Cancel was pressed
    End If
End Sub

هنگامی که این ماکرو را اجرا می کنید، کادر محاوره ای Open استاندارد مورد استفاده در اکسل را مشاهده خواهید کرد. کاربر می تواند یک فایل را انتخاب کند و وقتی روی Open کلیک می کند، نام فایل (شامل مسیر کامل) به متغیر FName اختصاص می یابد. اگر کاربر روی دکمه Cancel کلیک کند، FName برابر با False تنظیم می شود. (بنابراین تست آن در کد.)