R
rroach
I'm new at this. With much help from this forum I've almost finished
major timesaving macro for our lab. But stuck on following problem.
load a list of files that are in a worksheet and do a for-next loop o
them,. Before closing each file I want to save it as an XLS file AND a
a text file. I don't understand VBA syntax well enough to know how t
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 I
wbList.Sheets(1).Range("A1").CurrentRegion.Columns(1).Cells
Set wbDest = Workbooks.Open(rcell.Value)
NB: IF I PUT IN \"MSGBOX RCELL\" HERE IT SHOWS THE CORRECT FILENAM
do some stuff
wbDest.Save
WBDEST.SAVEAS FILENAME:=RCELL, FILEFORMAT:=XLTEXT, CREATEBACKUP:=FALSE
NOTE: SUB'ING RCELL.VALUE FOR RCELL ABOVE DOESN'T WORK EITHE
wbDest.Close savechanges:=False
Next
End Sub
What do I need to change to send the right filename to the SaveA
statement?
TIA,
Ro
major timesaving macro for our lab. But stuck on following problem.
load a list of files that are in a worksheet and do a for-next loop o
them,. Before closing each file I want to save it as an XLS file AND a
a text file. I don't understand VBA syntax well enough to know how t
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 I
wbList.Sheets(1).Range("A1").CurrentRegion.Columns(1).Cells
Set wbDest = Workbooks.Open(rcell.Value)
NB: IF I PUT IN \"MSGBOX RCELL\" HERE IT SHOWS THE CORRECT FILENAM
do some stuff
wbDest.Save
WBDEST.SAVEAS FILENAME:=RCELL, FILEFORMAT:=XLTEXT, CREATEBACKUP:=FALSE
NOTE: SUB'ING RCELL.VALUE FOR RCELL ABOVE DOESN'T WORK EITHE
wbDest.Close savechanges:=False
Next
End Sub
What do I need to change to send the right filename to the SaveA
statement?
TIA,
Ro