Dim s '対象画面を検索、なければ開く(必要に応じ使用してください) Set xShell = CreateObject("Shell.Application") win_s = False For Each Window In xShell.Windows '対象URLが表示されているか? If TypeName(Window.Document) = "HTMLDocument" Then if Window.Document.url="http://spotboard.mj-net.jp/" then
win_s=true exit for end if end if next if win_s=false then '対象URLが非表示→新しく画面を開く Set objIE0 = CreateObject("InternetExplorer.Application") objIE0.Visible = True objIE0.Navigate "http://spotboard.mj-net.jp/" Do While objIE0.busy = True Loop
Loop end if '---header end--- '---以下操作コード、必要な部分をコピーしてください--- objIE0.document.all.loginId.value="" ' text index=0