Excel VBA на MAC: получение имени файла через диалоговое окно файла - PullRequest
Новая
       11

Excel VBA на MAC: получение имени файла через диалоговое окно файла

0 голосов
/ 28 августа 2018

У меня есть макрос, который проходит серию шагов:

  • Нажмите кнопку на ленте, чтобы запустить макрос
  • Откроется окно выбора файла, и пользователь выберет файл
  • Макрос открывает этот файл
  • Обрабатывает данные из файла
  • Подводит итоги и диаграммы по ряду новых листов

Вышеописанное прекрасно работает на моем ноутбуке с Windows, но я только что переключился на Mac, и теперь я не могу открыть окно выбора файла. Google говорит мне, что мне нужно использовать другой код для получения имени файла с Mac, и ниже должно работать, но я не получаю ответ? 

Function BrowseMac(mypath As String) As String
  sMacScript = "set applescript's text item delimiters to "","" " & vbNewLine & _
    "try " & vbNewLine & _
    "set theFiles to (choose file " & _
    "with prompt ""Please select a file or files"" default location alias """ & _
    mypath & """ multiple selections allowed true) as string" & vbNewLine & _
    "set applescript's text item delimiters to """" " & vbNewLine & _
    "on error errStr number errorNumber" & vbNewLine & _
    "return errorNumber " & vbNewLine & _
    "end try " & vbNewLine & _
    "return theFiles"
  BrowseMac = MacScript(sMacScript)
End Function

Кто-нибудь может помочь? Мне просто нужна строка кода, которая откроет окно выбора файла и выведет имя файла и строку каталога?

СПАСИБО

...