| Home |
| Search |
| Today's Posts |
|
#4
Posted to microsoft.public.excel.misc
|
|||
|
|||
Return First Line from a group of files
Thanks... worked like a charm.
On Dec 6, 5:19*pm, Joel wrote: The code is looking at all *.txt files in ther directory FOLDER. *Change Folder as required. Sub GetFirstLine() Folder = "C:\temp\" Const ForReading = 1, ForWriting = 2, ForAppending = 3 Const TristateUseDefault = -2, TristateTrue = -1, TristateFalse = 0 Set fsread = CreateObject("Scripting.FileSystemObject") FName = Dir(Folder & "*.txt") RowCount = 1 Do While FName < "" * *Set fread = fsread.GetFile(Folder & FName) * *Set tsread = fread.OpenAsTextStream(ForReading, TristateUseDefault) * *InputLine = tsread.ReadLine * *Range("A" & RowCount) = FName * *Range("B" & RowCount) = InputLine * *tsread.Close * *FName = Dir() * *RowCount = RowCount + 1 Loop End Sub "willwonka" wrote: I have a folder with about 150textfiles. *I would like a macro that would return thefirstlineof each of those files into a spreadsheet. The files do share a comman name with a sequence number at the end. For example, thefirstfilename would be: 210SHyyyy.mm.ddx.txt where x starts at 0 and goes to 150 Is this possible?- Hide quotedtext- - Show quotedtext- |
| Thread Tools | Search this Thread |
| Display Modes | |
|
|
Similar Threads
|
||||
| Thread | Forum | |||
| how to put a line between each group? | Excel Discussion (Misc queries) | |||
| TWO FILES OPEN AT SAME TIME XLS:1 AND XLS:2 GROUP??? | Excel Discussion (Misc queries) | |||
| Pivot tables - Group Label on each line | Excel Discussion (Misc queries) | |||
| Formula to return a value if any numbers in a group meet a criteri | Excel Worksheet Functions | |||
| Converting a group of lines into one line without merging | Excel Discussion (Misc queries) | |||
![willwonka[_2_] is offline](https://www.excelbanter.com/images/SultanThemeVB3R/statusicon/user_offline.gif)
Threaded Mode
