Save As Location

[Djblois]

I am creating a way for my users to send a 2007 file format to people and it will send it as a 2003 format. I am doing this because some people here are not that good with computers so I am making it as easy as possible. Here is the code I am using:

[VBA]Set wbToEmail = ActiveWorkbook
If frmEmailWork.cbSendInOldFormat Then
wbToEmail.SaveAs wbToEmail.Name & ".xls", FileFormat:=xlNormal
Else
wbToEmail.SaveAs wbToEmail.Name
End If[/VBA]

The only trouble I am having is I can't figure out how to set the saveAs location and how do I remove the .xlsx from the file name?

[Bob Phillips]

[vba]

Set wbToEmail = ActiveWorkbook
If frmEmailWork.cbSendInOldFormat Then
wbToEmail.SaveAs "C:\path\subpath\" & wbToEmail.Name & ".xls", FileFormat:=xlExcel8
Else
wbToEmail.Save
End If
[/vba]

[Djblois]

Thanks Xld,

That works perfectly but is there a way to remove .xlsx or .xlsm before it saves right now I am getting a file name like this "SalesReport.xlsx.xls"

Daniel

[Bob Phillips]

Really? So it doesn't work perfectly

How about this

[vba]

Set wbToEmail = ActiveWorkbook
If frmEmailWork.cbSendInOldFormat Then
Filename = wbToEmail.Name
Pos = InStrRev(Filename, ".")
If Pos > 0 Then
Filename = Left$(Filename, Pos - 1)
End If
wbToEmail.SaveAs "C:\path\subpath\" & Filename & ".xls", FileFormat:=xlExcel8
Else
wbToEmail.Save
End If
[/vba]