VBA для Mac - msoFileDialogFolderPicker не определяется? - PullRequest
Новая
       14

VBA для Mac - msoFileDialogFolderPicker не определяется?

0 голосов
/ 31 декабря 2018

, когда я попытался запустить его, он показал ошибку с не определенным msoFileDIalogFolderPicker.Я уже проверил ссылку на библиотеку Office 14, но все еще не работает? 

Dim MyFolder As String 'Path collected from the folder picker dialog
Dim MyFile As String 
Dim wbk As Workbook 
On Error Resume Next
Application.ScreenUpdating = False
With Application.FileDialog(msoFileDialogFolderPicker)

1 Ответ

0 голосов
/ 31 декабря 2018

У меня нет Mac, но со ссылкой (https://www.rondebruin.nl/mac/mac017.htm), попробуйте следующее (вам может понадобиться настроить его местами) и посмотрите, делает ли он то, что вам нужно: 

Sub Select_Folder_On_Mac()
    Dim folderPath As String
    Dim RootFolder As String
    Dim scriptstr As String

    On Error Resume Next
    RootFolder = MacScript("return (path to desktop folder) as String")
    'Or use RootFolder = "Macintosh HD:Users:YourUserName:Desktop:TestMap:"
    'Note : for a fixed path use : as seperator in 2011 and 2016

    If Val(Application.Version) < 15 Then
        scriptstr = "(choose folder with prompt ""Select the folder""" & _
            " default location alias """ & RootFolder & """) as string"
    Else
        scriptstr = "return posix path of (choose folder with prompt ""Select the folder""" & _
            " default location alias """ & RootFolder & """) as string"
    End If

    folderPath = MacScript(scriptstr)
    On Error GoTo 0

    If folderPath <> "" Then
        MsgBox folderPath
    End If
End Sub
...