特殊・他 ブラウザ上のインプットボックス入力(特殊なnameの場合)
※より実装に近く表示させる為、コードの改行を避けています。スマホ等で閲覧される際は向きを変えてご覧ください。
※実装するバージョンによってはバージョンアップの仕様により動作しないコードもあります。実装には動作確認の上ご使用下さい。
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 |