tagCANDY CGI VBレスキュー(花ちゃん)の Visual Basic 6.0用 掲示板
VBレスキュー(花ちゃん)の Visual Basic 6.0用 掲示板
[ツリー表示へ]  [ワード検索]  [Home]

タイトル Re^4: エクセル動作確認後、VB6でのエラーにつきまして
投稿日: 2017/03/17(Fri) 17:18
投稿者susu
魔界の仮面弁士 さん

お世話になります。

返信して頂きましてありがとうございます。

> Debug.Print "objIE => "; TypeName(objIE)                   結果  objIE => Empty(空白)
> Debug.Print "objIE.Document =>"; TypeName(objIE.Document)  結果  実行時エラー '424':オブジェクトが必要です。

>ひとまず Command2_Click の内容を下記のようにすると、何が出力されてきますか?
私の誤りで自分が送りましたCommand2_Click内に追加するところ魔界の仮面弁士さんのCommand2_Click内に追加してしまいました。
その為、オブジェクトが違う為に上記の実行時エラー '424':オブジェクトが必要です。になりました。

また、自分が送りました記述で「Public objIE As InternetExplorer」が抜けていました。

「Public objIE As InternetExplorer」を追加後のDebug.Print結果です。

Command2_Click に以下の内容を追加しました。
                                                                                           '結果
Debug.Print "objIE => "; TypeName(objIE)                      'objIE => IWebBrowser2
Debug.Print "objIE.Document =>"; TypeName(objIE.Document)                           'objIE.Document =>HTMLDocument
Debug.Print "forms.length="; objIE.Document.Forms.length                            'forms.length= 1
Debug.Print "forms['form1'] is nothing?", objIE.Document.Forms("form1") Is Nothing  'forms['form1'] is nothing?  False
Debug.Print "lcolor =>"; TypeName(objIE.Document.Forms("form1").lcolor)             'lcolor =>DispHTMLElementCollection
Debug.Print "lcolor[0] =>"; TypeName(objIE.Document.Forms("form1").lcolor(0))       'lcolor[0] =>HTMLInputElement
Debug.Print objIE.Document.Forms("form1").lcolor(0).outerHTML                       '<input name="lcolor" type="checkbox" value="赤">


魔界の仮面弁士さが送られましたCommand2_Click内に追加してみました。
                                                     '結果
Debug.Print "IE => "; TypeName(IE)                                                  'IE => IWebBrowser2
Debug.Print "IE.Document =>"; TypeName(IE.document)                                 'IE.Document =>HTMLDocument
Debug.Print "forms.length="; IE.document.Forms.Length                               'forms.length= 1
Debug.Print "forms['form1'] is nothing?", IE.document.Forms("form1") Is Nothing     'forms['form1'] is nothing?  False
Debug.Print "lcolor =>"; TypeName(IE.document.Forms("form1").lcolor)                'lcolor =>DispHTMLElementCollection
Debug.Print "lcolor[0] =>"; TypeName(IE.document.Forms("form1").lcolor(0))          'lcolor[0] =>HTMLInputElement
Debug.Print IE.document.Forms("form1").lcolor(0).outerHTML                          '<input name="lcolor" type="checkbox" value="赤">


vb6で「Option Explicit」と「Public objIE As InternetExplorer」両方を省いた状態で行いましたら
質問しましたobjIE.Document.Forms("form1")・・・・でエラーになりました。従いまして省いで行っていたと思います。
「Option Explicit」「Public objIE As InternetExplorer」追加しますとVB6,VBA が問題なく動作しました。

私の基本的な誤り注意等に欠けていたので大変なお手数、時間を費やしてしまい本当に申し訳ありませんでした。

恐縮ですが、今後は魔界の仮面弁士さんの送って頂きました方法を使わせてもらいたいと思いますので宜しくお願い致します。

- 関連一覧ツリー をクリックするとツリー全体を一括表示します)

古いスレッドにレスはつけられません。