質問: いつもお世話になります。 当方はVBAはマクロ記録で何とか出来る程度のスキルしか無く困っています。 今回はマクロ記録で「カーオーナーズ 駐車場ローテーションプログラム」というブックの中の「棟別会員P」シートのみを Dドライブの「駐車場ローテーションPGM」というフォルダの下に「過去の棟別会員データ」というフォルダを作ってシート名をファイル名にして保存しました。 このファイルに年月日時刻を入れて保存したいのですか、色々調べて試行しましたが、記述方法が解らずうまき行きませんでした。 お忙しい中を恐縮ですが、どなたか教えていただけないでしょうか? よろしくお願いいたします。 Sub 20_6棟別会員データ保存() Sheets("棟別会員P").Select Sheets("棟別会員P").Copy Sheets("棟別会員P").Select ChDir "D:\駐車場ローテーションPGM\過去の棟別会員データ" ActiveWorkbook.SaveAs Filename:= _ "D:\駐車場ローテーションPGM\過去の棟別会員データ\棟別会員P.xlsx", FileFormat:= _ xlOpenXMLWorkbook, CreateBackup:=False ActiveWindow.Close Sheets("TOP").Select End Sub
回答: "D:\駐車場ローテーションPGM\過去の棟別会員データ\棟別会員P_" & Format(Date, "yyyy-mm-dd_hh-nn-ss") & ".xlsx" <実行結果> 別会員P_2021-07-25_17-33-01.xlsx