Manipulating XML with VBA

[Paro]

I'm using Microsoft Visual Basic 6.3

I'm not sure if this is the right place to ask this question, but here it goes.

I'm going to make a small Word application which can manipulate a XML file


Private Sub ManipulateXLM()

Dim doc As MSXML2.DOMDocument
doc.Load ("C:\Documents and Settings\z3xld\Desktop\2Usecases.xml")

End Sub


It says:

runtime error '91':
Object variable or With block variable not set


Can anyone see what might be the problem?

[dglienna]

You need to SET a reference to MSXML first. Here are some VB6 samples:

Option Explicit
' These are both examples of Late Binding

Public Sub RunAccessMacro(strDB As String, strMacro As String)
'================================================================
'for late binding declare it As Object and use CreateObject() function
Dim AccessDB As Object
Set AccessDB = CreateObject("Access.Application")

With AccessDB
.OpenCurrentDatabase strDB
.DoCmd.RunMacro strMacro, 1
'.Visible = True 'you decide
.CloseCurrentDatabase
End With
Set AccessDB = Nothing

End Sub

Public Sub ExcelMacro()
Dim excl As Object
Dim wrbk As Object

Set excl = CreateObject("Excel.Application")
excl.DisplayAlerts = False
Set wrbk = excl.Workbooks.Open("myfile", , True, , "mypassword")
excl.Run "MacroName", "arg1", "arg2"
End Sub



It should work in VBA, but you might have to use VARIANT instead of OBJECT.

[Paro]

Thanks, but could you maybe edit my example? I haven't really coded VBA before, so I'm not used to the syntax.

is it something like this?


Private Sub ManipulateXLM()

Dim doc As MSXML2.DOMDocument
Set doc = Load("C:\Documents and Settings\z3xld\Desktop\2Usecases.xml")

With doc
//Do stuff
End With

End Sub


It won't work though :(

[Paro]

Oh got it now I think :) Thanks a lot


Private Sub ManipulateXLM()

Dim doc As New MSXML2.DOMDocument
doc.Load("C:\Documents and Settings\z3xld\Desktop\2Usecases.xml")

With doc
//Do stuff
End With

End Sub


Or


Private Sub ManipulateXLM()

Dim doc As MSXML2.DOMDocument
Set doc = new MSXML2.DOMDocument
doc.Load("C:\Documents and Settings\z3xld\Desktop\2Usecases.xml")

With doc
//Do stuff
End With

End Sub