Sub CreaGPX() Dim strRutaRecursos As String Dim fso As Scripting.FileSystemObject Dim strFicheroGPX As String Dim flujoTexto As Scripting.TextStream Dim intLinea As Integer Dim intNumLineas As Integer Dim f As Worksheet Call Ruta strRutaRecursos = strRuta & "\Documentos XML\" strFicheroGPX = Application.InputBox("Introduzca el nombre del fichero GPX _ que va a crear" & vbCrLf & "SIN la extensión .gpx", 2) Set f = Worksheets("Datos GPX") Set fso = New FileSystemObject Set flujoTexto = fso.OpenTextFile(Filename:= strRutaRecursos & _ strFicheroGPX & ".gpx", IOMode:=ForWriting, Create:=True) With flujoTexto intNumLineas = Worksheets("Datos GPX").Range("A1").CurrentRegion.Rows.Count .WriteLine "<?xml version=""1.0"" ...
Suscripción
acceso ilimitado a todos los libros de ENI sin compromiso de permanencia
libro impreso o digital online