Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Repeat importing text
Hi, all,
Posts following Clayton's question regarding how to import text in VBA are helpful but the code can only import one text file each time. I have a folder which contains a number of log files which have uniform format. The number of files vary from time to time. I want to import all of them in XL. Can anybody give me a sample code to determine the number of file that meets its importing critera in a folder and load them into one sheet of XL? Or give me hint where to go? Regards, Huyeote |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
Repeat importing text
Huyeote
The code below should give you a start on how to identify the files which match your criteria. Sub bbb() ChDir "c:\temp" With Application.FileSearch .FileName = "*.txt" If .Execute() 0 Then For i = 1 To .FoundFiles.Count MsgBox .FoundFiles(i) Next i End If End With End Sub The line MsgBox .foundfiles(i) can be modified to input the code you have about opening a text file. If the files area all standard size, then you can select the entire file, copy and then paste it to the output file. You can then find the next blank cell in the output file (something like range("a65536").end(xlup).offset (1,0).select will take you there). You can then close the opened text file, move to the next one and repeat. HTH Tony -----Original Message----- Hi, all, Posts following Clayton's question regarding how to import text in VBA are helpful but the code can only import one text file each time. I have a folder which contains a number of log files which have uniform format. The number of files vary from time to time. I want to import all of them in XL. Can anybody give me a sample code to determine the number of file that meets its importing critera in a folder and load them into one sheet of XL? Or give me hint where to go? Regards, Huyeote . |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Importing text--cell text limit? | Excel Discussion (Misc queries) | |||
Importing CSV file (saved as Text) into XL as Text -- over 60 colu | Excel Discussion (Misc queries) | |||
Repeat Text | New Users to Excel | |||
how to repeat text on sheets in excel | Excel Worksheet Functions | |||
Repeat text | Excel Discussion (Misc queries) |