
マクロ
Sub ファイル削除()
Application.DisplayAlerts = False
On Error Resume Next
Worksheets(Array("10", "100", "300", "500")).Delete
Dim myName As String, myBook As String
myName = ThisWorkbook.FullName
myBook = ThisWorkbook.Path
ActiveWorkbook.SaveAs Filename:=myBook & "\" & Range("Z1").Value & ".xlsx", FileFormat:=xlOpenXMLWorkbook
With ThisWorkbook
.ChangeFileAccess xlReadOnly
Kill myName
If Workbooks.Count <= 1 Then Application.Quit
.Saved = True
.Close False
Application.DisplayAlerts = True
End With
End Sub
があります。
このマクロを実行すると不要なシートの削除
ファイル形式:XLSmを「xlsx」に指定セル値名で保存し、不要となった
ファイル形式:XLSmを削除するようにできるマクロですが、
このマクロを実行するとファイル自体が削除されて何もファイルが残らない状態に
なってしまいます。
解決方法を教えてください。
よろしくお願いいたします。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
ファイルの保存場所を変えたら...
-
【マクロ】変数に入れるコード...
-
Excelマクロについて
-
空白の処理に関するマクロ
-
EXCEL VBA 指定したファイルが...
-
ISOファイルとMDSファイル
-
生鮮MDシステムについて。
-
イーファンビューでwebpファイ...
-
Chromebookを使用しています。 ...
-
多数のeml形式ファイルを1つの...
-
Timidity / サウンドフォントに...
-
三四郎からEXCELへの変換
-
USBの読み取り専用を解除する方法
-
osv形式ファイル
-
ccdファイルはどのようにして使...
-
【パワーポイント】「ファイル...
-
読み取り専用ファイルを印刷レ...
-
複数eml形式のBecky!への一括イ...
-
AccessでCSVの読み込み履歴を残...
-
テキストデータ量が膨大で、エ...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
EXCEL VBA 指定したファイルが...
-
【マクロ】変数に入れるコード...
-
データ参照先が別ファイルの場...
-
フォルダ内のexcelファイルを順...
-
エクセルマクロで不特定なファ...
-
【Excel VBA】ファイル名が一...
-
【マクロ】名前を保存する際に...
-
ファイルの保存場所を変えたら...
-
秀丸:あらかじめ設定した複数...
-
フォルダ内のブック全部にパス...
-
エクセル 複数ファイルの一括...
-
ファイルを開かずにマクロを実行
-
accessフォルダを移動したらフ...
-
vba初心者です。 質問です。 毎...
-
Excelのマクロでファイルを開く...
-
EXCELマクロを無効にして開く方法
-
エクセルのシートの数を数えた...
-
エクセルファイルを開く時、関...
-
Excel VBA seleniumのedge操作...
-
ワード2007で複数ファイル自動...
おすすめ情報