Hello --

I want to use GetSaveAsFilename to prompt the user to select a filename (for
use or easy modification) to pass to SaveCopyAs so the the current Workbook
can be backed up.

This code
strFileIn = Application.GetSaveAsFilename( _
InitialFilename:="*.xls" , _
FileFilter:="Excel Files (*.xls), *.xls ") , _
Title:= con_strMsgTitle & " Save Plot and Data")

results in 'Expected: End of Statement"

I found the FileFilter structure in MSDN, and figured out the
InitialFilename and Title structures. They each work alone, but not
together.

Can someone help me by telling me how to fix the code, or how to simply put
the parameter values in the correct order in parentheses.

Thanks for any help.

L Mehl



---
Outgoing mail is certified Virus Free.
Checked by AVG anti-virus system (http://www.grisoft.com).
Version: 6.0.591 / Virus Database: 374 - Release Date: 2/18/2004

L,
I'd suggest you count the barckets.
NickHK

"L Mehl" wrote in message
...
Hello --

I want to use GetSaveAsFilename to prompt the user to select a filename
(for
use or easy modification) to pass to SaveCopyAs so the the current
Workbook
can be backed up.

This code
strFileIn = Application.GetSaveAsFilename( _
InitialFilename:="*.xls" , _
FileFilter:="Excel Files (*.xls), *.xls ") , _
Title:= con_strMsgTitle & " Save Plot and Data")

results in 'Expected: End of Statement"

I found the FileFilter structure in MSDN, and figured out the
InitialFilename and Title structures. They each work alone, but not
together.

Can someone help me by telling me how to fix the code, or how to simply
put
the parameter values in the correct order in parentheses.

Thanks for any help.

L Mehl



---
Outgoing mail is certified Virus Free.
Checked by AVG anti-virus system (http://www.grisoft.com).
Version: 6.0.591 / Virus Database: 374 - Release Date: 2/18/2004

Hi L

Replace
*.xls ")
with
*.xls)"

--
HTH. Best wishes Harald
Followup to newsgroup only please

"L Mehl" skrev i melding
...
Hello --

I want to use GetSaveAsFilename to prompt the user to select a filename
(for
use or easy modification) to pass to SaveCopyAs so the the current
Workbook
can be backed up.

This code
strFileIn = Application.GetSaveAsFilename( _
InitialFilename:="*.xls" , _
FileFilter:="Excel Files (*.xls), *.xls ") , _
Title:= con_strMsgTitle & " Save Plot and Data")

results in 'Expected: End of Statement"

I found the FileFilter structure in MSDN, and figured out the
InitialFilename and Title structures. They each work alone, but not
together.

Can someone help me by telling me how to fix the code, or how to simply
put
the parameter values in the correct order in parentheses.

Thanks for any help.

L Mehl



---
Outgoing mail is certified Virus Free.
Checked by AVG anti-virus system (http://www.grisoft.com).
Version: 6.0.591 / Virus Database: 374 - Release Date: 2/18/2004

Apologies for posting code which had parenthesis errors.

Thanks to Harald, Nick, and MSDN PSS ID Number: 153722,
the structure that works is:
strFileIn = Application.GetSaveAsFilename( _
InitialFilename:="*.xls" , _
FileFilter:="Microsoft Excel Workbook (*.xls), *.xls" , _
Title:= con_strMsgTitle & " Save Plot and Data")

L Mehl


"L Mehl" wrote in message
...
Hello --

I want to use GetSaveAsFilename to prompt the user to select a filename
(for
use or easy modification) to pass to SaveCopyAs so the the current
Workbook
can be backed up.

This code
strFileIn = Application.GetSaveAsFilename( _
InitialFilename:="*.xls" , _
FileFilter:="Excel Files (*.xls), *.xls ") , _
Title:= con_strMsgTitle & " Save Plot and Data")

results in 'Expected: End of Statement"

I found the FileFilter structure in MSDN, and figured out the
InitialFilename and Title structures. They each work alone, but not
together.

Can someone help me by telling me how to fix the code, or how to simply
put
the parameter values in the correct order in parentheses.

Thanks for any help.

L Mehl



---
Outgoing mail is certified Virus Free.
Checked by AVG anti-virus system (http://www.grisoft.com).
Version: 6.0.591 / Virus Database: 374 - Release Date: 2/18/2004




---
Outgoing mail is certified Virus Free.
Checked by AVG anti-virus system (http://www.grisoft.com).
Version: 6.0.591 / Virus Database: 374 - Release Date: 2/17/2004