GetSaveAsFilename not working in Excel 2003

M

Mayur Patel

I am having trouble with a macro that worked in Excel 2000 but will not work
in Excel 2003. In 2000, this macro saves just the data portion but in 2003
it loops endlessly. I also have trouble with a few more macros. Is there a
place where I can go to find variances between Excel 2000 VBA and 2003?

Do
answer = Application.GetSaveAsFilename(InitialFilename:="InitFile",
FileFilter:="Text Files (*.txt), *.txt", Title:="SAP Upload File Name")
Loop Until answer <> False
Worksheets("sheet1").SaveAs filename:=answer
 
R

Ron de Bruin

Hi

Is the complete code ?
Do you want to save the sheet as a txt file ?

Try this

Sub test()
Dim wb As Workbook
Do
answer = Application.GetSaveAsFilename(InitialFileName:="InitFile", _
FileFilter:="Text Files (*.txt), *.txt", Title:="SAP Upload File Name")
Loop Until answer <> False
Worksheets("sheet1").Copy
Set wb = ActiveWorkbook
ActiveWorkbook.SaveAs Filename:=answer, FileFormat:=xlText
wb.Close False
End Sub
 
M

Mayur Patel

This is the complete code. My problem isn't with the SaveAs, it is with the
Application.GetSaveAsFilename function.
 
M

Mayur Patel

Since it worked for you, I have to assume that the problem is with our
company's installation of Excel 2003. I wasn't even getting to
"Worksheets("sheet1").SaveAs filename:=answer".

By the way, to answer your question, I was trying to save the sheet with the
given name as a text file (tab delimited).
 
R

Ron de Bruin

By the way, to answer your question, I was trying to save the sheet with the
given name as a text file (tab delimited).
Click to expand...

Use my first example then that copy the sheet into a new workbook and save it
 
R

Ron de Bruin

Change
ActiveWorkbook.SaveAs Filename:=answer, FileFormat:=xlText

to
wb.SaveAs Filename:=answer, FileFormat:=xlText
 
Top