Solved

File Open Office.FileDialog not working

Posted on 2009-05-18
3
1,313 Views
Last Modified: 2012-05-07
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
Comment
Question by:Wizard_IT
3 Comments
 
LVL 65

Assisted Solution

by:rockiroads
rockiroads earned 250 total points
ID: 24411401
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
 
LVL 77

Assisted Solution

by:peter57r
peter57r earned 250 total points
ID: 24411449
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
 

Accepted Solution

by:
Wizard_IT earned 0 total points
ID: 24411529
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

Is Your Active Directory as Secure as You Think?

More than 75% of all records are compromised because of the loss or theft of a privileged credential. Experts have been exploring Active Directory infrastructure to identify key threats and establish best practices for keeping data safe. Attend this month’s webinar to learn more.

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

Suggested Solutions

Today's users almost expect this to happen in all search boxes. After all, if their favourite search engine juggles with tens of thousand keywords while they type, and suggests matching phrases on the fly, why shouldn't they expect the same from you…
Overview: This article:       (a) explains one principle method to cross-reference invoice items in Quickbooks®       (b) explores the reasons one might need to cross-reference invoice items       (c) provides a sample process for creating a M…
Familiarize people with the process of utilizing SQL Server functions from within Microsoft Access. Microsoft Access is a very powerful client/server development tool. One of the SQL Server objects that you can interact with from within Microsoft Ac…
Get people started with the utilization of class modules. Class modules can be a powerful tool in Microsoft Access. They allow you to create self-contained objects that encapsulate functionality. They can easily hide the complexity of a process from…

910 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question

Need Help in Real-Time?

Connect with top rated Experts

19 Experts available now in Live!

Get 1:1 Help Now