VBA 別名で保存する際のarg引数

質問

WINは7、Excelは2013を使用しています。
VBAで別名で保存する際、
Application.Dialogs(xlDialogSaveAs).Show arg1:=(shn & "_集計"), arg2:=1
とすると、ファイルの種類のところで、Excel 97-2003ブック　が選ばれるのですが、
ここを　Excel ブック　を選ぶ様に設定したいと思っています。
しかし、arg2:=　のところの入れる数字が分かりません。
申し訳ありませんが、ご教示下さい。

もし一覧が載っているサイトをご存知でしたら、教えて下さると大変ありがたいです。

よろしくお願い致します。

回答No.2

f272 · ベストアンサー

同じ環境で試してみた。これ以外はエラーになる。
1 SYLK(*.slk)
2 SYLK(*.slk)
3 テキスト(タブ区切り)(*.txt)
6 CSV(カンマ区切り)(*.csv)
9 DIF(*.dif)
10 SYLK(*.slk)
12 Excelブック(*.xlsx)
17 Excel97-2003テンプレート(*.xlt)
18 Excel97-2003ブック(*.xls)
36 テキスト(スペース区切り)(*.prn)
39 Microsoft Excel 5.0/95ブック(*.xls)
42 Unicodeテキスト(*.txt)
44 Webページ(*.htm,*.html)
45 単一ファイルWebページ(*.mht,*.mhtml)
46 XMLスプレッドシート2003(*.xml)
49 XMLデータ(*.xml)
50 Excelバイナリブック(*.xlsb)
51 Excelブック(*.xlsx)
52 Excelマクロ有効ブック(*.xlsm)
53 Excelマクロ有効テンプレート(*.xltm)
54 Excelテンプレート(*.xltx)
55 Excelアドイン(*.xlam)
56 Excel97-2003ブック(*.xls)
57 PDF(*.pdf)
58 XPSドキュメント(*.xps)
60 OpenDocumentスプレッドシート(*.ods)
61 StrictOpenXMLスプレッドシート(*.xlsx)

お礼

f272様

ご回答いただきありがとうございます。
そして、こんなに試して記載頂き、
本当に有難く勉強になります。

12で設定したら、希望通りになりました。

回答No.1

chie65536（@chie65535）

＞もし一覧が載っているサイトをご存知でしたら、教えて下さると大変ありがたいです。
https://msdn.microsoft.com/ja-jp/vba/excel-vba/articles/xlfileformat-enumeration-excel?f=255&MSPPError=-2147217396

VBAのエディタで

Application.Dialogs(xlDialogSaveAs).Show arg1:=(shn & "_集計"), arg2:=xlFileFormat.xlExcel

まで入力して、Ctrlキーを押しながらスペースキーを押してみて下さい。

そうすると、以下の添付画像のように候補が表示されるので、候補の中から該当する値を選んで下さい。

お礼

chie65535様

ご回答いただきありがとうございます。
URLもありがとうございます。
「Ctrlキーを押しながらスペースキーを押す」は知らなかったので、
これから使っていきたいと思います。