Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
get file name for FileSaveAs
I'm new at this. With much help from this forum I've almost finished a major timesaving macro for our lab. But stuck on following problem. I load a list of files that are in a worksheet and do a for-next loop on them,. Before closing each file I want to save it as an XLS file AND as a text file. I don't understand VBA syntax well enough to know how to get the filename for the filesave command. My code now: Sub File_Cut_Metrics() Dim wbList As Workbook Dim wbDest As Workbook Dim rcell As Range Set wbList = Workbooks.Open("G:\newlist2") For Each rcell In wbList.Sheets(1).Range("A1").CurrentRegion.Columns (1).Cells Set wbDest = Workbooks.Open(rcell.Value) do some stuff wbDest.Save WBDEST.SAVEAS FILENAME:=RCELL, FILEFORMAT:=XLTEXT, CREATEBACKUP:=FALSE wbDest.Close savechanges:=False Next End Sub What do I need to change to send the right filename to the SaveAs statement? TIA, Rob -- rroach ------------------------------------------------------------------------ rroach's Profile: http://www.excelforum.com/member.php...o&userid=21093 View this thread: http://www.excelforum.com/showthread...hreadid=387193 |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Excel FileSaveAs dialog freezes when used via automation from Access | Excel Programming | |||
Auto filesaveas vba code | Excel Programming | |||
i received a file that reads powerpoint document file file exten. | Excel Discussion (Misc queries) | |||
If user says "No" to FileSaveAs Overwrite? | Excel Programming | |||
Forcing a FileSaveAs | Excel Programming |