Læs Tekstfil hente data

Dette kodestykke læser en tekst-fil og henter data ind i regnearket.

Forklaring

Denne korte program uddrag af de lagrede tekst i en foruddefineret tekst fil i foruddefinerede mappe eller bibliotek. Programmet kan ændre til loop gennem mange tekstfiler ved hjælp af "Liste filer i folderen" kode, dette kræver en ændring af dig selv.

Hele VBA Excel program kan downloades nederst på denne side, god fornøjelse!

Kode

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

»Close s tekstfiler, der kan åbnes
Close
»Antallet af de næste fri tekst fil
ReadTextFileSource = FreeFile
Open ReadTextFile For Input As # ReadTextFileSource
ReadTextFile2 = Input $ (LOF (1), 1)
Close
ReadTextFileFetchDataMain = ReadTextFile2

End Function

Download excel filen!Read_Text_File_Fetch_Data.xls