Question

您好我使用带按钮的uerform和TextBox1,2,3。根据TextBox1（ISBN代码）中的值，我想找到标题和作者，并将值放到TextBox2和TextBox3。但是它给了我一个错误消息对象变量或者没有设置块变量并且高亮了这些行： TextBox3.Value = oTitle.Text TextBox2.Text = oAuthor.Text 谢谢你的帮助

Private Sub CommandButton2_Click()
 Dim SourceWindow As Window
 Dim xmlDoc As DOMDocument60
 Dim xWords As IXMLDOMNode
 Dim xType As IXMLDOMNode
 Dim xword As IXMLDOMNodeList
 Dim xWordChild As IXMLDOMNode
 Dim oAttributes As IXMLDOMNamedNodeMap
 Dim oTitle As IXMLDOMNode
 Dim oAuthor As IXMLDOMNode
 Set xmlDoc = New DOMDocument60
 Set xWords = New DOMDocument60
 xmlDoc.async = False
 xmlDoc.validateOnParse = False

 r = CStr(TextBox1.Value) 'CStr(ActiveCell.Value)
'Application.DisplayAlerts = False
 xmlDoc.Load ("http://xisbn.worldcat.org/webservices/xid/isbn/" _
              + r + "?method=getMetadata&format=xml&fl=author,title")

 Set xWords = xmlDoc

     For Each xType In xWords.ChildNodes
         Set xword = xType.ChildNodes
         For Each xWordChild In xword
             Set oAttributes = xWordChild.Attributes
             On Error Resume Next
             Set oTitle = oAttributes.getNamedItem("title")
             Set oAuthor = oAttributes.getNamedItem("author")
             On Error GoTo 0
         Next xWordChild
     Next xType

  TextBox3.Value = oTitle.Text
  TextBox2.Text = oAuthor.Text
End Sub

当我调用宏

0 个答案: