Sub SeleccionaAltitud() Dim dblAltitudMini As Double Dim dblAltitud As Double Dim punto As MSXML2.IXMLDOMElement Dim tracksegmento As MSXML2.IXMLDOMElement Dim blnOK As Boolean Dim objetoXML As MSXML2.DOMDocument60 Dim strRutaRecursos As String Dim intNumPuntos As Integer Dim intNumPunto As Integer Dim intL As Integer Call Ruta strRutaRecursos = strRuta & _ "\Documentos XML\" dblAltitudMini = Application.InputBox("Elija la altitud mínima", 1) Set objetoXML = New MSXML2.DOMDocument60 blnOK = objetoXML.Load(strRutaRecursos & "RANDO.gpx") ...
Suscripción
acceso ilimitado a todos los libros de ENI sin compromiso de permanencia
libro impreso o digital online