Unable to use msoFileDialogFolderPicker

Question

Hello,

I am new to Excel VBA, and I am trying to make a shared folder in excel, but on running the code mentioned below, I am getting "Run-Time Error '91' Object variable or With block variable not set"

I am running O360 on a mac. The code is as follows:

Sub Admin_BrowseForAppFolder()

Dim AppFolder As FileDialog

Set AppFolder = Application.FileDialog(msoFileDialogFolderPicker)

With AppFolder

 .AllowMultiSelect = False

 .Title = "Please select a folder"

 If .Show <> -1 Then GoTo NoSelection

 Admin.Range("N8").Value = .SelectedItems(1) 

NoSelection:

End With

End Sub

Very much appreciate the help of the community.

Thanks,

Akhil N

Answer 1

Hello Akhil,

The msoFileDialogFolderPicker object in a Mac might be different in operation from windows because of the different directory structures of the two OS . You will have to apply different techniques to be able to achieve what you want.

if you visit the link..

https://macexcel.com/examples/filesandfolders/s...

..you will see how accessing the folder structure in a mac comes into play and get some insights on how to access a folder with VBA on a MAC.. please note that the link is a non-Microsoft site, watch out for any advertisements and understand the risks before sharing any personal information on the site.

Kind regards.

Answer 2

In addition, you can use a conditional compilation to make the file compatible to both platforms in order to run a different code on each.

Andreas.

#If Mac Then

Sub Admin_BrowseForAppFolder()
'Mac version
End Sub

#Else

Sub Admin_BrowseForAppFolder()
'Windows version
End Sub

#End If

Answer 3

Thank you so much, that is really useful.

Answer 4

Thank you so much, it did work for me.