ようこそ ゲスト さん、新規登録（無料）して気になる疑問を解決しませんか？
はじめての方へ｜ヘルプ｜FAQ

質問
質問者：ryonsuke シートだけを保存したいのですが？
困り度：
  • 困っています
 はじめましてマクロ初心者です。
検索しましたがわからなかったので、質問させていただきます。

保存をキャンセルすると新規ブックができてしまいます。
キャンセルした時に新規ブックを作りたくないのですが、教えてください。
Sub シート保存()
Dim Answer3
Dim 既定ファイル名 As String
Dim 保存ファイル名 As Variant

Answer3 = MsgBox("本当に保存しますか？", vbYesNo)
If Answer3 = vbYes Then
Sheets("保存シート").Select
Application.CutCopyMode = False
Sheets("保存シート").Copy
Else
MsgBox ("キャンセルしました。")
End If

既定ファイル名 = Range("V8")
保存ファイル名 = Application.GetSaveAsFilename(既定ファイル名)
If 保存ファイル名 = False Then
MsgBox "保存は中止されました。"
Else
ActiveWorkbook.SaveCopyAs 保存ファイル名
End If
End Sub

よろしくお願いします。
質問投稿日時：08/07/07 00:15
質問番号：4156924
この質問に対する回答は締め切られました。

回答

良回答20pt
回答者：keirika Sub シート保存()
Dim Answer3
Dim 既定ファイル名 As String
Dim 保存ファイル名 As Variant

Answer3 = MsgBox("本当に保存しますか？", vbYesNo)
If Answer3 = vbNo Then
MsgBox ("キャンセルしました。")
Exit Sub
End If

Sheets("保存シート").Select
Application.CutCopyMode = False
Sheets("保存シート").Copy

既定ファイル名 = Range("V8")
保存ファイル名 = Application.GetSaveAsFilename(既定ファイル名)
If 保存ファイル名 = False Then
MsgBox "保存は中止されました。"
ActiveWorkbook.Close (False)
Else
ActiveWorkbook.SaveCopyAs 保存ファイル名
End If
End Sub

ではどうでしょうか。
種類：アドバイス
どんな人：一般人
自信：参考意見
回答日時：08/07/07 00:51
回答番号：No.1
この回答へのお礼できました。
ありがとうございます。
 
このページのトップへ