Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


33152 / 76734 ←次へ | 前へ→

【48806】Mac版VBAでのWebアクセスなどAPIについて
質問  tosh  - 07/5/9(水) 22:59 -

引用なし
パスワード
   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

3 hits

【48806】Mac版VBAでのWebアクセスなどAPIについて tosh 07/5/9(水) 22:59 質問
【48829】Re:Mac版VBAでのWebアクセスなどAPIについて Kein 07/5/10(木) 20:53 発言
【48858】Re:Mac版VBAでのWebアクセスなどAPIについて tosh 07/5/12(土) 5:41 お礼
【48870】Re:Mac版VBAでのWebアクセスなどAPIについて tosh 07/5/13(日) 19:35 回答

33152 / 76734 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free