I have a macro with this at the end...

Application.Dialogs(xlDialogSaveAs).Show

however, I want the "save as type" at the bottom of the "Save as box" to
default to .txt

Thanks in advance...

On Oct 28, 5:18 pm, deeds wrote:
I have a macro with this at the end...

Application.Dialogs(xlDialogSaveAs).Show

however, I want the "save as type" at the bottom of the "Save as box" to
default to .txt

Thanks in advance...

Look at the Application.GetSaveAsFilename function. You can set
several parameters. The short side is that this only returns the
filename and does not acturally save the file. You would have to use
something like Scripting.TextStream (in Microsoft Scripting Runtime)

Application.Dialogs(xlDialogSaveAs).Show arg2:=xlTextWindows

There are lots of text files:
xltextmac
xltextmsdos
xltextprinter
xltextwindows
xlunicodetext

xlcsv
xlcsvmac
xlcsvmsdos
xlcsvwindows

ps. The parms for that SaveAs dialog a

xlDialogSaveAs document_text, type_num,
prot_pwd, backup, write_res_pwd, read_only_rec

(taken from VBA's help for dialogs)

The constants came from VBA's help for xlfileformat/Microsoft Excel Constants.

deeds wrote:

I have a macro with this at the end...

Application.Dialogs(xlDialogSaveAs).Show

however, I want the "save as type" at the bottom of the "Save as box" to
default to .txt

Thanks in advance...

--

Dave Peterson