新規にブックを作成する時に、ファイル名とファイルの種類を指定するマクロです。
Application.GetSaveAsFilename.メソッドを使うと、「名前をつけて保存」のダイアログが表示されるので、保存作、ファイル名、ファイルの種類を指定することができます。
目次
「名前をつけて保存」のダイアログボックスを表示
ファイル名を付けるために、「名前をつけて保存」のダイアログボックスを表示します。
■ コード内を「Wクリック」で選択できます。
Sub サンプル3190() <pre><code>Dim WB As Workbook Dim FName As Variant MsgBox "新規のブックを作成します。" FName = Application.GetSaveAsFilename(InitialFileName:="Book", _ fileFilter:="Excelファイル(*.xlsx),*.txt") If FName &lt;&gt; False Then Set WB = Workbooks.Add WB.SaveAs Filename:=FName, CreateBackup:=True End If</code></pre> End Sub
Dim WB As Workbook
’ ワークブックを変数WBとして宣言します。
Dim FName As Variant
’ FNameをバリアント型で宣言します。
FName = Application.GetSaveAsFilename(InitialFileName:=”Book”, _
fileFilter:=”Excelファイル(*.xlsx),*.txt”)
’ 新規ブックの名前を入力します。保存されるファイルは「Book.xlsx」をデフォルト名に設定しています。
If FName <> False Then
’ ファイル名が入力されている場合は次へ行きます。Set WB = Workbooks.Add
’ 新規ブックを作成します。
WB.SaveAs Filename:=FName, CreateBackup:=True
’ 新規ブックの名前を指定して、バックアップファイルを指定します。
■ マクロの実行結果
メッセージボックスの表示

保存先、ファイル名の指定

「保存」クリックで新規ブックの作成。

関連記事
- ブックの表示位置を指定する
- エクセルウィンドウのサイズを最大化、標準、最小化する
- ブックの大きさを指定する
- ワークシートの非表示と表示のマクロ
- 新しいブックを作成するマクロ
- 指定したフォルダのブックを開くマクロ
- ブックを保存してから閉じるマクロ
- ブックを上書き保存するマクロ
- ブックに変更があった時だけ上書き保存するマクロ
- すべてのブックを保存して Excel を終了するマクロ
- 新規ブックを作成時にファイル形式を指定するマクロ
- アクティブウィンドウをコピーして開くマクロ
- ウィンドウ枠を固定するマクロ
- ブック名、パスを取得するマクロ
- 開いているブックの数を表示するマクロ
- 新規ブックのシート数を設定するマクロ
以上で「新規ブックを作成時にファイル形式を指定するマクロ」の説明を終わります。