• Status: Solved
  • Priority: Medium
  • Security: Public
  • Views: 1345
  • Last Modified:

File Open Office.FileDialog not working

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

Paul
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

Open in new window

refs.jpg
0
Wizard_IT
Asked:
Wizard_IT
3 Solutions
 
rockiroadsCommented:
So what is the exact problem when u say it doesnt work?
that code looks fine to me

add

option explicit

on the top of your code module

then do a Debug/Compile to check of anything is wrong with that code in your environment
0
 
peter57rCommented:
I believe this has changed in Office2007.
I think you now do :
Application.FileDialog   (literally 'Application', not the name of the application)
rather than
Office.FileDialog

I don't think you need the Office12 reference (unless you need it for other things)
0
 
Wizard_ITAuthor Commented:
Guys
Sorry - The application wouldn't Compile

It was conincidental that I had added additional references in

used the /decompile on the command line and the application then works

0

Featured Post

Concerto Cloud for Software Providers & ISVs

Can Concerto Cloud Services help you focus on evolving your application offerings, while delivering the best cloud experience to your customers? From DevOps to revenue models and customer support, the answer is yes!

Learn how Concerto can help you.

Tackle projects and never again get stuck behind a technical roadblock.
Join Now