HOME>TOP>アプリケーション

名前を付けて保存ダイアログボックスを表示するには?


キーワード>>GetSaveAsFilename・SaveAs 

Point :名前を付けて保存ダイアログを出してブックを保存する。

Sub Test()
  Dim strFileName

    strFileName = Application.GetSaveAsFilename( _
      fileFilter:="エクセルファイル (*.xls), *.xls")


   If strFileName <> False Then
    MsgBox "選択されたファイル: " & strFileName
  End If

End Sub

上の例では実際に保存はされません。
保存するにはSaveAsメソッドを使用します。

Sub Test2()

  Dim strFileName, NewBook

  Set NewBook = Workbooks.Add
   '新規ブックを作成

  Do
      strFileName = Application.GetSaveAsFilename( _
      fileFilter:="エクセルファイル (*.xls), *.xls")
  Loop Until strFileName <> False

  NewBook.SaveAs FileName:=strFileName
   '新規ブックを名前を付けて保存
End Sub



掲載サンプルコードの使用に関して、直接・間接
を問わず生じた一切の損害について如何なる責任も負いません。