Excel VBA質問箱 IV

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

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


11679 / 13645 ツリー ←次へ | 前へ→

【14747】他のアプリケーションのオープン まえだ 04/6/6(日) 18:33 質問[未読]
【14749】Re:他のアプリケーションのオープン かみちゃん 04/6/6(日) 18:59 回答[未読]
【14750】Re:他のアプリケーションのオープン まえだ 04/6/6(日) 19:17 お礼[未読]
【14762】Re:他のアプリケーションのオープン Excel大好きちゃん 04/6/7(月) 14:09 質問[未読]
【14763】Re:他のアプリケーションのオープン クウガ 04/6/7(月) 15:17 回答[未読]
【14765】Re:他のアプリケーションのオープン Asaki 04/6/7(月) 15:40 回答[未読]
【14766】Re:他のアプリケーションのオープン ichinose 04/6/7(月) 16:14 発言[未読]
【14794】Re:他のアプリケーションのオープン Excel大好きちゃん 04/6/8(火) 8:59 お礼[未読]

【14747】他のアプリケーションのオープン
質問  まえだ E-MAIL  - 04/6/6(日) 18:33 -

引用なし
パスワード
   ユーザフォームにボタンを配置し、メインメニューとして、他のアプリケーションを開きたいのですがどのようにすればいいのでしょうか。

OpenでもApplication・・・でもだめでした。

開きたいファイルは ”C:\k3\Data\futo.wfm"です。

【14749】Re:他のアプリケーションのオープン
回答  かみちゃん  - 04/6/6(日) 18:59 -

引用なし
パスワード
   こんにちは。かみちゃん です。

>ユーザフォームにボタンを配置し、メインメニューとして、他のアプリケーションを開きたいのですがどのようにすればいいのでしょうか。

外部プログラムを実行するには、Shell関数を使用します。
http://www2.moug.net/cgi-bin/technic.cgi?exvba+TI15010034

>開きたいファイルは ”C:\k3\Data\futo.wfm"です。

wfmは、桐関係のファイルですか?
起動するアプリケーションのフルパスから記述しないといけないと思います。

【14750】Re:他のアプリケーションのオープン
お礼  まえだ E-MAIL  - 04/6/6(日) 19:17 -

引用なし
パスワード
   ありがとうございます。

シェルですね! 桐のフォームにはありましたが思いつきませんでした。

早速実行します。

【14762】Re:他のアプリケーションのオープン
質問  Excel大好きちゃん  - 04/6/7(月) 14:09 -

引用なし
パスワード
   こんにちは、
私もExcelのユーザ定義マクロのヘルプをメニューバーから
呼び出したくて、サンプルで以下のコードを書いて実行してみました。

Sub ユーザ定義マクロのヘルプ()
  Dim TaskId
  TaskId = Shell("C:\WINDOWS\Help\ade.hlp", 2)
End Sub

何度やっても、
実行時エラー '5':
プロシージャの呼び出し、または引数が不正です。
で、ひっかかります。
Excelは2002なんですけど、どうしてなのでしょうか?
ade.hlp自体は、エクスプローラから実行すると
普通に開けますし、他のexeファイルの呼び出しは
正常に可能でした。
ヘルプファイルだけがだめなんでしょうか?

うぇーーん
教えて下さいー (^^♪


▼かみちゃん さん:
>こんにちは。かみちゃん です。
>
>>ユーザフォームにボタンを配置し、メインメニューとして、他のアプリケーションを開きたいのですがどのようにすればいいのでしょうか。
>
>外部プログラムを実行するには、Shell関数を使用します。
>http://www2.moug.net/cgi-bin/technic.cgi?exvba+TI15010034
>
>>開きたいファイルは ”C:\k3\Data\futo.wfm"です。
>
>wfmは、桐関係のファイルですか?
>起動するアプリケーションのフルパスから記述しないといけないと思います。

【14763】Re:他のアプリケーションのオープン
回答  クウガ WEB  - 04/6/7(月) 15:17 -

引用なし
パスワード
   Excel大好きちゃん さん、こんにちは
ひさ〜しぶり登場の、クウガです。

ヘルプファイルの場合

Application.Help "C:\WINDOWS\Help\ade.hlp"
で大丈夫ではないかと思いますよ。

Application.Help "ade.hlp"
だけでも、いいかも???

【14765】Re:他のアプリケーションのオープン
回答  Asaki  - 04/6/7(月) 15:40 -

引用なし
パスワード
   こんにちは。

ヘルプによると、Shell は
>実行可能プログラムを実行し
とありますので、*.hlp が実行可能プログラムでないためにエラーになるのでは?

【14766】Re:他のアプリケーションのオープン
発言  ichinose  - 04/6/7(月) 16:14 -

引用なし
パスワード
   皆さん、こんにちは。
>

クウガさんの方法でご希望の表示であれば、これが簡単だし良いと思いますが・・。

>ヘルプによると、Shell は
>>実行可能プログラムを実行し
>とありますので、*.hlp が実行可能プログラムでないためにエラーになるのでは?
とおっしゃているように、ExcelブックをExcelを起動しないで立ち上げようとしているのに等しいことになってしまいます。

'===========================================================
Sub test()
  ph = Shell("C:\WINDOWS\winhlp32.exe c:\windows\help\Sol.hlp", vbNormalFocus)
'                            hlpのパス
End Sub


関連付けがされていれば(普通はされています)、
'=================================================================
Sub test2()
  Set wshshell = CreateObject("WScript.Shell")
  wshshell.Run "c:\windows\help\Sol.hlp", 1
End Sub

なんて方法があります。
確認してみて下さい。

【14794】Re:他のアプリケーションのオープン
お礼  Excel大好きちゃん  - 04/6/8(火) 8:59 -

引用なし
パスワード
   クウガさん、Asakiさん、Ichinoseさん
おはようございます。

折角すぐに対応頂いたのに、私のお返事が遅くてなって
ごめんなさい。早速、今試してみました。
うまくいきました。(^^♪
色々とノウハウがあるんですね。私はまだまだ未熟者ですので
これからも暖かいご助言、よろしくお願い致します。
どうも、ありがとうございました。

次は、Excelから呼び出すヘルプファイルを作ってみようと
思って、作り方をWEBで読み漁っています。

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