エクセルで

質問

アクティブになっているシート名でそのファイルを
上書き保存するというマクロはどのようにすればいい
のでしょうか？

宜しくお願いします。

回答No.1

happypoint · ベストアンサー

fisherman2さんお久しぶりです。
私がOKwebにはじめて回答したとき、
msgbox関数の回答を差し上げた方でしょうか。

さて質問の件ですが、
これは「上書き保存」ではなくて、
「名前を付けて別名で保存」することの間違いですよね？

質問の主旨から、そう判断しました。
以下のような感じになります。

Sub test()
　Dim strSheetName As String 'シート名を格納する変数
　Dim strActiveBookPath As String '保存先のパスを格納する変数

strSheetName = ActiveSheet.Name 'アクティブなシートのシート名を取得
strActiveBookPath = ThisWorkbook.Path '現在作業中のブックのパスを取得
ActiveWorkbook.SaveAs strActiveBookPath & "\" & strSheetName '名前を付けて保存

End Sub

お礼

ありがとうございます。
これに先のファイルを消去するコードを足せば上手く
いきそうです。
色々自分でも勉強しているつもりなんですがなかなか
本当にちゃんと理解するのは難しいですね。

ありがとうございました、またお願いします。

回答No.2

BLUEPIXY

ActiveWorkbook.SaveAs Filename:=ActiveSheet.Name