VBScript でExcelファイルの内容をAccessにコピーする

以下は実際に私が使用しているVBScriptです。

https://gist.github.com/anonymous/5845553

diary.xlsというExcelファイルのA列とB列の（2行目以降の）内容をdiary.mdbというAccessデータベースのテーブルdiary のフィールドdおよびcにコピーするものです。

ますこのファイルを、拡張子がvbs　となるように保存します。このvbsファイルをダブルクリックすると動作します。またはExcelファイルをvbsファイル上にドラッグアンドドロップしてやれば動作します。


Excelファイルは、C:\xls というフォルダの配下に存在するc:\xls\diary.mdb とします。Accessデータベースは、C:\mdb\diary.mdb とします。