ファイル.xlsm を開いて、(sheet1,sheet2,sheet3があったとして)
マクロ実行すると、
sheet2,sheet3 を削除し、
ファイル(配布用20200131版).xlsx でマクロなしブックとして別名保存したいです。
保存先は、ファイル.xlsm を開いた場所と同じ場所に、
20200131の部分は、自動的に当日の日付を入れたいです。
具体的には、
Book名のPath & Book名&"(配布用"& today() &"版).xlsx" のようにです。
また、
「このシートは完全に削除されます。続けますか?」のメッセージと、
マクロなしブックで保存するときの
「マクロなしのブックとして保存するには「はい」をクリックしてください」のメッセージも
省略して表示されないようにしたいです。
可能でしょうか?
No.3ベストアンサー
- 回答日時:
なかなか終了しませんね?
もしかしたら下図のようなメッセージも省略したいのでしょうか?
それでしたら以下のようにされると良いと思います。
Sub Sample()
Dim ファイル名 As String
Dim 文字長 As Long
文字長 = Len(ThisWorkbook.FullName) - 5
ファイル名 = Left(ThisWorkbook.FullName, 文字長) & _
"(配布用" & _
Format(Date, "yyyymmdd") & _
"版).xlsx"
Application.DisplayAlerts = False
If Dir(ファイル名) <> "" Then Kill (ファイル名)
Sheets(Array("Sheet2", "Sheet3")).Delete
ActiveWorkbook.SaveAs Filename:=ファイル名, FileFormat:=xlOpenXMLWorkbook
Application.DisplayAlerts = True
End Sub
No.2
- 回答日時:
こんな感じの事でしょうか?
Sub Sample()
Dim ファイル名 As String
Dim 文字長 As Long
文字長 = Len(ThisWorkbook.FullName) - 5
ファイル名 = Left(ThisWorkbook.FullName, 文字長) & _
"(配布用" & _
Format(Date, "yyyymmdd") & _
"版).xlsx"
Application.DisplayAlerts = False
Sheets(Array("Sheet2", "Sheet3")).Delete
ActiveWorkbook.SaveAs Filename:=ファイル名, FileFormat:=xlOpenXMLWorkbook
Application.DisplayAlerts = True
End Sub
すごいです。
試しにマクロを実行して、
「あれ?何も起きない」と思ったら、マクロが置いてある場所に希望通りのエクセルが保存されていました。
一瞬で実行完了してしまうので驚きました。
大変助かりました。
ありがとうございました。
No.1
- 回答日時:
こんばんは。
>メッセージも省略して表示されないようにしたいです。
警告メッセージを非表示にするには、
Application.DisplayAlerts = False
を実行することで可能です。
対象となる処理が終わったところで、Trueに戻しておくのがよいでしょう。
https://docs.microsoft.com/ja-jp/office/vba/api/ …
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- PowerPoint(パワーポイント) エクセルのマクロについて教えてください。 1 2022/03/25 17:03
- Excel(エクセル) Excelのマクロコードについて教えてください。 1 2022/03/27 10:47
- Visual Basic(VBA) Excelのマクロコードについて教えてください。 1 2022/03/27 13:25
- Excel(エクセル) エクセルのマクロについて教えてください。 2 2023/02/21 13:29
- Excel(エクセル) エクセルのマクロについて教えてください。 1 2023/02/21 09:28
- Visual Basic(VBA) エクセルのマクロについて教えてください。 1 2023/05/23 15:54
- Visual Basic(VBA) エクセルのマクロについて教えてください。 1 2023/02/21 11:19
- Visual Basic(VBA) エクセルのマクロについて教えてください。 1 2022/10/13 08:41
- Excel(エクセル) エクセルのマクロについて教えてください。 2 2023/02/20 14:46
- Visual Basic(VBA) エクセルのマクロについて教えてください。 5 2023/06/02 08:44
このQ&Aを見た人はこんなQ&Aも見ています
-
外出時に「待たせる妻」vs イライラする「待つ夫」は日本だけ?見習いたい海外事情
夫の家事参加に積極的なイメージのある海外でも、同様の事例はあるのか。結婚カウンセラーの佐竹悦子さんに伺ってみた。
-
EXCELのVBAでシートコピーをしたとき元のマクロを削除するには?
Excel(エクセル)
-
VBAで保存しないで閉じると空のBookが残る
Excel(エクセル)
-
名前をつけて保存した後、元のファイルに戻るには
その他(コンピューター・テクノロジー)
-
-
4
マクロを消すマクロは不可能?
Excel(エクセル)
-
5
Excel:VBAブック保存時にマクロをはずずには
Excel(エクセル)
-
6
マクロの「SaveAs」でエラーが出るのを解消したいです(再)
Visual Basic(VBA)
-
7
VBAでマクロを使って、マクロ無効のエクセルシートとして名前を付けて保
その他(Microsoft Office)
-
8
Excel 全シート上のボタンを削除 VBA
Excel(エクセル)
-
9
マクロでマクロを削除する
Excel(エクセル)
-
10
マクロ ブックをマクロなしでコピー
Access(アクセス)
-
11
Application.DisplayAlerts =Falseでも警告される?
Access(アクセス)
-
12
エクセル:マクロ「Application.CutCopyMode = False」って?
Excel(エクセル)
-
13
(Excel VBA)シートコピー時マクロはコピーしたくない
Excel(エクセル)
-
14
【Excel VBA】マクロでExcel自体を終了させたい
Excel(エクセル)
-
15
マクロの「SaveAs」でエラーが出るのを解消したいです
Visual Basic(VBA)
-
16
エクセルでエラーが出て困っています。
Excel(エクセル)
-
17
EXCEL VBAで全選択範囲の解除
Excel(エクセル)
-
18
エクセルVBAで5行目からオートフィルタモードに設定したいたい
Excel(エクセル)
-
19
VBA マクロを削除して保存したい
PowerPoint(パワーポイント)
-
20
VBA マクロ実行時エラー’1004RangeクラスのPasteSpecialメソッドが失敗
Access(アクセス)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
フォルダ内の全ブックのシート...
-
ExcelVBAで今開いているユーザ...
-
コマンドボタンでマクロを起動...
-
【Excel VBA】ブックを複数開い...
-
フォルダ内の全ブックのシート...
-
ACCESSのVBAでテンプレとなるxl...
-
エクセルVBA Workbook変数に変...
-
EXCEL VBA起動時の処理
-
【ExcelVBA】指定の書式で、マ...
-
【VBA】他のExcelを起動し、呼...
-
excelでハイパーリンク 別ブッ...
-
Excel VBAを後ろで動かす方法
-
VBA ファイルの開き方
-
[Excel VBA] フォルダ内の複数...
-
エクセル2010で2003形式でマク...
-
【マクロ】その時、その時で変...
-
VBAに詳しい方教えてください。
-
【ExcelVBA】クエリの更新とピ...
-
「開いているすべてのブック」...
-
エクセルファイルを自身のファ...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
フォルダ内の全ブックのシート...
-
ExcelVBAで今開いているユーザ...
-
エクセルVBA Workbook変数に変...
-
フォルダ内の全ブックのシート...
-
【Excel VBA】ブックを複数開い...
-
【ExcelVBA】指定の書式で、マ...
-
VB2010でExcelの行をコピーして...
-
フォルダ内の全てのBookに同じ...
-
EXCELマクロでxlsとxlsxを開く方法
-
excelマクロ、任意セルの値で名...
-
[Excel VBA] フォルダ内の複数...
-
VBA、Excelのworkbook.open に...
-
すでに開いているブックのマク...
-
EXCELマクロで上書きメッ...
-
VBA セル入力された日付データ...
-
EXCEL VBA起動時の処理
-
エクセルのマクロについて教え...
-
他のBookのユーザー定義関数を使う
-
Excel VBAを後ろで動かす方法
-
Excelの一括印刷で通し番号をつ...
おすすめ情報