|
MSXML2や下記の様なコードでWebアクセスや関連付けられたアプリケーションによる任意のファイルの起動をしているのですが、Mac版VBAでそれを可能にする方法はありますでしょうか?Windows 0fficeで文書作成中に自作ツールバーあるいはショートカットキーで実現している機能をMacでも使えるようにしたいと考えています。Mac版ではVBAのVersionが依然として古くMSXML2が使えず、下記のAPIも使えません。
MacにはAppleScriptというOSレベルでサポートされているWindowsでのWSHやVBのようなものがあるのですが、AppleScriptからVBAは操作できてもVBA側からAppliScriptを操作するための情報が探せませんでした。VBAの範囲内でなくともMac版VBAから呼び出す形で操作可能な形であればどのような手法でも構いません。具体的なコードでなく方針でも大変助かります。よろしくお願い致します。
Private Declare Function URLDownloadToFile Lib "urlmon" Alias _
"URLDownloadToFileA" (ByVal pCaller As Long, ByVal szURL As _
String, ByVal szFileName As String, ByVal dwReserved As Long, _
ByVal lpfnCB As Long) As Long
Private Declare Function ShellExecute Lib "shell32.dll" Alias _
"ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As _
String, ByVal lpFile As String, ByVal lpParameters As String, _
ByVal lpDirectory As String, ByVal nShowCmd_ As Long) As Long
Sub download()
Const strURL = "http://www.jem.org/cgi/reprint/188/11/1977.pdf"
Dim strFNAME As String
Dim returnValue
strFNAME = "C:\test.pdf"
returnValue = URLDownloadToFile(0, strURL, strFNAME, 0, 0)
MsgBox strFNAME & "に保存されました"
End Sub
Sub openpdf()
Path = "C:\"
returnValue = _
ShellExecute(0, "open", "test.pdf", vbNullString, Path, 1)
End Sub
|
|