VBA fonction Shell dans Office 2011 pour Mac

La Shell() fonction VBA sur Mac semble exiger le chemin d'accès complet comme HFS-chemin d'accès de style (avec des virgules à la place des barres obliques). Il ne semble pas accepter les arguments que sur Windows (déclaration d'un "Chemin d'accès introuvable" erreur si tous les arguments sont ajoutés).

La MacScript() VBA fonction peut également être utilisée: MacScript("do shell script ""command"""). C'est probablement l'option la plus simple et ce que je vous suggère de faire. L'inconvénient est qu'il a beaucoup de frais généraux (100-200ms par appel).

Une autre alternative est le system() fonction de la bibliothèque standard C:

Private Declare Function system Lib "libc.dylib" (ByVal command As String) As Long

Sub RunSafari()
    Dim result As Long
    result = system("open -a Safari --args http://www.google.com")
    Debug.Print Str(result)
End Sub

Voir http://pubs.opengroup.org/onlinepubs/009604499/functions/system.html pour la documentation.

system() seulement renvoie le code de sortie. Si vous voulez obtenir à la sortie de la commande, vous pouvez utiliser popen().

Private Declare Function popen Lib "libc.dylib" (ByVal command As String, ByVal mode As String) As Long
Private Declare Function pclose Lib "libc.dylib" (ByVal file As Long) As Long
Private Declare Function fread Lib "libc.dylib" (ByVal outStr As String, ByVal size As Long, ByVal items As Long, ByVal stream As Long) As Long
Private Declare Function feof Lib "libc.dylib" (ByVal file As Long) As Long
Function execShell(command As String, Optional ByRef exitCode As Long) As String
Dim file As Long
file = popen(command, "r")
If file = 0 Then
Exit Function
End If
While feof(file) = 0
Dim chunk As String
Dim read As Long
chunk = Space(50)
read = fread(chunk, 1, Len(chunk) - 1, file)
If read > 0 Then
chunk = Left$(chunk, read)
execShell = execShell & chunk
End If
Wend
exitCode = pclose(file)
End Function
Sub RunTest()
Dim result As String
Dim exitCode As Long
result = execShell("echo Hello World", exitCode)
Debug.Print "Result: """ & result & """"
Debug.Print "Exit Code: " & str(exitCode)
End Sub

Noter que plusieurs de la Long arguments dans l'exemple ci-dessus sont des pointeurs, devront donc être modifié si une version 64 bits de Mac Word est jamais sorti.

OriginalL'auteur Robert Knight

Un autre problème se présente exactement comme ceci: autorisations cause de votre script à l'échec en raison des différences entre les AppleScript de l'environnement et de l'utilisateur de votre environnement bash. Cette Q&A m'a aidé à comprendre cela. Pour obtenir mon script fonctionne, j'ai eu à résoudre certains de chemin d'accès et les autorisations de problèmes (et non pas le script lui-même, mais les choses touché par le script).

Voici ma recommandation, qui nous l'espérons donne un meilleur aperçu lors de votre dépannage que le sens Excel erreurs, j'ai été voir avant, j'ai utilisé l'Éditeur AppleScript:

1. Utiliser l'Éditeur AppleScript pour confirmer que le script fonctionne réellement que n'importe quel utilisateur et avec quelle que soit la variable d'environnement se trouve à être utilisé:

   1. Dans Spotlight, commencez à taper "éditeur applescript" jusqu'à ce qu'il montre et puis cliquez sur elle
   2. Créer un nouvel Éditeur AppleScript fichier

   3. Type de votre script simple dans le nouveau fichier sans doubler les doubles quotes - mine lit

      do shell script "parseCsvAndOpen.sh"

   4. Frappé le bouton "Exécuter" pour votre script
   5. Traquer les problèmes, apporter des modifications, et la répétition de frapper le bouton "Exécuter" jusqu'à ce que vous obtenez à exécuter à l'intérieur de l'Éditeur AppleScript
      • La bonne nouvelle, c'est que vous avez une plus étroite de recherche si vous avez besoin de revenir à StackOverflow ou Google pour obtenir de l'aide 😉

2. maintenant de copier votre simple script à partir de l'Éditeur AppleScript pour votre vba et confirmer qu'il fonctionne toujours

   1. J'ai pu simplement le double de mon guillemets et le mettre dans des guillemets après le MacScript code:

      MacScript "do shell script ""parseCsvAndOpen.sh"""

      C'est en effet un, deux, puis trois, les guillemets doubles! (sans doute échapper les guillemets)

OriginalL'auteur sage