|
▼美貴 さん:
>なんですけど、私の目論見としては、ファイル保存してしまう前に
>フォルダをダイアログボックスから任意に指定したいんですよ。
>または、保存しない状態でブック名だけをリネームしたいです。
>無理なんでしょうか?
>どうぞ、よろしくお願い致します。
保存しないでリネームはムリだと思います。
ダイアログボックスのデフォルトにSheet名.xlsを表示したいなら
自作するしかないかも・・
Sub Test2()
Dim Oldwb, Newwb As Workbook
Dim SaveName As Variant
Set Oldwb = ActiveWorkbook
Set Newwb = Workbooks.Add(xlWBATWorksheet)
Newwb.Worksheets(1).Name = "TMP"
Oldwb.Activate
ActiveWindow.SelectedSheets.Copy After:=Newwb.Worksheets(1)
Application.DisplayAlerts = False
Newwb.Worksheets(1).Delete
Application.DisplayAlerts = True
SaveName = Application.GetSaveAsFilename( _
InitialFilename:=Newwb.Worksheets(1).Name & ".xls", _
Title:="Sheet名で保存")
If SaveName <> False Then
Newwb.SaveAs SaveName
Newwb.Close
End If
Set Oldwb = Nothing
Set Newwb = Nothing
End Sub
|
|