Question

我有一个VBA代码，允许我在HTML对象（如输入框）中读取/放置字符串。这是代码示例：

Sub ReadCheck() 

Dim objlement As Object
Dim i As Integer
Dim isNothing As Boolean

'
Dim shellWins As ShellWindows
Dim ie As InternetExplorer
'Set shellWins = New ShellWindows

Set shellWins = New ShellWindows
i = shellWins.Count

'On Error Resume Next
For i = 0 To i - 1
    If shellWins.Item(i).Parent = "Internet Explorer" Then
        If shellWins.Item(i).Document.URL = "https://intservices.mybebpage" Then
            Set ie = shellWins.Item(i)
            Exit For
        End If
    End If
Next i
On Error GoTo 0


isNothing = ie Is Nothing
Debug.Print Format(Now, "HH:MM:SS") & " IE is nothing: " & isNothing
If isNothing Then Exit Sub



'combo box
Set objlement = ie.Document.getelementsbyname("txtboxx")
objlement (0).Value = "Some text to place"


End Sub

由于我的测试，此代码在99％的情况下都能正常工作，但有时会在最后一行返回错误91（对象变量或使用块变量未设置）。

我很确定，我可以获得正确的对象以获取对象，但看起来它没有 .Value 属性。这很奇怪，因为我知道这段代码有效。在我看来，最可能的原因是我应该使用一些不同于.Value的属性。你有什么意见吗？

通过VBA代码导航IE对象

0 个答案: