Option Compare Database
Sub XLSExport(TableName, FilePath)
‘************************************************
‘エクセルファイルをエクスポートする
‘ TableName： エクスポート元のソースのテーブル
‘ FilePath ：エクスポート先のエクセルファイルのパス+ファイル名
‘
‘************************************************
DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel12Xml, TableName, FilePath
End Sub
Sub XLSInport(TableName, FilePath)
‘************************************************
‘エクセルファイルをインポートする
‘ TableName :インポート先のテーブル
‘ FilePath :インポート元のエクセルファイルのパス+ファイル名(先頭のワークシートを読み込む）
‘ True :1行目をフィールド名とする
‘************************************************
DoCmd.TransferSpreadsheet acImport, acSpreadsheetTypeExcel12Xml, TableName, FilePath, True
End Sub