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

勉強ブログ

PR

X

プロフィール


09022535

カレンダー

バックナンバー

2021.04
2021.03
2021.02
2021.01
2020.12

カテゴリ

日記/記事の投稿

コメント新着

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

キーワードサーチ

▼キーワード検索

2018.05.02
XML
カテゴリ:マクロ
'プルダウンメニューを選択する
Sub SelectPulldownMenu()
    Dim objIE As Object
 
    'IE起動
    Set objIE = CreateObject("InternetExplorer.Application")
    objIE.Visible = True
 
    'お問い合わせフォームに接続
    objIE.navigate "https://form1.fc2.com/form/?id=627794"
 
    'IEを待機
    Call IEWait(objIE)
 
    '3秒停止
    Call WaitFor(3)
 
    'プルダウンメニューを選択
    objIE.Document.getElementsbyname("aetas")(0).SelectedIndex = "2"
    'objIE.Document.getElementsbyname("aetas")(0).Value = "1"
    objIE.Document.getElementsbyname("name")(0).Value = "長谷川"
    objIE.Document.getElementsbyname("text1")(0).Value = "あああああああああああああああああああああああああああああああ"
    objIE.Document.getElementsbyname("homepage")(0).Value = "https://form1.fc2.com/form/?id=627794"
    objIE.Document.getElementsbyname("mail")(0).Value = "hasegawa.yuuhi@gmail.com"
    'objIE.Document.getElementsbyname(ThisWorkbook.ActiveSheet.Range("B" & i))(0).Value = ThisWorkbook.ActiveSheet.Range("C" & i)
    'valueがあれば以下のように直接設定するほうがいい
    'objIE.Document.getElementById("aetas").value = "値"
     objIE.Document.getElementsbyname("gender")(0).Click
     objIE.Document.getElementsbyname("select1[]")(1).Checked = True
    
    
    '3秒停止
    Call WaitFor(3)
 
    'IE終了
    'objIE.Quit
 
    Set objIE = Nothing
End Sub
 
'IEを待機する関数
Function IEWait(ByRef objIE As Object)
    Do While objIE.Busy = True Or objIE.readyState <> 4
        DoEvents
    Loop
End Function
 
'指定した秒だけ停止する関数
Function WaitFor(ByVal second As Integer)
    Dim futureTime As Date
 
    futureTime = DateAdd("s", second, Now)
    While Now < futureTime
       DoEvents
    Wend
End Function






最終更新日  2018.05.02 07:54:32
コメント(0) | コメントを書く
[マクロ] カテゴリの最新記事



© Rakuten Group, Inc.