Code Check

[Katy Jordan]

Hi, i have the following line of code saves file to the current path, i would like to save this to another location H:\Recs\Rec_Stats also i would like the file to save as month before so it should read Rec_Stats Feb-09

<TABLE style="WIDTH: 364pt; BORDER-COLLAPSE: collapse" cellSpacing=0 cellPadding=0 width=485 border=0><COLGROUP><COL style="WIDTH: 364pt; mso-width-source: userset; mso-width-alt: 17737" width=485><TBODY><TR style="HEIGHT: 16.5pt" height=22><TD class=xl66 style="BORDER-RIGHT: #f0f0f0; BORDER-TOP: #f0f0f0; BORDER-LEFT: #f0f0f0; WIDTH: 364pt; BORDER-BOTTOM: #f0f0f0; HEIGHT: 16.5pt; BACKGROUND-COLOR: transparent" width=485 height=22>SaveCopyAs ThisWorkbook.Path & "\Rec_Stats " & Format(Date,"mmmm-yy") & ".xls"


</TD></TR></TBODY></TABLE>

 

[bk]

Assuming what you posted works, I've never done it that way, but this should take care of your Q:

ActiveWorkbook.SaveAs ("H:\Recs\Rec_Stats\Rec_Stats Feb-09.xls")

 

[Katy Jordan]

Assuming what you posted works, I've never done it that way, but this should take care of your Q:

ActiveWorkbook.SaveAs ("H:\Recs\Rec_Stats\Rec_Stats Feb-09.xls")

i need the date part to be generic, i dont want to write Feb in the code, i would like the code to work that out

 

[bk]

Oh, your accent must've thrown me when reading

Well, you can place a variable inside the code I gave; so, something like.....

...I know this works in 3 steps, probably 1 with the effort, but will be safe.

myDate = Format(Date, "mmmm-yy")
myFileName = "H:\Recs\Rec_Stats\Rec_Stats " & myDate & ".xls"
ActiveWorkbook.SaveAs (myFileName)

How's that?

 

[texasalynn]

I did something similiar like this

cdte = WorksheetFunction.Text(Range("a1"), "mmmm-yy")

Workbooks.Open Filename:= _
"C:\MY DOCUMENTS\Unbilled and BIE\" & cdte & ".xls"

 

[Katy Jordan]

Oh, your accent must've thrown me when reading

Well, you can place a variable inside the code I gave; so, something like.....

...I know this works in 3 steps, probably 1 with the effort, but will be safe.

myDate = Format(Date, "mmmm-yy")
myFileName = "H:\Recs\Rec_Stats\Rec_Stats " & myDate & ".xls"
ActiveWorkbook.SaveAs (myFileName)

How's that?

Excellent, that works, thanks BK