Excel VBA質問箱 IV

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

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


10890 / 13644 ツリー ←次へ | 前へ→

【19335】他のアプリウィンドウが表示されないように nakky 04/10/28(木) 15:13 質問[未読]
【19337】Re:他のアプリウィンドウが表示されないよ... IROC 04/10/28(木) 15:24 回答[未読]
【19339】Re:他のアプリウィンドウが表示されないよ... Kein 04/10/28(木) 15:46 回答[未読]
【19343】Re:他のアプリウィンドウが表示されないよ... nakky 04/10/28(木) 17:18 質問[未読]
【19350】Re:他のアプリウィンドウが表示されないよ... Kein 04/10/28(木) 21:18 回答[未読]
【19364】Re:他のアプリウィンドウが表示されないよ... nakky 04/10/29(金) 12:53 お礼[未読]

【19335】他のアプリウィンドウが表示されないよう...
質問  nakky  - 04/10/28(木) 15:13 -

引用なし
パスワード
   マクロ上から、DOS窓等が起ち上がるような何らかの処理をする場合に、
その窓が上にこないよう(つまり、エクセルの画面が常に1番上に
あって、DOS窓等は見えない状態)にすることってできますでしょうか?

ちなみに、下記のようにしてみましたが、だめでした。
Application.ScreenUpdating = False

以上、宜しくお願いします。

【19337】Re:他のアプリウィンドウが表示されない...
回答  IROC  - 04/10/28(木) 15:24 -

引用なし
パスワード
   どのように起動していますか?

Shell関数なら、引数で最小化に設定できませんか?

【19339】Re:他のアプリウィンドウが表示されない...
回答  Kein  - 04/10/28(木) 15:46 -

引用なし
パスワード
   Shell "CMD.EXE /C 何かのコマンド", 6

などとします。CMD.EXE のスイッチ "C" は、コマンドの処理が済んだら
自動的にDOS窓を閉じる、というものです。ちなみに /K なら閉じなくなります。
引数の定数 6 については Shell関数のヘルプで理解できるでしょう。

【19343】Re:他のアプリウィンドウが表示されない...
質問  nakky  - 04/10/28(木) 17:18 -

引用なし
パスワード
   IROCさん、keinさん、回答ありがとうございます。

現在私は以下のようにして、NET USEというのを使っているのですが、
この場合は、どのように記述すればよいのでしょうか?

Set objShell = CreateObject("Wscript.Shell")
objShell.Run ("NET USE " & path_mdl)


すみませんが、宜しくお願いします。

【19350】Re:他のアプリウィンドウが表示されない...
回答  Kein  - 04/10/28(木) 21:18 -

引用なし
パスワード
   Set objShell = CreateObject("Wscript.Shell")
objShell.Run ("NET USE " & path_mdl, 2, True)

などとすればいいのでは ?
*WSHのリファレンスは、Microsoftのサイト↓から DL できます。
http://www.microsoft.com/downloads/details.aspx?displaylang=ja&FamilyID=E74494D3-C4E1-4E18-9C6C-0EA28C9A5D9D
scd56jp.exe というファイルです。これを入れて「スタート」「プログラム」
「Microsoft Windows Script」から起動し、キーワードに run と入力すれば
各パラメータの定数が分かります。WSHのコードを使うなら、必須のヘルプです。

【19364】Re:他のアプリウィンドウが表示されない...
お礼  nakky  - 04/10/29(金) 12:53 -

引用なし
パスワード
   Kein さん

ありがとうございました。
お陰さまで解決できました!

ヘルプファイルについてまでご教授頂き恐縮です。
勉強してがんばります。

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