Leer datos de un archivo de texto usando Excel VBA

Buenas noches, mi nombre es Miguel y durante el dia de hoy os traigo un nuevo post.

A continuación veremos un programa en Excel VBA ese lee datos de un archivo de texto. Este archivo contiene algunas coordenadas geográficas que queremos importar a Excel.

Localización:

Leer datos de un archivo de texto usando Excel VBA

1. Primero, descargue el archivo de texto y agréguelo a "C: test "

Coloque un botón de comando en su hoja de trabajo y agregue las siguientes líneas de código:

2. Declaramos cuatro variables. myFile de tipo String, texto de tipo String, línea de texto String, posLat de tipo Integer y posLong de tipo Integer.

Oscuro mi archivo Cómo La cadena, texto Cómo La cadena, línea de texto Cómo La cadena, posLat Cómo Entero, posLong Cómo Entero

3. Necesitamos inicializar la variable myFile con la ruta completa y el nombre del archivo.

myFile = "C: prueba coordenadas-geográficas.txt"

o

utilice el método GetOpenFilename del objeto Aplicación para mostrar el cuadro de diálogo Abrir estándar y seleccione el archivo (sin abrirlo realmente).

myFile = Application.GetOpenFilename ()

Nota: La parte vacía entre paréntesis significa que no le damos nada a Excel VBA como entrada. Coloque el cursor en GetOpenFilename en el Editor de Visual Basic y haga clic en F1 para obtener ayuda sobre los argumentos.

4. Agregue la siguiente línea de código:

Abierto mi archivo Para Entrada Cómo # 1

Nota: esta declaración le permite leer el archivo. Podemos referirnos al archivo como # 1 para el resto de nuestro código.

5. Agregue las siguientes líneas de código:

Hacer Ata EOF (1)
Línea Entrada # 1, línea de texto
texto = texto y línea de texto
Lazo

Nota: Hasta el final del archivo (EOF), Excel VBA lee una sola línea del archivo y la firma en la línea de texto. Usamos el operador & para concatenar (unir) todas las líneas individuales y almacenarlas en el texto variable.

6. Cierre el archivo.

Cerrar # 1

7. A continuación, buscamos la posición de las palabras latitud y longitud en el texto variable. Usamos el Instr.

posLat = InStr (texto, "latitud")
posLong = InStr (texto, "longitud")

8. Usamos estas posiciones y la función Mid para extraer las coordenadas del texto variable y escribir las coordenadas en la celda A1 y la celda A2.

Rango ("A1"). Valor = promedio (texto, postLat + 10, 5)
Rango ("A2"). Valor = promedio (texto, posLong + 11, 5)

9. Pruebe el programa.

Resultado:

Leer el resultado de datos del archivo de texto

Deja una respuesta

Tu dirección de correo electrónico no será publicada. Los campos obligatorios están marcados con *

Subir

Esta página utiliza Cookies. Más info