特殊・他 ブラウザ上のインプットボックス入力(特殊なnameの場合)

VB&VBA
FROG ふろっぐ
 
  • オプション

    本文印刷

    お気に入りに追加

  • 検索

    Googlewwwjp-ia
     

    Googlewwwjp-ia
     
  • 情報

  • 関連

[VB&VBA][特殊・他 ブラウザ上のインプットボックス入力(特殊なnameの場合)]
Option Explicit


Private Sub CommandButton1_Click()
'*********************************************************
'ブラウザ上のインプットボックス入力とボタンクリック操作
'*********************************************************
'UserForm1にWebBrowser1を設置
'UserForm1にCommandButton1・2を設置
'UserForm1にTextBox1〜3を設置

Dim IE As Object, NvgtURL As String, InptTxt(2) As String

NvgtURL = Me.TextBox1.Value    '該当ページURL
InptTxt(1) = Me.TextBox2.Value 'ID等
InptTxt(2) = Me.TextBox3.Value 'Password等

Set IE = Me.WebBrowser1

IE.Navigate NvgtURL             '該当ページ表示

IE.Visible = True

Do While IE.Busy                '表示まで待機
    DoEvents
Loop

IE.Document.Form1.TeID.Value = InptTxt(1)          'テキスト入力
IE.Document.Form1.TePassword.Value = InptTxt(2)    'テキスト入力
'IE.Document.Form1.ButtonLogin.Click                     'ボタンクリック

Do While IE.Busy                '表示まで待機
    DoEvents
Loop

Set IE = Nothing

End Sub


Private Sub CommandButton2_Click()
    Dim objIE As Object
    Dim objIEItem As Object
    Dim i As Long

    Set objIE = Me.WebBrowser1

    For i = 1 To 47
        For Each objIEItem In objIE.Document.all
    '    Debug.Print objIEItem.tagName
            If objIEItem.tagName = "INPUT" Then
    '        MsgBox objIEItem.Name
                If objIEItem.Name = nameK(i) Then
                    objIEItem.Value = kin(i)
                    Exit For
                End If
            End If
        Next
    Next i

End Sub






Production Japan Import Application. Since 1998