Excel VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
201 / 13645 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【81558】taskkill.exeを実行する際のウィンドウを消したい YAMADA 20/12/3(木) 16:59 質問[未読]
【81559】Re:taskkill.exeを実行する際のウィンドウ... OK 20/12/4(金) 15:02 発言[未読]
【81560】Re:taskkill.exeを実行する際のウィンドウ... YAMADA 20/12/4(金) 17:35 発言[未読]
【81561】Re:taskkill.exeを実行する際のウィンドウ... OK 20/12/4(金) 18:14 発言[未読]
【81563】Re:taskkill.exeを実行する際のウィンドウ... YAMADA 20/12/5(土) 21:40 発言[未読]
【81568】Re:taskkill.exeを実行する際のウィンドウ... OK 20/12/7(月) 8:26 発言[未読]
【81562】Re:taskkill.exeを実行する際のウィンドウ... OK 20/12/5(土) 16:44 発言[未読]
【81558】taskkill.exeを実行する際のウィンドウを...
質問  YAMADA  - 20/12/3(木) 16:59 -
引用なし
パスワード
   VBAでスクレイピングを行っています
Set objIE= CreateObject("InternetExplorer.application") 'IEのオブジェクトを作る
のところで止まってしまうことがあるので
Public Sub IeProcessKill()
Dim objShell As Object
Dim objExec As Object
Set objShell = CreateObject("WScript.Shell")
Set objExec = objShell.Exec("taskkill.exe /F /IM iexplore.exe")
WaitFor (2)
End Sub
を教えていただきました。一応うまくいくのですが
windows\system32\taskkill.exe
というウィンドウが出てきます。できれば出さないようにしたいのですがどうすればいいですか
【81559】Re:taskkill.exeを実行する際のウィンド...
発言  OK  - 20/12/4(金) 15:02 -
引用なし
パスワード
   ウィンドウは一瞬で消えると思いますが、全く
表示させないで、ということですか？
【81560】Re:taskkill.exeを実行する際のウィンド...
発言  YAMADA  - 20/12/4(金) 17:35 -
引用なし
パスワード
   OK様
せめてウィンドウを小さくして隅の方に移動させたいです。そうしないと同時並行して動かしているブラウザを操作しにくいです。

▼OK さん：
>ウィンドウは一瞬で消えると思いますが、全く
>表示させないで、ということですか？
【81561】Re:taskkill.exeを実行する際のウィンド...
発言  OK  - 20/12/4(金) 18:14 -
引用なし
パスワード
   ↓でも同じですか？

Sub iekill()
Dim mycmd As String
　'コマンド内容
　mycmd = "taskkill /im iexplore.exe /f"
　'コマンド実行
　Call Shell(Environ$("ComSpec") & " /c" & mycmd)
End Sub
【81562】Re:taskkill.exeを実行する際のウィンド...
発言  OK  - 20/12/5(土) 16:44 -
引用なし
パスワード
   >そうしないと同時並行して動かしているブラウザを操作しにくいです。

このブラウザというのは何ですか？
IEでしたら、
Public Sub IeProcessKill()
実行でウィンドウが一緒に消えてしまうと思うのですが。
【81563】Re:taskkill.exeを実行する際のウィンド...
発言  YAMADA  - 20/12/5(土) 21:40 -
引用なし
パスワード
   ▼OK さん：
Call Shell(Environ$("ComSpec") & " /c" & mycmd)
でエラーです
IEです

>↓でも同じですか？
>
>Sub iekill()
> Dim mycmd As String
>　'コマンド内容
>　mycmd = "taskkill /im iexplore.exe /f"
>　'コマンド実行
>　Call Shell(Environ$("ComSpec") & " /c" & mycmd)
>End Sub
【81568】Re:taskkill.exeを実行する際のウィンド...
発言  OK  - 20/12/7(月) 8:26 -
引用なし
パスワード
   当方Windouws10、Excel2007です。
私の環境ではエラーは起きませんでした。
環境によって違ってくるかもしれません。
他の回答者のレスをお待ちください。
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
201 / 13645 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free