Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
For loop for each file in a folder?
I've got a macro that imports a .txt file and moves the data around, an copies some things here and there... I need to run this macro on abou 40 different .txt files in a folder. Is there a way to write For-loop that will run the macro on EACH text file in a give directory? Thanks, Kiera -- Kieran102 ----------------------------------------------------------------------- Kieran1028's Profile: http://www.excelforum.com/member.php...fo&userid=1567 View this thread: http://www.excelforum.com/showthread.php?threadid=27701 |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
For loop for each file in a folder?
sFile = dir("C:\Myfolder\*.txt")
do while sFile < "" bk =Workbooks.Open("C:\MyFolder\" & sFile) . . . bk.Close SaveChanges:=false sFile = Dir() Loop If you are going to save the changed files, you might want to use the above construct to build an array of file names, then process that array rather than process the files immediately. There is a KB article that says that changing the directory in the middle of a DIR loop can cause problems although I have never encountered any. -- Regards, Tom Ogilvy "Kieran1028" wrote in message ... I've got a macro that imports a .txt file and moves the data around, and copies some things here and there... I need to run this macro on about 40 different .txt files in a folder. Is there a way to write a For-loop that will run the macro on EACH text file in a given directory? Thanks, Kieran -- Kieran1028 ------------------------------------------------------------------------ Kieran1028's Profile: http://www.excelforum.com/member.php...o&userid=15678 View this thread: http://www.excelforum.com/showthread...hreadid=277010 |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Loop through folder of workbooks and add rows | Excel Worksheet Functions | |||
Need code to save file to new folder, erase from old folder | Excel Discussion (Misc queries) | |||
Loop thru All Files in a Folder | Excel Programming | |||
Loop through all files in a folder | Excel Programming | |||
Loop through workbooks in a folder and return the value of cell M43 | Excel Programming |