Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


43971 / 76732 ←次へ | 前へ→

【37787】Re:ブック名の変更
発言  ハチ  - 06/5/18(木) 18:18 -

引用なし
パスワード
   ▼美貴 さん:

>なんですけど、私の目論見としては、ファイル保存してしまう前に
>フォルダをダイアログボックスから任意に指定したいんですよ。
>または、保存しない状態でブック名だけをリネームしたいです。
>無理なんでしょうか?
>どうぞ、よろしくお願い致します。

保存しないでリネームはムリだと思います。
ダイアログボックスのデフォルトに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
3 hits

【37767】ブック名の変更 美貴 06/5/18(木) 14:47 質問
【37768】Re:ブック名の変更 ぱっせんじゃー 06/5/18(木) 14:54 発言
【37772】Re:ブック名の変更 美貴 06/5/18(木) 15:53 質問
【37780】Re:ブック名の変更 ハチ 06/5/18(木) 17:03 発言
【37782】Re:ブック名の変更 美貴 06/5/18(木) 17:39 質問
【37787】Re:ブック名の変更 ハチ 06/5/18(木) 18:18 発言
【37803】Re:ブック名の変更 Kein 06/5/18(木) 22:24 回答
【37815】Re:ブック名の変更 美貴 06/5/19(金) 10:44 お礼

43971 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free