エクセルで入力したものをwebページのフォームに入力

Question

エクセルのセルに入力したものを自動的にWebページに入力するシステムを作成しています。VBA初心者で色々なサイトを見ながらつくってみたのですが、エクセルからWebページへの入力方法がよくわかりません。現在の状況としまして、特定のものをプログラムからwebページへかきこむことは成功しています。まだまだ未熟ですがよろしくおねがいします。

該当のソースコード

ソースコード
Sub test()

'---1.インターネットに接続してブラウザを開く---
    Dim objIE As InternetExplorer
    Set objIE = CreateObject("InternetExplorer.Application")
    objIE.Visible = True

'---2.インターネットの特定のページを開く---
    objIE.navigate "http://www.mercari.com/jp/sell/"
    Call IEWait(objIE)   'IEを停止
    Call WaitFor(3) '3秒停止
    
'---3.IEに自動で文字入力して情報検索する---
    Dim htmlDoc As HTMLDocument
    Dim tetSelect As HTMLSelectElement
    Dim Btn As IHTMLElement
    Set htmlDoc = objIE.document
    Set tetSelect = objIE.document
    'Set Btn = objIE.document

    With htmlDoc
        .getElementsByTagName("input")(1).Value = "りんご"
        .getElementsByTagName("textarea")(0).Value = "おいしいりんごです"
        Set objInpSel = .getElementsByTagName("select")(0)
        objInpSel.selectedIndex = 13
         '.getElementsByTagName("input")(3).Value = "ブランド"
        Set objInpSel = .getElementsByTagName("select")(1)
        objInpSel.selectedIndex = 1
        Set objInpSel = .getElementsByTagName("select")(2)
        objInpSel.selectedIndex = 1
        Set objInpSel = .getElementsByTagName("select")(3)
        objInpSel.selectedIndex = 13
        Set objInpSel = .getElementsByTagName("select")(4)
        objInpSel.selectedIndex = 1
        .getElementsByTagName("input")(2).Value = "300"
        'Set Btn = .getElementsByTagName("button")(1).Click
        
         
    
    Call IEWait(objIE)
    End With
End Sub
    


'---2-1.IEを待機する関数---
Function IEWait(ByRef objIE As Object)
    Do While objIE.Busy = True Or objIE.readyState <> 4
        DoEvents
    Loop
End Function

'---2-2.指定した秒だけ停止する関数---
Function WaitFor(ByVal second As Integer)
    Dim futureTime As Date
 
    futureTime = DateAdd("s", second, Now)
 
    While Now < futureTime
        DoEvents
    Wend
End Function

Comments

[m.ts10806]

そもそもメルカリってプログラムからの自動操作の許可されてるサイトでしたっけ。

Answer 1

エクセルからWebページへの入力方法がよくわかりません。

アクティブなシートのA1セルの値を書き込むなら、下記のようなコードになります。

.getElementsByTagName("input")(1).Value = ActiveSheet.Range("A1").Value

あるいは下記のように座標で指定することも可能です。

.getElementsByTagName("input")(1).Value = ActiveSheet.Cells(1, 1).Value