VBAでのIE操作について

Question

証券会社にログインして、銘柄発注を行うプログラムを作成したいです。
下記コードを実行するとそれぞれ、.document.getElementsByName("txt_meigara_comp")(0).Value = Range("A24")のところで
『オブジェクト変数または with ブロック変数が設定されていません 』とエラーが出てしまいます。
テスト1はログイン画面からアクセス→ログイン後銘柄入力のプロシージャです。

テスト2は、ログイン後の動きに問題があることを考えて既にログイン済みのIEを準備し、
そこに銘柄入力を行うプロシージャとなっています。

どちらも、.document.getElementsByName("txt_meigara_comp")(0).Value = Range("A24")のところで、上記エラーが出るのですが
どこに原因があるでしょうか？
ご教授していただけると助かります。よろしくお願いします。

Private Declare PtrSafe Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As LongPtr)
Sub subWait(objIE As Object) 'IEの読み込み待機時間
Do While objIE.Busy = True Or objIE.ReadyState < READYSTATE_COMPLETE '読み込み待ち
    DoEvents
Loop

Exit Sub
End Sub

Sub テスト1()

Dim objIE As Object
Dim objShell
Dim AnhorLink As Object, AnhorLinks As Object
Dim n As Long
Set objIE = CreateObject("InternetExplorer.Application")

    Call objIE.navigate("https://treasurenet.jip-jet.ne.jp/login.con?code=063")
    Do While objIE.Busy
    Loop
    objIE.Visible = True
    Sleep 1000
    With objIE
        .document.forms(0).elements("customer").Value = Range("A22")
        .document.forms(0).elements("pass").Value = Range("A23")
        
        .document.forms(0).submit 'ログインボタンをクリック
        
        Do While objIE.Busy = True Or objIE.ReadyState <> 4
        DoEvents
        Loop
        
        **.document.getElementsByName("txt_meigara_comp")(0).Value = Range("A24")**
    End With

End Sub
＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿

Sub テスト2()

Dim objIE As InternetExplorer
Dim objShell As Object, objWin As Object
Set objShell = CreateObject("Shell.Application")
For Each objWin In objShell.Windows
    If objWin.Name = "Internet Explorer" Then
        Set objIE = objWin
        Exit For
    End If
Next

Call subWait(objIE)
        
With objIE
    **.document.getElementsByName("txt_meigara_comp")(0).Value = Range("A24")**
    
End With
Set objIE = Nothing

End Sub

Comments

[meg_]

その要素は入力可能な要素ですか？

[tjagwmdj]

はい。
A24セルには数値が入力してあるので、入力可能だと思うのですが、、、
試しにRange("A24")を4563などの数値に書き換えてみても同様でした、、、

[tjagwmdj]

テキストボックスには4桁の銘柄コードを入力することが求められていますので、間違ってはいないと思うのですが、、

[kenshirou]

.document.getElementsByName("txt_meigara_comp")のコレクションが得られていないのではないでしょうか？
一度、.document.getElementsByName("txt_meigara_comp")をObject変数に受けて、そのCountを調べてみてはどうでしょう。
（.document.getElementsByName("txt_meigara_comp").Countでもいいかも知れない）
Countが0なら、.document.getElementsByName("txt_meigara_comp")(0).Valueは当然エラーになります。
なお、プログラム的なアクセスを禁じているサイトもありますのでご注意ください。

[tjagwmdj]

ご回答ありがとうございます。
.document.getElementsByName("txt_meigara_comp")のコレクションが得られていないとはどういうことなのでしょうか？
VBAを始めたばかりでコレクション、オブジェクトといったVBAでの抽象的な用語を検索しても理解出来ず困っています。
どうすれば、.document.getElementsByName("txt_meigara_comp")をObject変数に受けて、そのCountを調べられるでしょうか？
質問ばかりで申し訳ありません。

[meg_]

コードは「コードの挿入」で記入してください。（今のままでは読みにくいです）

[meg_]

MsgBox .document.getElementsByName("txt_meigara_comp").Count
でどうですか？

[tjagwmdj]

「コードの挿入」で記入しました。
確かにこの方が見やすいですね。ご指摘ありがとうございます。

[tjagwmdj]

MsgBox .document.getElementsByName("txt_meigara_comp").Countを実行してみたのですが、
テスト1、テスト2のプロシージャいずれでも
『オブジェクトはこのプロパティまたはメソッドをサポートしていません』と
エラーが出てしまいました、、、

[meg_]

下記で出来そうです。
MsgBox .document.getElementsByName("txt_meigara_comp").Length

[tjagwmdj]

MsgBox .document.getElementsByName("txt_meigara_comp").Lengthで出来ました。
ご丁寧にご回答をしていただきありがとうございます。

0と返ってきたので、コレクションが得られていないみたいです、、、
.document.getElementsByName("txt_meigara_comp")(0).Value = Range("A24")で
コレクションを得るにはどうしたら良いのでしょうか？
質問ばかりすいません、、

[meg_]

ログイン後の画面についてはこちらでは回答のしようがないです。要素が0ってことは"txt_meigara_comp"という名前の要素はその画面にはない、ということかと。javascript等使ったサイトだとその方法では取得できないのかも？ですね。

[tjagwmdj]

そうなのですね。
HTMLにはname="txt_meigara_comp"とあったので大丈夫かと思ったのですが、、、
要素を取得出来る方法まで教えていただき本当にありがとうございます。
少しVBAについて理解が深まりました。

[tjagwmdj]

一旦質問を整理してみることにします。
ご丁寧なご回答をいただきありがとうございました。

[meg_]

objIE.document.all(0).outerHTML で取得したい要素があるか確かめてはどうでしょうか？

[tjagwmdj]

.navigateを使って他の項目からアクセスして銘柄コード入力をしました。
丁寧なご回答をいただきありがとうございました。