| 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
|
