Import all txt files macro
Eva,
This copies the contents of all text files in the root of C to column A of
the active sheet. Change the path to suit your needs
Sub LoopThroughDirectory()
Dim x As Long
Application.DisplayAlerts = False
x = 1
MyPath = "C:\" 'Change to suit
Fnam = Dir(MyPath & "*.txt")
Do While Fnam < ""
Open MyPath & Fnam For Input As #1
Do While Not EOF(1)
Input #1, Line$
ActiveSheet.Cells(x, 1).Value = Line$
x = x + 1
Loop
Close #1
Fnam = Dir()
Loop
Application.DisplayAlerts = True
End Sub
Mike
"Eva" wrote:
Hi
Can you tell me how the macro looks like if I would like to import to Excel
spreadhseet all txt files from specific folder starting row 1?
--
Greatly appreciated
Eva
|