Excel2007VBAシートコピーとマクロ保存

質問

• Excel2007VBAを使用して、複数のシートのファイルから最終シートのみをコピーし、標準モジュールも含んだファイルを保存する方法について教えてください。
• 質問者はVBA初心者であり、マクロの保存がうまくいかない問題に直面しています。質問者が手作業で最終ページを開いた状態で保存を実行していること、拡張子を.xlsxにすると最終シートだけがコピーできるがマクロが保存できないこと、.xlsmにするとエラーが発生すること、.xlsにすると全てのシートがコピーされるがマクロが保存できないことを述べています。
• 回答者は質問者に対して、最終ページを手作業で開かなくても最終シートをコピーする方法を提案しています。また、マクロの保存に関しては、ファイルの保存形式や設定を確認する必要があることを指摘しています。

回答No.4

imogasi

＞標準モジュールも含んだファイルを保存するには
があるため（マクロをコピーしてくるようなことはVBAの初級中級のものが、やる課題で無いと思うので）
＃１のお答えに賛成。
（１）ブックをコピー
（２）コピーで出来たブックの名前を望みのものに設定
（３）最終のシートを1つ残して削除
（４）残った１シートのセル内容を消す（必要なら）
ーー
引っかかったのは
＞最終シート
ですシートタブが一番右のシートで良いのか（下記例はこの方）、シート名の名前の上で、日付（の一部）などがシート名の一部についていて、その日付の最終のものなどとなると、コードも増える（変に年を略した月日などにしていると来年分と前後が区別できない）。
心配要らないのかな？
＞マクロの保存ができません
この意味は？。マクロのコードモジュールの別ブックへのコピー法がわからないということか。それを聞いているような質問が昨日今日あったが。
ーー
やっていることは
サブコードｃｃをつけてコピー保存
ソンブックを開いて最後のシート以外は削除
最後のシートとモジュールは残っていることを確認
した。
これで不都合な点はあるだろうか。相当ケースでテストをしてチェックしてください。
Sub test01()
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Filename = ThisWorkbook.Name
MsgBox Filename
flnm = Split(Filename, ".")(0)
MsgBox flnm & "cc" & ".xls"
ActiveWorkbook.SaveCopyAs Filename:=flnm & "cc" & ".xls"
Workbooks.Open flnm & "cc" & ".xls"
For Each sh In Worksheets
MsgBox sh.Name
If sh.Index <> Sheets.Count Then
MsgBox sh.Name
sh.Delete
End If
Next
Application.ScreenUpdating = True
Application.DisplayAlerts = True
End Sub

お礼

imogasi様
いつもご回答ありがとうございます。

NO.1のご回答と同じくimogasi様の発想方法を
使ってコードを書き直すと私が思っていたことが
できるようになりました。