Leer archivo de texto obtener datos

Este fragmento de código lee un archivo de texto y recupera los datos en la hoja de cálculo.

Explicación

Este programa de corta extrae el texto almacenado en un archivo de texto predefinidos en la carpeta o directorio predefinido. El programa se puede modificar para recorrer muchos archivos de texto mediante el uso de los archivos de la lista "en el directorio" de código, esto requiere modificación introducida por usted mismo.

Todo el programa de VBA Excel está disponible para su descarga en la parte inferior de esta página, diviértete!

Código

Public Sub ReadTextFileFetchData()

Dim NameOfFile As String
Dim PlaceOfFile As String
Dim Filelocation As String

NameOfFile = Range("c6").Value
PlaceOfFile = Range("c5").Value
Filelocation = PlaceOfFile + "\" + NameOfFile
sText = ReadTextFileFetchDataMain(Filelocation)
Range("c10").Value = sText

End Sub


Function ReadTextFileFetchDataMain(ReadTextFile As String) As String
Dim ReadTextFileSource As Integer
Dim ReadTextFile2 As String

'Closes text files that might be opened
Close
'The number of the next free text file
ReadTextFileSource = FreeFile
Open ReadTextFile For Input As #ReadTextFileSource
ReadTextFile2 = Input$(LOF(1), 1)
Close
ReadTextFileFetchDataMain = ReadTextFile2

End Function

Descargar archivo de Excel!Read_Text_File_Fetch_Data.xls