fileDialog.show does not show a window

[RamaG]

I am trying to choose a file to open later. This piece of my code used to work until a few days ago and is supposed to show the file dialog box. What happens now is that the dialog box does not show and returns 0 (cancel).

I have MS Office Pro Plus 2010 Excel version 14.07

Sub debugFileDialog()
Dim fd As FileDialog
Set fd = Nothing
    Set fd = Application.FileDialog(msoFileDialogOpen)
    If fd Is Nothing Then
        MsgBox ("problem with fd in nextStudentFileOpen")
        Exit Sub
    End If
    fd.InitialFileName = localPath
    fd.Title = "Select the file"
    If fd.Show = 0 Then 'user has cancelled

         'do nothing and skip this student
        MsgBox ("skipping")
      
    Else
             MsgBox ("Processing")
    End If 'student processing
    Set fd = Nothing
         
 End Sub

I use this feature multiple times a day for work, so any help is much appreciated.

Rama

 

[Nutster]

There is no need to set fd to Nothing before assigning it nor do you need that assignment at the end of the routine; the local variable will be automatically release when leaving the subroutine. When I tried a version of your routine on my computer, it seems to work fine; I just had to change localPath to something on my machine.

Sometimes some of the application links get messed up in the registry. To fix this, shutdown Excel, go to Windows Control Panel -Programs and Features (depending on your version of Windows). Find MS-Office and select it then click on Change (or something like it, but not Uninstall). When the dialog comes up, click on Repair and Ok. Wait a few minutes and try again. This will often fix the registry errors and a few other things.

 

[RamaG]

Thank you for responding to my question. You were right about it being some sort of system problem. I didn't even have to go into the control panel, just shutting down and restarting did the trick.

Maybe leaving Excel open 24/7 with multiple windows and other applications is not such a great idea after all