Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Loop through range and open files
Hello
I have a list of *.txt files in A1:F1. I have already written code to define the path where the file is located (myPath). I need to open each file and perform some formatting and then copy to another file. How do I loop through the files using the content of the range? Thanks! |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
Loop through range and open files
Sandy,
Sub TryNow() Dim myCell As Range Dim myPath As String myPath = "C:\Excel\" For Each myCell In Range("A1:F1") Workbooks.OpenText Filename:=myPath & myCell.Value 'Perform formatting 'Copy to other file 'If you want to save the file as a workbook, uncomment this 'ActiveWorkbook.SaveAs myPath & "NewFileName.xls", xlDefault ActiveWorkbook.Close False Next myCell End Sub HTH, Bernie MS Excel MVP "Sandy" wrote in message ... Hello I have a list of *.txt files in A1:F1. I have already written code to define the path where the file is located (myPath). I need to open each file and perform some formatting and then copy to another file. How do I loop through the files using the content of the range? Thanks! |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
Loop through range and open files
dim myCell as range
dim myRng as range set myrng = worksheets("sheet999").range("a1:F1") for each mycell in myrng.cells 'do your work msgbox mycell.value next mycell Sandy wrote: Hello I have a list of *.txt files in A1:F1. I have already written code to define the path where the file is located (myPath). I need to open each file and perform some formatting and then copy to another file. How do I loop through the files using the content of the range? Thanks! -- Dave Peterson |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
open files in loop with date order | Excel Discussion (Misc queries) | |||
OPen different files in a loop | Excel Programming | |||
Loop through ".DAT" files, open run code, close next | Excel Programming | |||
Open only existing Excel Files in a given Range | Excel Programming | |||
Open only existing Excel Files in a given Range | Excel Programming |