Personal tools
You are here: Home Lights on Zope EXCELマクロ タスクが残っていてTypeNameとShell.Applicationを使って起動済みのIEが探せない
« April 2018 »
Su Mo Tu We Th Fr Sa
1 2 3 4 5 6 7
8 9 10 11 12 13 14
15 16 17 18 19 20 21
22 23 24 25 26 27 28
29 30          
Recent entries
Python Anywhere seko 2016-11-19
帯状疱疹 seko 2016-11-18
Chromebook購入 seko 2016-11-03
マカロニさん めざせデータサイエンティスト seko 2016-11-02
脳波計muse 購入 seko 2016-09-04
フェルデンクライスメソッド227回目  seko 2016-08-27
EXCELマクロ タスクが残っていてTypeNameとShell.Applicationを使って起動済みのIEが探せない seko 2016-04-19
pythonでNITE 化学物質総合情報提供システムへアクセス seko 2016-04-19
Raspberry Pi 3で侵入者を発見 seko 2016-04-03
Raspberry Pi 3 OSのインストール seko 2016-04-02
Docker コンテナをexportするpythonスクリプト seko 2016-03-31
Effective Python ―Pythonプログラムを改良する59項目 seko 2016-03-30
確かな力が身につくPython「超」入門 鎌田 正浩 (著) seko 2016-03-29
pythonでバブルソート seko 2016-03-24
Recent comments
познакомлюсь с мужчиной от 45 до 55 loveawake.ru 2018-03-29
Mark joins Dissertation Advise Band markormann 2018-03-26
Лучшее в 2018 без Медицины KevinCound 2018-03-23
Лучшее в 2018 без Медицины KevinCound 2018-03-23
Лучшее в 2018 без Медицины KevinCound 2018-03-23
Лучшее в 2018 без Медицины KevinCound 2018-03-23
Лучшее в 2018 без Медицины KevinCound 2018-03-23
Укладка ламината и паркета AlexanderawasH 2018-03-22
познакомлюсь с мужчиной старше 50 лет loveawake.ru 2018-03-18
познакомится с мужчиной из германии ZevsDwexy 2018-03-08
Здравствуйте Bryandipse 2018-03-08
Здравствуйте Bryandipse 2018-03-08
Здравствуйте Bryandipse 2018-03-08
Здравствуйте Bryandipse 2018-03-08
Recent trackbacks
UGG靴 韓国 コピー UGG靴 韓国 コピー 2018-03-11
時計コピー 時計コピー 2018-02-27
ブランドコピー ブランドコピー 2017-12-08
スーパーコピー代引き スーパーコピー代引き 2017-12-08
ブランド時計コピー ブランド時計コピー 2017-12-08
エルメス偽物 エルメス偽物 2017-12-08
S品シャネル S品シャネル 2017-12-08
ブランド長財布コピー ブランド長財布コピー 2017-12-08
スーパーコピー スーパーコピー 2017-12-08
スーパーコピー時計 スーパーコピー時計 2017-12-08
ルイヴィトン長財布 ルイヴィトン長財布 2017-12-08
ロレックス偽物激安 ロレックス偽物激安 2017-12-08
スーパーコピー腕時計 スーパーコピー腕時計 2017-12-08
ルイヴィトン偽物 ルイヴィトン偽物 2017-12-08
 
Document Actions

EXCELマクロ タスクが残っていてTypeNameとShell.Applicationを使って起動済みのIEが探せない

by seko posted at 2016-04-19 21:38 last modified 2016-04-19 22:23

マカロニさんがEXCELからIEを立ち上げて処理をするマクロを書いていて、IEが既に立ち上がっている場合は、そこに表示させたいということになりました。

いろいろ調べてみると、次のようにShellのWidnowsを一つ一つあたって探すのが定石のようです。

ところがやってみるとうまく行きません。 Windowsが3つしかないのに、10回も繰り返すのです。

タスクマネジャーを見てみると、何と終わらせたはずのIEがたくさん残っているではありませんか。

私のPCではそんなことはないのですが、検索してみると結構頻繁に起こっているようです。

http://www.ken3.org/vba/backno/vba156.html

'シェルのオブジェクトを作成する
Set objShell = CreateObject("Shell.Application")
ここから、ウインドウの数だけまわし、起動中のIEを探してみました。
  For Each objWindow In objShell.Windows
      Debug.Print "タイプは:" & TypeName(objWindow.document)
      'HTMLDocumentだったら
      If TypeName(objWindow.document) = "HTMLDocument" Then
          'オブジェクトを代入する
          Set objIE = objWindow
          nFLG = True '見つけたよ
          Exit For  '初めに見つけたオブジェクトを代入
      End If
  Next
Category(s)
EXCEL
The URL to Trackback this entry is:
http://lightson.dip.jp/blog/seko/3683/tbping
Add comment

You can add a comment by filling out the form below. Plain text formatting.

(Required)
(Required)
(Required)


Powered by Plone, the Open Source Content Management System

This site conforms to the following standards: