Saving a file

[Dan]

I have the following statements:

DataFileName = Application.GetOpenFilename(fileFilter:="Text or ASC Files,
*.txt; *.asc", Title:="Select the Data File")

....code

'Saves The File (As Sheetx) And Leaves It Open
ActiveWorkbook.SaveAs

'Saves File As DataFileName But With The Extension Of the File Opened TXT
Format And Not In Excel Format
ActiveWorkbook.SaveAs (DataFileName)

'Receive Syntax Error
ActiveWorkbook.SaveAs (DataFileName, FileFormat:="Excel (*.xls), *.xls")

What am I missing?

[Dave Peterson]

You have a response at your other post.

Dan wrote:
>
> I have the following statements:
>
> DataFileName = Application.GetOpenFilename(fileFilter:="Text or ASC Files,
> *.txt; *.asc", Title:="Select the Data File")
>
> ...code
>
> 'Saves The File (As Sheetx) And Leaves It Open
> ActiveWorkbook.SaveAs
>
> 'Saves File As DataFileName But With The Extension Of the File Opened TXT
> Format And Not In Excel Format
> ActiveWorkbook.SaveAs (DataFileName)
>
> 'Receive Syntax Error
> ActiveWorkbook.SaveAs (DataFileName, FileFormat:="Excel (*.xls), *.xls")
>
> What am I missing?

--

Dave Peterson