Djblois
02-12-2008, 09:12 AM
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:
Set wbToEmail = ActiveWorkbook
If frmEmailWork.cbSendInOldFormat Then
wbToEmail.SaveAs wbToEmail.Name & ".xls", FileFormat:=xlNormal
Else
wbToEmail.SaveAs wbToEmail.Name
End If
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?
Set wbToEmail = ActiveWorkbook
If frmEmailWork.cbSendInOldFormat Then
wbToEmail.SaveAs wbToEmail.Name & ".xls", FileFormat:=xlNormal
Else
wbToEmail.SaveAs wbToEmail.Name
End If
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?