اگر در حال نوشتن یک ماکرو 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 تنظیم می شود. (بنابراین تست آن در کد.)
