訪問網頁並自動填寫表單VBA
Sub Macro1() ' 'CreateObject ("internetExplorer.application") 'Visible = True 'Navigate "C:\Program Files (x86)\Internet Explorer\Application\iexplore.exe"
' MsgBox ("123")
CreateObject ("internetExplorer.application") Navigate "C:\Program Files (x86)\Google\Chrome\Application\chrome.exe" End Sub
Sub Macro2() ' ' Macro2 Macro '
' CreateObject ("internetExplorer.application") Navigate ("C:\Program Files (x86)\Google\Chrome\Application\chrome.exe") End Sub
Sub Macro3() ' ' Macro3 Macro
'Url = "www.baidu.com" Url = "https://login.10086.cn/login.html?channelID=12034&backUrl=http%3A%2F%2Fwww.10086.cn%2Findex%2Ffj%2Findex_591_591.html" Shell "C:\Program Files (x86)\Google\Chrome\Application\chrome.exe " & Url, vbNormalFocus 'Shell "C:\Program Files (x86)\Google\Chrome\Application\chrome.exe" End Sub Sub Macro4() ' ' Macro4 Macro ' 'Url = "http://www.exceltip.net/thread-49609-1-1.html" 'Url = "http://www.baidu.com" With ie Url = "https://login.10086.cn/login.html?channelID=12034&backUrl=http%3A%2F%2Fwww.10086.cn%2Findex%2Ffj%2Findex_591_591.html" ActiveWorkbook.FollowHyperlink Url 'IE.document.forms(sms_login_1).submit 'IE.document.getElementById(sms_login_1).Click 'ActiveSheet.WebBrowser1.Document.getElementById(sms_login_1).Click 'IE.Document.GetElementById(sms_login_1).Click
End With End Sub Sub Macro5() ' ' Macro5 Macro '
'
With ie 'Set ie = CreateObject("InternetExplorer.application") Url = "https://login.10086.cn/login.html?channelID=12034&backUrl=http%3A%2F%2Fwww.10086.cn%2Findex%2Ffj%2Findex_591_591.html" Shell "C:\Program Files (x86)\Internet Explorer\iexplore.exe " & Url, vbNormalFocus
ie.Visible = True ie.Navigate "https://login.10086.cn/login.html?channelID=12034&backUrl=http%3A%2F%2Fwww.10086.cn%2Findex%2Ffj%2Findex_591_591.html" ie.document.GetElementsByName("p_name").Value = "123" ie.document.GetElementsByName("p_pwd").Value = "test" ie.document.GetElementsByName("submit_bt").Click
End With 'ie.document.forms(0).all("sms_login_1").Value = "test"
End Sub