The attached code was working fine until I added in some new references
They are attached
I thought I needed Office 11 Refs but as I'm using Office 2007 which is 12 I wonder what ref / change I need to make
I know I can rewrite using the more cumbersome methods but this code was very nice
Thanks in advance
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)
' 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.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
MsgBox "You clicked Cancel in the file dialog box."