Masa / Lino Blog

Masanori Satoh ( Masa / Lino ) の徒然ブログです

ExcelからAccessへデータをインポートする方法 vol.2

ExcelからAccessへデータをインポートする方法の続き。
昨日深夜1時半まで2時間作業してできなかったのでリベンジ。
頭がボーっとする中、サンプル作成。


Function excelExport()

Dim tblname As String
Dim xlsname As String
Dim xlsrange As String
Dim msg As String

tblname = "sample_Export" 'export先テーブル指定
xlsname = "C:\book1.xls" 'excelパス指定
xlsrange = "sheet1!B2:E5" 'セル範囲を指定
msg = "インポート開始します。"

DoCmd.DeleteObject acTable, tblname 'テーブルを削除
'テーブルがないとエラーはくので初回実行時はコメントアウト推奨
'IF文でクエリがあるか確認するロジックを記述するべき。

If MsgBox(msg, vbOKCancel) = vbOK Then

'最初のデータをフィールド名として使います。
DoCmd.TransferSpreadsheet acImport, acSpreadsheetTypeExcel8, tblname, xlsname, True, xlsrange

MsgBox "データ入力は、正常に完了しました。"

End If

End Function