000000 ランダム
 ホーム | 日記 | プロフィール 【フォローする】 【ログイン】

勉強ブログ

PR

X

プロフィール


09022535

カレンダー

バックナンバー

2021.04
2021.03
2021.02
2021.01
2020.12

カテゴリ

日記/記事の投稿

コメント新着

コメントに書き込みはありません。

キーワードサーチ

▼キーワード検索

2018.05.01
XML
カテゴリ:マクロ
アクティブシートの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) | コメントを書く
[マクロ] カテゴリの最新記事



© Rakuten Group, Inc.