コマンドボタンを使用して Excel データを Access テーブルにインポートする - TechRepublic

Access 2003 および 2002 には、Excel ファイルから Access テーブルにデータをインポートするためのウィザードが含まれていますが、その機能を定期的に実行する必要がある場合は、ウィザードのすべての手順を自動的に実行するコマンド ボタンを作成すると便利です。

例えば、支店の全従業員の月次労働時間レポートをインポートする必要があるとします。支店はこの情報を「労働時間」というExcelワークシートに入力しています。コマンドボタンを作成するには、以下の手順に従います。

1. デザイン ビューで新しいフォームを開きます。
2. ツールボックスのコマンド ボタン ツールをクリックします。
3. ツールを配置するフォーム内の場所をクリックしてドラッグします。
4. 必要に応じて、[キャンセル] をクリックしてコマンド ボタン ウィザードを閉じます。
5. コマンド ボタンを右クリックし、[プロパティ] を選択します。
6. [イベント] タブをクリックし、[クリック時] プロパティ ボックスをクリックします。
7. ドロップダウンリストから[イベント プロシージャ]を選択します。
8. [ビルド]ボタンをクリックします。
9. プロンプトに次のコードを入力します。

エラー時にGoTo Err_CmdImportExcel_Click
DoCmd.TransferSpreadsheet 転送タイプ:=acImport,

テーブル名:="労働時間", ファイル名:="C:/Personnel/労働時間.xls",

フィールド名を持つ:=True
Exit_CmdImportExcel_Click:
サブを終了
Err_Command13_クリック:
メッセージボックス エラー説明
再開 Exit_Command13_Click

1. [Alt]Qを押します。

コマンドボタンを押すと、Excelファイルのデータが「Hours Worked（労働時間）」テーブルに取り込まれます。Excelは毎月、ワークシートをアーカイブし、「Hours Worked.xls」という名前の新しいワークシートを作成して、翌月の新しいデータを収集します。その月の末にコマンドボタンを押すと、Accessデータベースの「Hours Worked（労働時間）」テーブルの末尾に新しいデータが自動的に追加されます。

Access のヒントを見逃していませんか?

Microsoft Access アーカイブをチェックして、その他の Access のヒントを確認してください。

毎週水曜日に配信される、Word、Excel、Access のヒントを特集した TechRepublic の無料 Microsoft Office Suite ニュースレターに自動的にサインアップすることで、ユーザーの生産性向上を支援します。