|
▼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()関数にもチャレンジしてみます
|
|