EXCEL　マクロを使ってみる日付名で保存

このマクロは、見積書や納品書などを保存する場合に、作成日の日付の名前で
ファイルを保存でき、後日参照、検索するときにとても便利なマクロです。
保存は、日付だけでなく、時間も記録できます。

■　１　VBE (Visual Baci Edtor) を開いてコードを入力する。

１、メニューの→「ツール」→「マクロ」→「Visual Baci Edtor」と進みます。

２、Visual Baci Edtor　の画面左上に表示される「プロジェクト」ウィンドウ（上の図）
　　の「ThisWorkbook」をダブルクリックします。

３、その右に、コード（プログラム）を入力する白紙の画面が出現します。

４、その画面に、下のコードをそのままコピーして貼り付けます。
　　コピーの方法は、Subの文字の直前をクリックして、最後の行のEnd Subまでドラッグ
　　します。
　　次に右クリックして、表示されたメニューの「コピー」をクリックします。
　　コードを入力するウィンドウ内で右クリックして、メニューの「貼り付」をクリックします。
　　ホームページのデータを活用する。　参照

Sub ファイル日付で保存()

Dim フォルダー As String, 年 As Integer, 月 As String, 日 As String
Dim 時 As String, 分 As String, ファイル名 As String
フォルダー = "C:\MY DOCUMENTS"
年 = Mid(Year(Now()), 3, 2)
月 = Month(Now())
日 = Day(Now())
時 = Hour(Now())
分 = Minute(Now())
ファイル名 = 年 & "_" & 月 & "_" & 日 & "_" & 時 & "_" & 分 & ".XLS"
ActiveWorkbook.SaveAs Filename:=フォルダー & "\" & ファイル名
MsgBox "ファイル名を　" & ファイル名 & "　で保存しました。"
End Sub

現時点では、コードの意味を理解する必要はありません。
まず、動作することを確認しましょう。後からコードの意味を説明します。
コードは上記のものを手入力してもいいですが、入力にミスがあるとエラーが発生します
ので、注意してください。

５、Visual Baci Edtor　の画面右上の「×」（閉じる）をクリックして、この画面を閉じます。

■ボタンを作成して、ボタンにマクロを登録する。

１、ボタンを作る

　　ボタンの作成方法は、ステップ５　ボタンを作る　を参照してくださ。

２、マクロの登録

　　ステップ５ボタンを作る　で説明している、マクロの登録画面に表示されるのが、
　　「ThisWorkbook ファイル日付で保存」となりますので、これをクリックして「OK」
　　ボタンをクリックします。

３、ボタンに表示される名前の変更

　　この方法は　ステップ６　ボタンの編集　を参照してください。
　　ボタンの名前は「保存」にするか、自由に変更してくださ。

完成したボタンをクリックして、動作を確認してください。

ファイル名を「2_10_19_9_1.XLS」で保存しました。と表示されれば、完成です。
２００２年１０月１９日９時１分というふうに理解してください。

なお、保存される場所は、ハードCのマイドキュメントに指定されています。
保存場所を変更するには、コードの一部を書き換える必要があります。
コードの説明と書き換えが必要な部分についての説明は、後ほどアップします。