为什么我的VBA脚本表现得如此难以预测？

Question

我做在VBA脚本一些IE的自动化，以及由于某种原因，

“设置IE =的CreateObject（” InternetExplorer.Application“）”

行我的代码似乎是循环的，因为它会有时会启动3-7个IE浏览器而不是一个。最令人烦恼的部分是它在我的机器上工作正常，但是当我通过电子邮件发送给其他人时，它通常无法正常运行。这里是我的脚本：

Private Sub LauncherButton_Click() 
'Here an instance of Internet Explorer is created, 
' and pointed at the login page 
Dim IE As InternetExplorer 
Set IE = CreateObject("InternetExplorer.Application") 
URL = "www.google.com" 
IE.Visible = True 
IE.Navigate URL 


'The script waits for Internet Explorer to finish loading 
Application.Wait Now + TimeValue("00:00:03") 

'Here the login info is taken from the user inputs and entered 
' login page 
ID = Worksheets("home").Range("B25") 
PW = Worksheets("home").Range("B26") 

Application.SendKeys ID, True 
Application.SendKeys "{TAB}", True 
Application.SendKeys PW, True 
Application.SendKeys "{TAB}", True 
Application.SendKeys "{TAB}", True 
Application.SendKeys "{TAB}", True 

'This command will 'click' the login button, it will remain 
' commented until a user with access can run the script 

'Application.SendKeys "~", True 

'After the login info is entered it is removed from memory 
Worksheets("home").Range("B25").Clear 
Worksheets("home").Range("B26").Clear 
ID = "" 
PW = "" 
End Sub 

我改变了网站，护目镜，因为实际的目标只是在我们的内部网络访问。 sendKeys部分也是不相关的，因为登录页面没有被加载。

Answer 1

有许多因素都在起作用：

当初始化函数VBA代码保持在该函数的环境。正如我今天发现的那样，IE在调用导航功能后调用一个新窗口。因此，您的VBA将返回连接已丢失。

尝试：

 

    Private Sub UserForm_Password_AfterUpdate() 
     set WebBrowser = New InternetExplorerMedium 
     WebBrowser.visible = True 
     WebBrowser.Navigate yourLoginPageURL 

     While WebBrowser.Busy = True 
      DoEvents 
     Wend 

     WebBrowser.Document.getElementById("UName").value = Worksheets("home").Range("B25") OR txtBoxUname.Text 
     WebBrowser.Document.getElementById("UPwd").value =  Worksheets("home").Range("B26") OR txtBoxPwd.text 
     Worksheets("home").Range("B25").Clear 
     Worksheets("home").Range("B26").Clear 
    End Sub 


    Private sub cboAddress_AfterUpdate() 
     if cboAddress.Text > "" then 
      WebBrowser.Quit 
      Set WebBrowser = Nothing 
      newIE 
     End If 
    End Sub 

    Private Sub newIE() 
     Set WebBrowser = CreateObject("InternetExplorer.Application") 
     With WebBrowser 
      Hwnd = .Hwnd 
      .Navigate cboAddress.Text 
      .Visible = True 
     End With 

     While WebBrowser.Busy 
      DoEvents 
     Wend 
    End Sub 

您可以使用常量= UNAME和const = UPwd为您的登录信息。