We value your feedback.
Take our survey and automatically be enter to win anyone of the following:
Yeti Cooler, Amazon eGift Card, and Movie eGift Card!
Private Sub Command18_Click() Dim fDialog As Office.FileDialog Dim varFile As Variant ' Clear listbox contents. Me.TXTFileName = "" ' Set up the File Dialog. Set fDialog = Application.FileDialog(msoFileDialogFilePicker) With fDialog ' Allow user to make multiple selections in dialog box .AllowMultiSelect = False ' Set the title of the dialog box. .Title = "Please select the file you wish to import" ' Clear out the current filters, and add our own. .Filters.Clear .Filters.Add "Excel Files", "*.XLS" .Filters.Add "All Files", "*.*" ' Show the dialog box. If the .Show method returns True, the ' user picked at least one file. If the .Show method returns ' False, the user clicked Cancel. If .Show = True Then 'Loop through each file selected and add it to our list box. For Each varFile In .SelectedItems Me.TXTFileName = varFile Next Else MsgBox "You clicked Cancel in the file dialog box." End If End With End Sub
Join the community of 500,000 technology professionals and ask your questions.