Solved

I have an Excel addin in VBA that must be written without the common dialog box control. I have a SaveAs dialog box that I call by:

Application.Dialogs(xlDialogSaveAs).Show

I get all of the default Save As Type extensions but must change the Save As Type to a custom extension (.cs2). The filter coding for common dialog box controls can't be used.

Anyone know how to change the filter in the SaveAs dialog box?

Hi,
do you want EXCEL to save your file in another format ( i don'T think you can use any other format than those that are in the list) or do you just want to give your file another extension, without changing the format itself ( do that afterwards, outside the SaveAs)

I want the same format but with a different extension.

In this case you could do a change of the extension afterwards (after SaveAs) as a change of FileName.

VB Code:

Name OldFileName As NewFileName

Thanks, I ended up doing it with a test.

Set NewBook = Application.Workbooks.Add("C:\defproj.cs2")

fName = Application.GetSaveAsFilename

If Right(fName, 4) <> ".cs2" Then
fName = fName & ".cs2"

Else
fName = fName

End If


NewBook.SaveAs FileName:=fName

alright then,

Thanks for putting SOLVED in the original topic, next time don't erase the original topic, just add the SOLVED.

If you want to post code use the VB-Code tags . Before the code put "vbcode" and after the code "/vbcode" both surrounded by "[ ]"

End for the code you posted, the part:

VB Code:

Else
fName = fName

is not neccessary.

Sorry for the untagged code. I am new to forums ( and programming for that matter).

Thanks for you patience and help.

No prob'.
Stick to it, most of the things I learned was thru this Forum!

Very descriptive title when someone needs to search for past threads.

Change it back to the original thread title!!

I cwould say the same, but in this case?
You raised the post (with this topic) to the top again, hoping for a guy, who didn't post anything since 1.apr.03, to change the topic again. I doubt he'll do/read it.

I think I was just hoping :rolleyes:

Well I guess some people '...Just don't get it!' LOL

Annoying don't you think?