Open File using VBA

Moniker said:

To browse a directory, you need a FileDialog object. In the VBA code window, go to References and add the MS Office Object Library. It will be named like this:

Microsoft Office [Version_Number] Object Library

If you don't have a reference to the Office Object Library, you will not be able to DIM an object as a FileDialog.

From there you need to instantiate the dialog, like this:

Code:

Sub BrowsingWindow()

    Dim Dlg As FileDialog
    Dim txtFilePath As String
    
    Set Dlg = Application.FileDialog(msoFileDialogFilePicker)
    With Dlg
        .Title = "Select the file you want to import"
        .AllowMultiSelect = False
        If .Show = -1 Then
            txtFilePath = .InitialFileName
        Else
            Exit Sub
        End If
    End With

End Sub

The FileDialog object has a lot of properties that you can look up in Access help. For a quick reference, the "Show = -1" means the user clicked OK in the dialog, and the ".InitialFilename" is the filename that was selected.

Click to expand...