即効テクニック |
次の使用例は、ファイルに名前を付けて保存するときに表示されるダイアログボックスで、ファイルの種類をテキストファイルに限定して表示します。 ファイル名を選択すると、そのファイル名がメッセージボックスに表示されます。
Sub Sample() Dim fileSaveName As Variant fileSaveName = Application.GetSaveAsFilename(fileFilter:= _ "テキスト ファイル (*.txt), *.txt") If fileSaveName <> False Then MsgBox "保存するファイル :" & fileSaveName End If End Sub