Personal tools
You are here: Home Lights on Zope EXCELマクロ タスクが残っていてTypeNameとShell.Applicationを使って起動済みのIEが探せない
« November 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 trackbacks
シャネルバッグコピー シャネルバッグコピー 2017-11-14
ブランドコピー ブランドコピー 2017-11-14
スーパーコピー代引き スーパーコピー代引き 2017-11-11
ウブロスーパーコピー ウブロスーパーコピー 2017-11-11
スーパーコピーブランド激安通販専門店シャネルバッグコピー品 スーパーコピーブランド激安通販専門店シャネルバッグコピー品 2017-11-08
ブランド財布コピー ブランド財布コピー 2017-11-07
ルイヴィトンダミエバッグコピー ルイヴィトンダミエバッグコピー 2017-11-07
ブランドスーパーコピー ブランドスーパーコピー 2017-11-06
ルイヴィトン 財布カンコク コピー ルイヴィトン 財布カンコク コピー 2017-11-05
エルメスバーキンバッグ エルメスバーキンバッグ 2017-11-01
ジェイコブ時計 ジェイコブ時計 2017-10-31
ブランドコピー激安販売通販 ブランドコピー激安販売通販 2017-10-30
偽ブランド時計 偽ブランド時計 2017-10-30
シャネル時計 シャネル時計 2017-10-20
 
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: