Как открыть файл не в формате Excel в Excel Mac VBA - PullRequest
Новая
       32

Как открыть файл не в формате Excel в Excel Mac VBA

0 голосов
/ 05 июня 2018

Существует множество вопросов и ответов для Excel WINDOWS, но нет ни одного для Excel MAC, которые конкретно отвечают на этот вопрос.

Как использовать Excel Mac 2011 VBA, как открыть файл, отличный от Excel, с помощью приложения по умолчанию для файла?

После долгих исследований и испытаний я разобрался с ответом.Смотри ниже.

1 Ответ

0 голосов
/ 05 июня 2018

Работает под управлением Microsoft Excel 14.7.2 (14.7.2) в macOS 10.12.6.

`` `vb 

Sub open_file()

Dim scriptStr As String
Dim hfsPath As String

hfsPath = "~:Documents:Test File To Open From Excel.txt"

'--- Create AppleScript to Open Non-Excel File ---
'       (Note: You cannot use POSIX path or POSIX commands)
'          So, I have allowed for the tilde in a HFS path
'         to mean the same as in a POSIX path:  Users Home Folder

scriptStr = "set hfsPath to """ & hfsPath & """" & vbNewLine & _
    "if (hfsPath starts with ""~"") then" & vbNewLine & _
    "   set homePath to (path to home folder) as text" & vbNewLine & _
    "   set hfsPath to homePath & (text 3 thru -1 of hfsPath)" & vbNewLine & _
    "end if" & vbNewLine & _
    "tell application ""Finder"" to open file hfsPath" & vbNewLine & _
    "return hfsPath"

 Debug.Print scriptStr

'--- Execute AppleScript to Open Non-Excel File ---

hfsPath = MacScript(scriptStr)
Debug.Print hfsPath

End Sub

` ``

Для Excel Windows см.
Как Excel Windows VBA может открыть файл с помощью приложения по умолчанию

...