Question

我正在尝试通过VBA自动执行报告。我曾在VBA工作，但无法通过代码登录iTunes网站。有人告诉我它是用iframe编写的，但我不知道。甚至我也无法在登录页面的输入框中输入用户名。

https://itunesconnect.apple.com/login

Dim HTMLdoc As HTMLDocument    
Dim MyBrowser As InternetExplorer

Sub check()

    Dim MyHTML_element As IHTMLElement
    Dim MyURL As String

    MyURL = "https://itunesconnect.apple.com/login"
    Set MyBrowser = New InternetExplorer

    MyBrowser.Silent = True
    MyBrowser.navigate MyURL
    MyBrowser.Visible = True

    Do
    Loop Until MyBrowser.readyState = READYSTATE_COMPLETE

    Set HTMLdoc = MyBrowser.document

    HTMLdoc.getElementsByID("account_name_text_field").Value = "username@outlook.com"
    HTMLdoc.all.Password.Value = "password"

    For Each MyHTML_element In HTMLdoc.getElementsByTagName("input")

        If MyHTML_element.Type = "sign-in" Then MyHTML_element.Click: Exit For

    Next

Err_Clear:

    If Err <> 0 Then

        Err.Clear

        Resume Next
    End If
End Sub

Answer 1

API听起来不错。整个页面的加载速度非常慢（至少对我来说），并且有一个iframe可以导航。

我会和selenium basic wrapper一起使用vba并切换到iframe。有空的时候我会尝试改善这一点，但目前可以。

安装硒后，您需要通过Object向VBE > Tools > References添加参考。

Selenium Type library

iTunes的自动化连接VBA

1 个答案: