マクロ有効テンプレートで保存している、作業ブックに下記のマクロコードが有ります。
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を探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
コピーしたファイルのマクロを...
-
【VBAファイル移動】2つのマク...
-
VBA マクロ実行時エラー’1004Ra...
-
エクセル2013vbaで、見えない名...
-
EXCELマクロコードを、それを含...
-
Excelを保存して閉じるとマクロ...
-
別のパソコンでエクセルのマク...
-
エクセルファイルを自身のファ...
-
エクセルマクロを有効にしない...
-
昨日まで動いていたエクセルの...
-
EXCELで作ったマクロを別のファ...
-
EXCEL マクロ クリップボードク...
-
エクセルでマクロを別のPCで利...
-
【マクロ】エラーが発生⇒実行時...
-
エクセルマクロにてパワーポイ...
-
【VBA】複数ブックから特定のシ...
-
Excel2010 PERSONAL.xlsbの挙動...
-
EXCELで日付を自動でファイル名...
-
エクセルのマクロについて教え...
-
外部データを取り込むマクロ
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
エクセル終了時の保存確認メッ...
-
excelファイルに使われているVB...
-
VBA マクロ実行時エラー’1004Ra...
-
コピーしたファイルのマクロを...
-
昨日まで動いていたエクセルの...
-
別のパソコンでエクセルのマク...
-
VBAを一度起動するとずっと出て...
-
マクロを消すマクロは不可能?
-
エクセルファイルを自身のファ...
-
アクセスでファイルを開いたと...
-
EXCEL マクロ クリップボードク...
-
Excelが勝手にシート移動してし...
-
Excelマクロ ファイル名が変わ...
-
excelが別プロセスで起動してし...
-
Excel2010 PERSONAL.xlsbの挙動...
-
エクセルマクロを有効にしない...
-
エクセル2013vbaで、見えない名...
-
エクセルマクロにてパワーポイ...
-
【マクロ】アクティブセルの行...
-
マクロでマクロを削除する
おすすめ情報