Question

我有一个宏可以连接到网页，获取一些信息并将其显示在用户表单上（以供进一步操作）：

Private Sub UserForm_Initialize()

Dim login As String, password As String
Dim waittime As String
Dim arrForms As Variant
Dim ie As InternetExplorer

LoadingForm.Show vbModeless
LoadingForm.lblLoading.Caption = "Loading..."

waittime = "0:00:02"
login = "lgn"
password = "passwrd"
txtEndDate.Value = Format(Now(), "dd.mm.yyyy")

Set ie = CreateObject("InternetExplorer.Application")
ie.Visible = False
'open login page
ie.navigate "my link (internal company database)"
Do Until Not ie.Busy And ie.readyState = 4
    DoEvents
Loop
Application.Wait (Now + TimeValue(waittime))

'if already logged in, skip
On Error GoTo Skip_login
ie.document.getElementById("_58_login").Value = login
ie.document.getElementById("_58_password").Value = password
ie.document.getElementsByClassName("btn btn-primary")(0).Click
Do Until Not ie.Busy And ie.readyState = 4
    DoEvents
Loop
Application.Wait (Now + TimeValue(waittime))

Skip_login:
ie.navigate "my link (internal company database)"
Do Until Not ie.Busy And ie.readyState = 4
    DoEvents
Loop
Application.Wait (Now + TimeValue(waittime))

arrForms = GetListOfForms(ie) 'this is a function that reads the page,
'finds a table and converts its values to an array
'I tried to comment this line (maybe a bug in my function)
'but even without it the code does not work
For i = LBound(arrForms) To UBound(arrForms)
    FormsList.AddItem (arrForms(i))
Next i

'Log out and quit IE
ie.navigate "my link (internal company database)"
Do Until Not ie.Busy And ie.readyState = 4
    DoEvents
Loop
Application.Wait (Now + TimeValue(waittime))

ie.document.getElementById("sign-out").Click
Do Until Not ie.Busy And ie.readyState = 4
    DoEvents
Loop
Application.Wait (Now + TimeValue(waittime))
ie.Quit

LoadingForm.Hide

End Sub

几天没问题。今天它也起作用。但是它由于未知原因停止工作（它只是说“自动化错误”，而没有引用我的代码中的错误）。我正在使用它，关闭了用户表单，然后再次单击以启动宏，但它不起作用。我试图打开旧的备份-它们也停止工作。我没有做任何更改（链接，登录名/密码，任何其他代码行）。

我的用户表单没有任何不常用的用户控件。它仅具有以下控件：文本字段，标签，框架，列表框和按钮）

我的工作宏停止工作（未进行任何更改）

0 个答案: