|
カテゴリ:マクロ
アクティブシートの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 mxrow mxrow = 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 With End Sub
お気に入りの記事を「いいね!」で応援しよう
最終更新日
2018.05.01 22:02:34
コメント(0) | コメントを書く
[マクロ] カテゴリの最新記事
|