【マクロ】webページ自動入力

アクティブシートのB1=サイトのURL アクティブシートのB3~B10000=要素の名前（name） アクティブシートのC3~C10000=入れる値 Private Sub CommandButton1_Click()    Dim IE As Object     target = ThisWorkbook.ActiveSheet.Range("B1")    Set IE = CreateObject("InternetExplorer.Application")    With IE        .Visible = True        .Navigate target             Do While .Busy = True Or .ReadyState <> 4            DoEvents        Loop         Do While .Document.ReadyState <> "complete"            DoEvents        Loop Dim mxrowmxrow = ThisWorkbook.ActiveSheet.Range("B10000").End(xlUp).Row             For i = 3 To mxrow        .Document.getElementsByName(ThisWorkbook.ActiveSheet.Range("B" & i))(0).Value = ThisWorkbook.ActiveSheet.Range("C" & i) Next i        .Document.forms(0).submit    End WithEnd Sub