Personal tools
You are here: Home Lights on Zope EXCELマクロ タスクが残っていてTypeNameとShell.Applicationを使って起動済みのIEが探せない
« May 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 31      
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
that any time somebo can you have two car insurances 2017-05-29
Ein akademischer Abs insurance agencies in chicago 2017-05-29
« Â«Nous how does insurance determine the value of a car 2017-05-29
Continuo com muita d rcbs pro2000 auto index progressive press 2017-05-29
Å så deilig det er auto insurance oahu 2017-05-29
I just want to say I how much is insurance on a jet ski 2017-05-29
caro gb, è vero che does car insurance cover rental trucks 2017-05-29
Devinette: quel éna alfa insurance oxford ms 2017-05-29
A propos Grillgut: W new auto insurance laws in california 2017-05-29
I have been browsing car insurance in georgetown tx 2017-05-29
si tengo poca idea d travelers insurance company ratings 2017-05-28
Umarım sıcaklar bu car insurance companies in las vegas nv 2017-05-28
adeptus: ha összejà aaa insurance calculator 2017-05-28
Ah, il est enfin arr how to open an auto insurance agency in florida 2017-05-28
Recent trackbacks
カルティエ 結婚指輪 文字数 カルティエ 結婚指輪 文字数 2017-05-08
オメガ 一覧 オメガ 一覧 2017-05-06
『必笑小咄のテクニック』 米原万里 じゅうの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
 
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: