Índice

Solución 18.6 Leer directamente un fichero XML

Sub NomRando()  
    Dim strNomRando As String  
    Dim objetoXML As MSXML2.DOMDocument60  
    Dim strRutaRecursos As String  
    Dim nombreNodo As MSXML2.IXMLDOMElement  
    Dim blnOK As Boolean  
    Call ...