Microsoft Access Club >Access裏技Tips >このページ >次頁 < 前項 サイト内検索


Excelへ売上データをエクスポートする : Access裏技Tips



データ分析にかけてはAccessよりExcelの方が馴染みが深く優れています。 ここでは、AccessテーブルをExcelへデータ出力する技を紹介します。

Excelへデータをエクスポート

  1. サンプルテーブル(tbl_sample)を作成します。
  2. このテーブルには、ID(オートナンバー型)、納品日(日付/時刻型)、取引先名(テキスト型)、請求額(通貨型)の4つのフィールドを作成します。
  3. 出力を実行するフォームを作成し、コマンドボタン(Cmdコマンド)を配置します。
  4. TransferSpreadsheetメソッドを利用してExcelファイルへデータを出力します。

サンプルテーブルの作成

  1. サンプルテーブルを作成します。
  2. ID(オートナンバー型)、納品日(日付/時刻型)、取引先名(テキスト型)、請求額(通貨型)の4つのフィールドを作成します。

実行フォームの作成

  1. 非連結の実行フォームを作成します。
  2. コマンドボタンを作成します。

コマンドボタンクリック時イベントプロシージャの作成

コマンドボタンクリック時イベントプロシージャを作成します。

Private Sub Cmdコマンド_Click()

    On Error GoTo エラー

    Dim varAccess As Variant ' --- A
    Dim varExcelPass As Variant
    Dim strmsg As String
    
    varAccess = "tbl_sample" ' --- B
    varExcelPass = "C:\sample126.xls"  ' --- C
    strmsg = varAccess & " を、Excelファイルへ出力します。" & Chr(13) & _
             "出力先は" & varExcelPass & "、 シート名は" & varAccess & _
	     "です。" & Chr(13) & "よろしければ、OKをクリックして下さい。"
                
    If MsgBox(strmsg, vbOKCancel) = vbOK Then
        
        DoCmd.TransferSpreadsheet acExport, _
                    acSpreadsheetTypeExcel9, varAccess, varExcelPass, True'--- D
        MsgBox "データ出力は、正常に完了しました。"
        
    End If
    
    Exit Sub
    
エラー:
    
    If Err.Number = 3044 Then ' --- E
        MsgBox "Excelファイルのパス指定が誤っています。", vbCritical
    Else
        MsgBox "予期せぬエラーが発生しました。", vbCritical
    End If

End Sub
解説
  1. 変数varAccess、varExcelPassをバリアント型と宣言しています。
  2. 出力の対象となるAccessテーブル、またはクエリー名を記述します。
  3. Excelファイルのパスを記述します。
  4. TransferSpreadsheetメソッドを用いて出力を行います。
  5. エラー処理ルーチンです。指定したExcelのパスが誤っている時、エラー番号3044が発生します。
今回のおすすめポイント

Excelファイルの自動生成

TransferSpreadsheetメソッドを用いてExcelファイルへデータ出力を行う場合、該当のExcelファイルが存在していなければ自動的に作成します。 但し、パスの指定が誤っている場合(記述したドライブやフォルダーが存在しない場合)は、エラー番号3044が発生し処理が停止します。

TransferSpreadsheetメソッド

Excelへデータ出力だけではなく、Excelからのデータ入力も可能にするメソッドです。 最後引数である True は、ワークシートの1行目をフィールド名として利用することを意味しています。

動作確認

  1. デザインビューからフォームビューに切り替えます。

  1. コマンドボタンをクリックし、確認メッセージの[OK]をクリックします。

  1. Excelファイルを開き、無事に出力されていることを確認します。

関連ページ

ページの先頭へ 前ページへ戻る

 


Excelへ売上データをエクスポートする : Access裏技Tips


 

-Microsoft Access Club-

アメリカ合衆国やヨーロッパのデータセンターからcPanelレンタルサーバーをご提供します。お支払いは日本国内の銀行振込で...。1ヵ月契約からOKです。
アメリカ合衆国やヨーロッパからcPanelレンタルサーバー。
お支払いは日本国内の銀行振込。
最短契約期間は1ヵ月契約からOKです。