Question

此代码只是打开IE浏览器，读取您所在的页面，当您导航到页面copal输入时，然后导航到页面数据服务，它将按两次并刷新页面。我从桌面上运行得很好，但现在当我从快捷方式运行它时，有时会出现错误，其中一行IE.Documents.Title＆＃34;对象不支持此属性或。方法＆＃34;

我是从VBS文件运行的，但我也使用Excel VBA运行代码。

Set objExplorer = WScript.CreateObject("InternetExplorer.Application", "IE_")
Set objExplorer = WScript.CreateObject("InternetExplorer.Application", "IE_")

Set IE = CreateObject("InternetExplorer.Application")

IE.Navigate "WEBSITE"
IE.Visible = True
WScript.Sleep 2000
'On Error Resume Next
While IE.ReadyState <> 5 'I use 5 because I am pretty sure it doesn't exist.
  'DoEvents

  If Err.Number <> 0 Then WScript.Quit
    'WScript.Sleep 20

    If IE.LocationURL = "PAGE ON WEBSITE" Then
      IE.Goback
      IE.Goback
      IE.Refresh

      'Application.Wait (Now + TimeValue("00:00:03"))
    End If

    If IE.Document.Title = "Copal Inputs" Then
      'This is sometimes supported, but sometimes not
      x = IE.Document.Title

      Cis = 1
      'MsgBox "DS"
    End If
    If IE.Document.Title = "Data Services" Then
      'This is sometimes supported then sometimes not
      If Cis = 1 Then
        IE.Goback
        IE.Goback

InternetExplorer.Application有时仅支持Document.Title

0 个答案: