| |
▼INA さん：
>関連づけされている拡張子（エクスプローラからダブルクリックで起動する）の
>ファイルであれば、ShellExecute関数で実行できます。
素早いお返事、ありがとうございました。
頑張ってみたのですが、ShellExecute()関数を動作させると、
｢SubまたはFunctionが定義されていません｣というエラーになってしまいました。
多分、標準モジュール側での定義が正しくできなかったからと思われます。
（実はVBA初心者なので、標準モジュールの定義ができませんでした）
結局、下記のような対応に逃げてしまいました。
Sub PDF_Open()
Dim Ret As Long
Dim アプリ名 As String
Dim フォルダ名 As String
Dim ファイル名 As String
アプリ名 = "c:\Program Files\Adobe\Acrobat 5.0\Reader\AcroRd32.exe"
フォルダ名 = "C:\My Documents\"
ファイル名 = "ｶﾀﾛｸﾞ.pdf"
Ret = Shell(アプリ名 + " " + フォルダ名 + ファイル名, 4)
End Sub
とりあえず、何はともあれ目的達成です。
が、今後折を見てShellExecute()関数にもチャレンジしてみます
|
|
きむきむ
- 03/10/23(木) 13:16 -
