Personal tools
You are here: Home Lights on Zope EXCELマクロ タスクが残っていてTypeNameとShell.Applicationを使って起動済みのIEが探せない
« April 2017 »
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
Elle en sait assez p star wars the old republic cartel coins hack 2017-04-25
You really make it s pixel gun 3d free coins 2017-04-25
bonjour GRABA et bon free coins 2017-04-25
Também sou professo pet rescue saga free coins 80000 2017-04-25
Le 04/02/2009 à 14h pou unlimited coins hack download 2017-04-25
Sinceramente, apreci ps4 fifa 2017-04-25
Jacques Barozzi | le free coins 2017-04-25
Dank für Ihren Komm mut 15 coin generator 2017-04-25
Ich kann dich beruhi madden mobile coin generator no survey or download 2017-04-25
GRATULÁLOK!!! Nagyo http://www.thegreateasternwhiteout.net/evdufbnn.html 2017-04-25
einen realen Wochenr http://www.reignnj.com/qiykftvgjv.html 2017-04-25
ao : 1. März : „ http://www.janganstop.com/ 2017-04-24
JC Moysan dit : http://www.reignnj.com/hohb.html 2017-04-24
Eusebiu, Roxana și http://www.reignnj.com/pjcnxkb.html 2017-04-24
Recent trackbacks
『必笑小咄のテクニック』 米原万里 じゅうのblog 2016-04-26
まんが 哲学入門 天竺堂の本棚 2014-02-24
史上最強の哲学入門 東洋の哲人たち 天竺堂の本棚 2014-02-19
「本屋さんで待ち合わせ」三浦しをん 粋な提案 2013-10-01
PythonでCPUの数を調べる。 ヲドリテヒヅル 2012-12-03
ぼくはお金を使わずに生きることにした 紹介 感想 わかめになりたい 2011-12-02
au の HTC EVO がなかなか良かった話 tdtshのブログ 2011-05-25
逆転経済の反響 世界一のバイヤーになってみろ!!坂口孝則の本棚と雑文 2010-12-27
Who Moved My Cheese? 大学生の気ままな書評 おすすめ和書・洋書! 2010-10-30
sekoさんちからPOSTがあったけど・・・ PapaBlog 2010-09-12
Squid(キャッシュサーバーモード)を試してみる PapaBlog 2010-08-25
Apache 2.2のキャッシュ機能を使ってみる PapaBlog 2010-08-08
愛と資本主義 中村うさぎ ばみの乱読日記 と猫雑貨。 2010-08-07
Flowplayerがバージョンアップしてスッキリしていた PapaBlog 2010-06-06
 
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: