Läs textfil hämta data

Detta kodsträngen läser en textfil och hämtar data i kalkylbladet.

Förklaring

Denna korta programmet utdrag texten lagras i en fördefinierad textfil i fördefinierade mappar eller katalog. Programmet kan ändra till en slinga genom många textfiler med hjälp av "Lista filer i katalogen" kod, detta kräver modifiering av dig själv.

Hela VBA Excel-programmet finns att ladda ner längst ner på denna sida, njut!

Kod

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 textfiler som kan öppnas
Close
"Antalet nästa fri text fil
ReadTextFileSource = FreeFile
Open ReadTextFile For Input As # ReadTextFileSource
ReadTextFile2 = Input $ (LOF (1), 1)
Close
ReadTextFileFetchDataMain = ReadTextFile2

End Function

Ladda ner Excel-fil!Read_Text_File_Fetch_Data.xls