A2V(AppleScriptをVBAインラインテキストツール)

こちらで公開しているA2VはExcel用にラッピングされたAppleScriptをVBAで出力することでラッピングされたAppleScriptをインストールするためのAppleScriptを作成するコードを出力するWEBツールです。

できれば直接Excelでスクリプト用のファルダにアクセスできれば良いのですが、直接アクセスができない(少なくともExcel2016 for Macが発売された当時は筆者はみつけられなかった。)のでこんな分かりづらい方法を取っているわけです。

また、アクセスできたとしても昨今のセキュリティ意識の向上からいつアクセスが制限されるかわかりません。運用の歴史の長いAppleScriptであればアクセス制限の可能性は低いだろうと思い、この方法でFormeStudioを運用しています。

使用方法

使い方は至極簡単です。動作確認をしたAppleScriptをExcel用にラッピングし、テキスト形式で保存します。それを A2Vにアップロードし、変換。変換されたものをVBAのOUT文等で出力し、出力されたAppleScriptを開き、実行するだけです。

アップロード画面

アップロード確認画面

変換・ダウンロード画面

実行はユーザーに任せる必要がありますが、実行後にインストールしてスクリプト用のファルダが開きます。後はAppleScriptTaskで使用するだけです。

FormeStudioでは起動時にスクリプトの確認をし、エラーが発生した場合はスクリプトがインストール」されていないと判断し、スクリプト自動作成が始まるようになっています。

サンプルコードは以下です。任意のパスに保存し、開くようにしています。開く際に警告ダイアログが表示されます。また保存する際に初めてアクセスするパスの場合、ファイルアクセスの権限譲渡ダイアログが表示されます。

sub SaveAppleScript
Dim path1 as String,applescript as String

path1 = "/User/Share/test.applescript"
applescript = a2vで出力したコード

Open path1 For Output As #2
    Print #2, applescript
Close #2

ActiveWorkbook.FollowHyperlink Address:=path1

'開いたスクリプトを実行するとAppleScriptTaskで利用可能なスクリプトファイルとなる。

End Sub