Question

所以我试图在工作时根据内部网页设置一个相对简单的scrape来填充excel Sheet。

我可以毫无问题地完成大部分工作;但问题是我的公司的内联网页面要求您使用用户名和密码登录，然后在使用用户名和密码后使用令牌密钥（我们有硬标记）。

为了让人们感觉更好，我希望让VBA向特定页面开放IE，然后自动路由到公司内部网的登录页面。

用户将完全登录，不会保存pw / username / etc。然后，一旦所有内容都登录并且文档标题更改为特定内容，则脚本将开始工作。

希望得到这方面的帮助。从哪里开始，我写的所有方法和建议都输入了pw然后通过代码，我试图完全避免这种情况。

Answer 1

我实际上已经明白了。

Sub WikiScrape()

Dim oIE As Object

Set oIE = CreateObject("InternetExplorer.application")
oIE.Visible = True

oIE.navigate "https://MYWEBPAGE

Application.StatusBar = "Loading Page"

Do Until oIE.document.getelementsbytagname("title")(0).innerText = "THE TITLE OF THE ACTUAL PAGE"
    DoEvents
    Application.Wait (Now + TimeValue("0:00:10"))
Loop

While oIE.readyState <> 4
    DoEvents
Wend

VBA，EXCEL允许USER在抓取数据之前登录网页

1 个答案: