三流君 ken3のmemo置き場

メモ置き場、保管庫として利用。まとまっていませんがヨロシク

挨拶・自己紹介:
失敗続きのAB型の変わり者 :三流プログラマー Ken3です
フリーのエンジニア・個人事業主です・・と書くと聞こえはイイが(それとなくカッコよく聞こえるが)、 現在は小さな案件の受注請負 と 短期派遣 で 日々つつましく?ほそぼそと暮らしてます。
(※詳細は[三流君 三流プログラマーとは?]を見てください)


広告:


[記事一覧、バックナンバーを見る]

XXXXXさんへ TypeNameでエラーの件 未解決でお力になれずスミマセン。

下記の質問をいただきました。


起動済みIE、操作済み、既存の表示済みWEB画面を操作したい
と、思いまして、検索してここにたどり着いたんですが、
HPの方にある マクロを試してみたんですが、
Debug.Print "タイプは:" & TypeName(objWindow.document)
ここで、止まってしまいます。
ここをコメントアウトすると、
次の
If TypeName(objWindow.document) = "HTMLDocument" Then
で、止まってしまうんです。
ただ、一度だけ うまく動いた時もあるんですが、
以後、何をしても、ここから先に進めなくなってしまい、困っております。

と、質問をいただきました。

TypeNameが効かない原因が、
参照設定
三流君VBAでIE操作 まずは、参照設定から
http://www.ken3.org/cgi-bin/group/vba_ie_object.asp
だったらいいのですが、
別に参照設定していなくても、使えていたような気がするので、違う原因だとは思います...

せっかく問い合わせをいただいたのですが、
TypeNameでエラーになってしまう件は、
私もわからなくって、お力になれず すみません。


エラーなので、使わない?避けて通ってみる?
根本的な解決策じゃないのですが、
TypeNameで、エラーなので、
TypeNameの確認をしないで使ってみては?

XXXXさんへ 起動済みIE、操作済み、既存の表示済みWEB画面を操作したい - ken3memo (三流君)
http://d.hatena.ne.jp/ken3memo/20110823/1314115156
でも
TypeNameを使っているのですが、
TypeNameの判断を止めて、実験してみるとか?

Sub aaa()

    'オブジェクトを格納する変数
    Dim objShell As Object, objWindow As Object

    'シェルのオブジェクトを作成する
    Set objShell = CreateObject("Shell.Application")
    
    'ウインドウの数だけまわすぞ
    For Each objWindow In objShell.Windows
        Debug.Print "タイトル:" & objWindow.document.Title
        Debug.Print "URL:" & objWindow.document.URL
    Next
    Set objShell = Nothing

End Sub

または、
6/5 VBA IE操作 新しいウインドウ(IE)起動後 次の月>を押す 三流サンプル - ken3memo (三流君)
http://d.hatena.ne.jp/ken3memo/20090604/1244142121
みたいに
新しいIEが起動したら、

'起動した IE が 必ず 絶対 一番後ろ と決め付けて(プログラマーに絶対は無いだろクソ三流)
Set newIE = objSHELL.Windows(objSHELL.Windows.Count - 1)
'↑配列が0からなのでカウント-1 一番後ろのWindowをobjIEに代入

で捕まえて、処理してみるとか。
※一番最後とは限らないし...

お力になれずスミマセン。
一つでも解決のヒントとなれば...

と思いつつ、失礼します。 三流プログラマー Ken3


広告
最強充電 4マルチ USBケーブル with Lightning」4種類 11月29日 伸び率UP
スマートフォン/iPhone/iPad/Galaxy Tabなど各種対応 11月28日 伸び率UP
PLANEX Xperia・X06HT HTC Desire対応 充電& 11月27日 伸び率UP
HAKUBA Amazon 液晶保護フィルム 【安心便利な2枚組み】 P 11月26日 伸び率UP
iPhone5 ライトニング USBケーブル Lightningケーブル 11月25日 伸び率UP


(レイジブルー)RAGEBLUE ネイティブマフラー 508415 → 11月29日 最近販売
【全5色】 半袖形態安定Yシャツカラー無地 sa01 → 11月29日 伸び率UP
ハッピートナカイ/クリスマス/サンタクロース衣装/コスチューム【着ぐるみ 11月28日 最近販売
(ロスコ)ROTHCO ロスコ 米軍 ネックウォーマー デジタルカモ 5 11月28日 伸び率UP
ショート ダッフル コート アウター ブルゾン → 11月27日 最近販売




三流君へ メッセージを送る

全ての質問に答えることはできませんが、
ダメもとで、気軽に質問、感想、メッセージを送ってくださいね・・・

感想や質問・要望・苦情など 三流君へメッセージを送る。
下記のフォームからメッセージを送ることができます。


あなたのお名前(ニックネーム):さん
返信は?:

アドレス:に返事をもらいたい
感想や質問↓:


(感想や質問・要望・苦情はHPで記事に載せることがあります。)
例:[XXXXさんへ回答例]←みたいに回答していたり...


Ken3 ホームページ 目次

分類:HPを大きく分けると4つの柱(分類)です。
・[Excel/Access VBA]の解説
・[ASP(Active Server Pages)]の解説。
・[元コンビニ店長時代の話]が弟に巻き込まれ、失敗した脱サラ、畑違い?の仕事で失敗。
・[プログラマーの愚痴]では、あまり見せたくない三流プログラマーの内面かな。
三流君を踏み台にする
主に上記4つの分類でHP作成やメルマガの発行を行ってます。
※更新頻度が落ちていて情報の鮮度が悪いです。

三流解説動画の再生リスト
https://www.youtube.com/user/ken3video/playlists

本当に三流なんです(笑):たまにスゴイですねなんて言われることもありますが、
真実は→ [三流君の真実は...] ←を初めに見てくださるとわかると思います。
(からくりは、成功例↑しか載せてなくて ヒドイ失敗例はお蔵入り迷宮入りが多かったりします)