msoFileDialogFilePicker Throws Error: object variable with block variable not set

[arveearv]

Hi:

I'm trying to use this standard bit of code:

Dim fd As Office.FileDialog
Dim strFile As String

Set fd = Application.FileDialog(msoFileDialogFilePicker)

With fd
    .AllowMultiSelect = False

    If .Show = -1 Then
        strFile = .SelectedItems(1)

    End If

End With

But I'm getting the error message:
object variable with block variable not set

Any idea what might be going wrong? [Note that when I am entering the code, "msoFileDialogFilePicker" does not pop up from the References Library. Is it possible my system is missing this operation? If so, how would I add it to my resources? I'm a newbie to VBA -- please be kind!]


Arv

 

[Fluff]

If you do it like this, then you don't need to add any references

Dim fd As Object
Dim strFile As String

Set fd = Application.FileDialog(3)

With fd
    .AllowMultiSelect = False

    If .Show = -1 Then
        strFile = .SelectedItems(1)

    End If

End With

 

[arveearv]

Thanks, Fluff.

What am I doing wrong?

I pasted your code into a new Module, wrapped it in "Sub/ End Sub" and ran it. I still get a Run Time Error 91 with the message: "Object Variable with Block Variable not set"

 

[Fluff]

On which line?

 

[arveearv]

It hangs at:

.AllowMultiSelect = False

 

[Fluff]

Odd, are you doing this on a PC or a Mac?

 

[arveearv]

Odd, are you doing this on a PC or a Mac?

Weird, eh? A Mac. (But I plan to run this script on a PC as well.)

Microsoft Excel for Mac
Version 16.54 (21101001)

 

[Fluff]

In that case I'm surprised it got that far, as I don't think that Mac's have FileDialog.

 

[arveearv]

Oh, I see! OK, it looks like picking files on a Mac is a whole other can of worms.

Are you aware of VBA code that can work on both systems? Maybe a conditional statement to detect the user's system, then 2 versions of code -- one for Mac and one for PC?

 

[Fluff]

Fraid not, as I've never worked with a Mac.
You're best bet would be to start a new thread explaining what you need to do & that it should work on both Mac & PC.