excel VBAについての質問です。 削除
Message#2 2014年9月26日(金)21時10分 From: 管理人 |
データ取得について、情報がないため分かりませんが、VBAでの自動ログイン方法については、以下を参考にしてみてください。 一応ボタンはinputタグのsubmitを想定してクリック処理しています。 【自動ログイン】 Sub sample() Dim objIE As InternetExplorer Call ieView(objIE, "ログインするURL") Call formText(objIE, "address", "ログインアドレス") Call formText(objIE, "pasward", "ログインパスワード") Call tagClick(objIE, "input", "send") End Sub 【利用したサブルーチン】 Sub ieView(objIE As InternetExplorer, _ urlName As String, _ Optional viewFlg As Boolean = True, _ Optional ieTop As Integer = 0, _ Optional ieLeft As Integer = 0, _ Optional ieWidth As Integer = 1200, _ Optional ieHeight As Integer = 1000) Set objIE = CreateObject("InternetExplorer.Application") objIE.Visible = viewFlg objIE.top = ieTop objIE.Left = ieLeft objIE.Width = ieWidth objIE.Height = ieHeight objIE.navigate urlName Call ieCheck(objIE) End Sub Sub ieCheck(objIE As InternetExplorer) Dim timeout As Date timeout = Now + TimeSerial(0, 0, 10) Do While objIE.Busy = True Or objIE.readyState <> 4 DoEvents Sleep 100 If Now > timeout Then objIE.Refresh timeout = Now + TimeSerial(0, 0, 10) End If Loop timeout = Now + TimeSerial(0, 0, 10) Do Until objIE.document.readyState = "complete" DoEvents Sleep 100 If Now > timeout Then objIE.Refresh timeout = Now + TimeSerial(0, 0, 10) End If Loop End Sub Sub formText(objIE As InternetExplorer, idName As String, tagValue As String) For Each objTag In objIE.document.getElementsByTagName("input") If objTag.Name = idName Then objTag.value = tagValue Exit For End If Next For Each objTag In objIE.document.getElementsByTagName("textarea") If objTag.Name = idName Then objTag.value = tagValue Exit For End If Next End Sub Sub tagClick(objIE As InternetExplorer, tag As String, tagStr As String) For Each objTag In objIE.document.getElementsByTagName(tag) If InStr(objTag.outerHTML, tagStr) > 0 Then objTag.Click Call ieCheck(objIE) Exit For End If Next End Sub |
上のメッセージを削除します。
よければパスワードを入力し、削除ボタンをクリックしてください。