vbaでapplescriptを実行したい

Question

VBAでAppleScriptを実行したい

＜環境＞
macOS High Sierra 10.13.3
Excel for Mac 2011

＜現状＞
Userform内のボタンを押したら指定したセルのハイパーリンクでitunesから音楽を流す．
itunesで音楽が再生されたらitunesが選択(activate?)される．

＜したいこと＞
ハイパーリンクでitunesに飛んでもexcelがactivateされた状態を維持したい．
→ excelを選択するAppleScriptを，Userfromのボタンをクリックした時に実行したい

発生している問題・エラーメッセージ

コンパイルエラーです．：
SubまたはFunctionが定義されていません．

該当のソースコード

Private Sub Button_Click() 'ボタンを押した時に実行
  Dim myScriptResult As String '何か値を代入するわけではないが，一応定義してみた
  
    Range("C2").Select 'C2セルに
    Selection.Hyperlinks(1).Follow 'ハイパーリンク先に飛ぶ
    myScriptResult = AppleScriptTask("select_excel.scpt")'select_excel.scptは実行するAppleScriptの名前
    
End Sub

試したこと

excelを選択するApplescriptは，

tell application "Microsoft Excel"
	activate
end tell

これ単体では問題なく実行されます．上にも書きましたがファイル名はselect_excel.scptです．

補足情報

select_excel.scptは，/Library/Application Scripts/com.microsoft.Excelに置いてます．
本当はAppleScriptTask("applescript名","スクリプトハンドラーの名前","入力パラメーター")
と書くようですが，私の場合，入力パラメータはないので何も書いていません．スクリプトハンドラーが何なのかも良く分かっていません．もしかしたらこのあたりが原因かもしれません．
＜参考記事＞
https://msdn.microsoft.com/ja-jp/vba/office-mac-vba/applescripttask

Answer 1

質問者様の環境と私の環境が違う為か同じエラーにはならないのですが、既にご推察のように、AppleScript 側にハンドラーを定義してそれを呼び出すかたちになっていないのが原因と思われます。
※当方の環境は、macOS Sierra 10.12.6 + Excel for Mac 15.25(Excel 2016) です。

コンパイルエラーです．：
SubまたはFunctionが定義されていません．

とは、ハンドラー（≒メソッド,関数)が定義していないと報告しているのだと思われます。
VBA側は以下のように直すことでAppleScriptのスクリプトが実行できました。

    myScriptResult = AppleScriptTask("select_excel.scpt", "myhandler", "")

AppleScript側。myhandlerハンドラー内で実行したい処理を定義します。

-- myhandlerハンドラー
on myhandler()
	tell application "Microsoft Excel"
		activate
	end tell
end myhandler

-- デフォルトの起動
on run
	myhandler()
end run

runは、単体で実行する為に定義してます。

Comments

[resuporu]

ありがとうございます．残念ながら私の環境では実行できませんでした．私の環境がExcel for Mac2011と古すぎたのが原因かもしれません．ですのでMacScriptを使えばうまくいくかもしれないと思いました(結局別の方法で解決できました)．

[dodox86]

コメントありがとうございます。目的からすると、確かにご提示の別回答の方が良いですね。

Answer 2

Macのアプリケーション間のフォーカスを制御するにはApplesScriptで書かなければいけばいと決めつけていました．

Private Sub Button_Click() 'ボタンを押した時に実行
  Dim myScriptResult As String '何か値を代入するわけではないが，一応定義してみた

    Range("C2").Select 'C2セルに
    Selection.Hyperlinks(1).Follow 'ハイパーリンク先に飛ぶ
    myScriptResult = AppleScriptTask("select_excel.scpt")
　　AppActivate "Microsoft Excel", False
End Sub

で解決できました．いい勉強になりました．