【VBAスタンダードに挑戦！】
本日の５分勉強の内容
********************************************************
ブックを保存する
・名前を付けて保存するときに SaveAs メソッドを使う
・アクティブブックを保存する場合
ActiveWorkbook. SaveAs "C:\20200806_議事録.xlsx"
・拡張子も指定する
・ファイル名に日付を指定する場合に Format 関数が使える
・Format(値、書式記号)
・Format 関数の引数の値に Now 関数などの日付の関数を使用できる
Now関数
・Now （シート上で使用する場合は Now() と、かっこが必要）
・実行時点での日付と時刻を取得する
Msgbox Now
Year/Month/Day関数
ActiveWorkbook.SaveAs "C:\" & Year(Now) & "_議事録.xlsx"
・上記の場合のファイル名は「2020_議事録.xlsx」となる
・Year(Now) で、Now関数から Year の箇所のみを取得する
・Month(Now), Day(Now) も Year と同じように、
Now 関数から月のみ、日のみ取得する
Format 関数
ActiveWorkbook.SaveAs "C:\" & Format(Now, "yyyymmdd") & "_議事録.xlsx"
・上記の場合のファイル名は「20200806_議事録.xlsx」となる
・引数の書式記号にダブルクオーテーションを忘れないように
本日は2020年8月6日
yy = 20 （下二けた）
yyyy = 2020
m = 8
mm = 08
mmm = Aug
mmmm = August
d = 6
dd = 06
ddd = Thu
dddd = Thursday
Format(Now, "yyyy/mmm/dd-ddd" = 2020/Aug/06-Thu
※上記は マクロから実行した場合です
********************************************************
目的のファイルを開いて、
必要なデータを取得したら保存せずに閉じているので、
いままでファイルの保存は、ほとんど実行したことがありません。
業務で扱う資料はほとんどが他の社員と共有しているので、
担当者が更新しないと正しいデータかどうか わからなくなってしまいます。
バックアップはあると思いますけどね。
＿／＿／＿／＿／＿／＿／＿／＿／＿／＿／＿／＿／＿／＿／＿／＿／
