
マクロ有効テンプレートで保存している、作業ブックに下記のマクロコードが有ります。
Sub 保存削除2()
Dim WS As Worksheet
Dim TargetCheck As String
Dim List As Variant
Dim i As Long
Dim Chk As Boolean
List = Array("休日", "受付", "管理表")
For Each WS In Worksheets
Chk = False
If WS.Visible = False Then
For i = 0 To UBound(List)
If WS.Name = List(i) Then
Chk = True
Exit For
End If
Next i
If Chk = False Then
TargetCheck = TargetCheck & WS.Name & vbCrLf
Application.DisplayAlerts = False
WS.Delete
Application.DisplayAlerts = True
End If
End If
Next WS
If TargetCheck = "" Then
MsgBox "非表示シートはありません。処理を終了します。"
ActiveWorkbook.Save
Else
MsgBox "以下の非表示シートを削除しました。" & vbCrLf & vbCrLf & TargetCheck
ActiveWorkbook.Save
End If
mybook = ThisWorkbook.Path
ActiveWorkbook.SaveAs Filename:=mybook & "\" & Range("Z1").Value & "●.xlsx", FileFormat:=xlOpenXMLWorkbook
Application.Quit
With ThisWorkbook
.Saved = True
.Close False
End With
End Sub
このマクロを実行すると不要な非表示シートを削除し、
「マクロ有効テンプレート:xltm」保存形式から「Excelのブック:xlsx形式」に保存形式を変更しZ1値のファイル名●で保存出来るようになってます。
「Excelのブック:xlsx形式」されたタイミングで
元々の「マクロ有効テンプレート:xltm」ファイルの削除を実行する方法を教えてください。
尚、「マクロ有効テンプレート:xltm」のファイル名は様々な名前で保存されます。
よろしくお願いいたします。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) エクセルのマクロについて教えてください。 3 2023/02/22 08:53
- Visual Basic(VBA) エクセルのマクロについて教えてください。 3 2023/02/17 11:59
- Excel(エクセル) Excelのマクロコードについて教えてください。 1 2022/03/27 10:47
- Visual Basic(VBA) エクセルのマクロについて教えてください。 1 2022/10/13 08:41
- Access(アクセス) ExcelのVBAコードについて教えてください。 4 2023/01/20 09:44
- Visual Basic(VBA) エクセルのマクロについて教えてください。 2 2023/06/04 09:39
- Visual Basic(VBA) エクセルのマクロを使ってメールを送る方法について教えてください 2 2022/03/29 01:36
- Visual Basic(VBA) エクセルのマクロについて教えてください。 1 2023/03/07 14:05
- Visual Basic(VBA) エクセルのマクロについて教えてください。 4 2023/03/02 08:40
- Visual Basic(VBA) エクセルのマクロについて教えてください。 5 2023/06/02 08:44
関連するカテゴリからQ&Aを探す
おすすめ情報
- ・漫画をレンタルでお得に読める!
- ・一番好きなみそ汁の具材は?
- ・泣きながら食べたご飯の思い出
- ・「これはヤバかったな」という遅刻エピソード
- ・初めて自分の家と他人の家が違う、と意識した時
- ・いちばん失敗した人決定戦
- ・思い出すきっかけは 音楽?におい?景色?
- ・あなたなりのストレス発散方法を教えてください!
- ・もし10億円当たったら何に使いますか?
- ・何回やってもうまくいかないことは?
- ・今年はじめたいことは?
- ・あなたの人生で一番ピンチに陥った瞬間は?
- ・初めて見た映画を教えてください!
- ・今の日本に期待することはなんですか?
- ・集中するためにやっていること
- ・テレビやラジオに出たことがある人、いますか?
- ・【お題】斜め上を行くスキー場にありがちなこと
- ・人生でいちばんスベッた瞬間
- ・コーピングについて教えてください
- ・あなたの「プチ贅沢」はなんですか?
- ・コンビニでおにぎりを買うときのスタメンはどの具?
- ・おすすめの美術館・博物館、教えてください!
- ・【お題】大変な警告
- ・洋服何着持ってますか?
- ・みんなの【マイ・ベスト積読2024】を教えてください。
- ・「これいらなくない?」という慣習、教えてください
- ・今から楽しみな予定はありますか?
- ・AIツールの活用方法を教えて
- ・最強の防寒、あったか術を教えてください!
- ・歳とったな〜〜と思ったことは?
- ・モテ期を経験した方いらっしゃいますか?
- ・好きな人を振り向かせるためにしたこと
- ・スマホに会話を聞かれているな!?と思ったことありますか?
- ・それもChatGPT!?と驚いた使用方法を教えてください
- ・見学に行くとしたら【天国】と【地獄】どっち?
- ・これまでで一番「情けなかったとき」はいつですか?
- ・この人頭いいなと思ったエピソード
- ・あなたの「必」の書き順を教えてください
- ・14歳の自分に衝撃の事実を告げてください
- ・人生最悪の忘れ物
- ・あなたの習慣について教えてください!!
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
VBAを一度起動するとずっと出て...
-
マクロを消すマクロは不可能?
-
昨日まで動いていたエクセルの...
-
別のパソコンでエクセルのマク...
-
excelでpersonal.xlsを常に開く...
-
コピーしたファイルのマクロを...
-
エクセルファイルを自身のファ...
-
VBA マクロ実行時エラー’1004Ra...
-
エクセルマクロ実行中に別ファ...
-
マクロファイルについて
-
【マクロ】エラーが発生⇒実行時...
-
excelファイルに使われているVB...
-
Excelが勝手にシート移動してし...
-
excelが別プロセスで起動してし...
-
EXCELマクロコードを、それを含...
-
エクセル終了時の保存確認メッ...
-
Excel2010 PERSONAL.xlsbの挙動...
-
エクセルで印刷する方法 エクセ...
-
EXCEL マクロ クリップボードク...
-
マクロでマクロを削除する
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
昨日まで動いていたエクセルの...
-
VBAを一度起動するとずっと出て...
-
エクセル終了時の保存確認メッ...
-
コピーしたファイルのマクロを...
-
別のパソコンでエクセルのマク...
-
excelファイルに使われているVB...
-
VBA マクロ実行時エラー’1004Ra...
-
マクロを消すマクロは不可能?
-
エクセルマクロ実行中に別ファ...
-
EXCEL マクロ クリップボードク...
-
アクセスでファイルを開いたと...
-
【マクロ】エラーが発生⇒実行時...
-
Excelマクロ ファイル名が変わ...
-
Excelが勝手にシート移動してし...
-
エクセル2013vbaで、見えない名...
-
エクセルファイルを自身のファ...
-
Excel2010 PERSONAL.xlsbの挙動...
-
マクロを設定したのに、拡張子...
-
excelでpersonal.xlsを常に開く...
-
excelが別プロセスで起動してし...
おすすめ情報