Solved

[feistdj]

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?

[opus]

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)

[feistdj]

I want the same format but with a different extension.

[opus]

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

Name OldFileName As NewFileName

[feistdj]

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

[opus]

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:

Else
fName = fName

is not neccessary.

[feistdj]

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

Thanks for you patience and help.

[opus]

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

[Mindcrime]

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

Change it back to the original thread title!!

[opus]

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.

[Mindcrime]

I think I was just hoping

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

Annoying don't you think?