نحوه ایجاد open dialog box برای خواندن فایل در اکسس VBA

[ali]

کد:

Dim fDialog    As Object
    Set fDialog = Application.FileDialog(3)
    Dim varFile As Variant

    With fDialog
       .AllowMultiSelect = False
       .Title = "Select File Location to Export XLSx :"
       .InitialFileName = "jeffatwood.xlsx"

    If .Show = True Then
       For Each varFile In .SelectedItems
         getFileName = varFile
       Next
    End If
End With