保存ダイアログのファイルの種類を限定したい

Excel 2003を使用しております。

VBAで以下のように保存ダイアログを表示させたときの
「ファイルの種類」をxlsだけにしたいのですが
どうすればいいのでしょうか？

Application.Dialogs(xlDialogSaveAs).Show

No.3 ベストアンサー 回答者： deecyan 回答日時： 2007/09/20 23:28

No2です　ごめんなさい

こっちが正解です

Sub test1()
xlFName = Application.GetSaveAsFilename(, "Excel (*.xls), *.xls")
If xlFName <> False Then
Call ActiveWorkbook.SaveAs(xlFName)
End If
End Sub

No.4 回答者： Wendy02 回答日時： 2007/09/21 00:02

こんばんは。

>「ファイルの種類」をxlsだけにしたいのですが

Application.Dialogs(xlDialogSaveAs).Show ,1
しかし、選択肢は、残っています。


通常は、このようなコードにして行います。


------------------------------
Dim Fname As Variant

Fname = Application.GetSaveAsFilename(ActiveWorkbook.Name, "Microsoft Office Excel ブック(*.xls), *.xls")
If VarType(Fname) = vbBoolean Or Fname = "" Then Exit Sub
ActiveWorkbook.SaveAs Fname
---------------------------------

No.2 回答者： deecyan 回答日時： 2007/09/20 23:25

ダイアログより　GetSaveAsFilename　のほうがいろいろ出来て

使いやすいと思います。

例を書きますね
Sub test1()
xlFName = Application.GetSaveAsFilename(, "Excel (*.xls), *.xls")
If xlFName <> False Then
Call Workbook.SaveAs(xlFName)
End If
End Sub

No.1 回答者： marbin 回答日時： 2007/09/20 20:07

保存先はユーザーに選択させますか？

固定ですか？

固定でしたらInputBoxやテキストボックスなどで
名前を入力させ、入力した名前に".xls"を付け加えて
保存します。

保存先が固定で無いのでしたら、
CreateObject("Shell.Application").BrowseForFolder
などで保存先を選択させ、
その次に名前を入力させる。

としてはいかがでしょう？