Â¥Ö÷

°ßÖñ¾ÈÈËÀ²£¡£¡ СµÜ²Å½Ó´¥XML²»¾Ã£¬Óöµ½Ò»¸öÎÊÌâ Dim xmlDoc As MSXML2.DOMDocument Private Sub Command1_Click() Dim filename As String Dim msg As String Dim retval As Long CommonDialog1.Filter = "XML files | *.xml" CommonDialog1.ShowOpen If CommonDialog1.filename = "" Then Exit Sub xmlDoc.async = False If optWellFormedOnly.Value = True Then    xmlDoc.validateOnParse = False Else    xmlDoc.validateOnParse = True End If xmlDoc.Load CommonDialog1.filename If xmlDoc.parseError.errorCode <> 0 Then    msg = "Error on line " & xmlDoc.parseError.Line & vbCrLf    msg = msg & xmlDoc.parseError.srcText & vbCrLf    msg = msg & xmlDoc.parseError.reason    MsgBox msg    Exit Sub End If If optValidateAlso.Value = True Then    retval = xmlDoc.Validate    If retval <> 0 Then       msg = CommonDialog1.filename & "is well formed." & vbCrLf       msg = msg & "However it contains no DTD or schema reference" _           & vbCrLf       msg = msg & "and so cannot be validated."    Else       msg = CommonDialog1.filename & "is well formed and valid." & _           vbCrLf    End If Else    msg = CommonDialog1.filename & "is well formed." & vbCrLf End If MsgBox msg End Sub Private Sub Command2_Click() Dim msg As String On Error Resume Next Set xmlDoc = New DOMDocument If Err Then    msg = "DOMDocument object could not be created." & vbCrLf    msg = msg & "Program will terminate."    MsgBox msg    Unload Me End If End Sub ÕâÊǸöÑéÖ¤XMLÎĵµÁ¼¹¹ÐÔºÍÓÐЧÐԵijÌÐò£¨ÕÕÊé´òÉÏÈ¥µÄ£© µ«ÔËÐÐʱÌáʾ¡°Object variable or with block variable not set" ΪʲôÄØ¡£¡£¡£¡£ ²»¶®Ñ½¡£¡£¡£¡£    Êղؠ  ·ÖÏí   ¶¥(0)

	µÚ2Â¥

ÔËÐе½ºì×ֵĵط½³öµÄ´í