Bom dia gente, estou tentando criar o xml abaixo mais da um erro de:
Na linha em negrito:
Object variable Or With block variable not set
Private Sub salvarNovaClick()
'cria um novo elemento e inclui no objeto dom
Dim objEmpresa As IXMLDOMElement
Dim objNewChild As IXMLDOMElement
Set m_objDOMEmpresa = New DOMDocument
'cria um novo elemento Empresa
Set objEmpresa = m_objDOMEmpresa.createElement("Empresa")
m_objDOMEmpresa.documentElement.appendChild objEmpresa
'cria um elmeneto (objEmpresa), e inclui no No Filho(childNodes)
Set objNewChild = m_objDOMEmpresa.createElement("DataHora")
objNewChild.Text = txtdata.text
objEmpresa.appendChild objNewChild
Set objNewChild = m_objDOMEmpresa.createElement("Nome")
objNewChild.Text = txtnome.text
objEmpresa.appendChild objNewChild
Set objNewChild = m_objDOMEmpresa.createElement("Arquivo")
objNewChild.Text = txtArq.text
objEmpresa.appendChild objNewChild
m_objDOMEmpresa.save m_strXmlPath
'webTarget.Refresh
Set objEmpresa = Nothing
Set objNewChild = Nothing
