テーブルのエクスポート関数

Function EXP_TBL(varAccess, varExcelPass, Para)
'varAccess 　･･･　テーブル名
'varExcelPass　･･･　エクセルファイルのフルパス
'Para　　　　　･･･　処理の選択
On Error GoTo ERR_EXP_TBL

Dim strMsg As String

Select Case Para
Case 1 'シートの追加
DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel9, varAccess, varExcelPass, True, ""
Case 2 '既存シート削除後追加
DoCmd.OutputTo acOutputTable, varAccess, acFormatXLS, varExcelPass, False
Case 3 '既存シート削除後HTMLで追加
DoCmd.OutputTo acOutputTable, varAccess, acFormatHTML, varExcelPass, False
End Select
Exit Function

ERR_EXP_TBL:

If Err.Number = 3044 Then
MsgBox "Excelファイルのパス指定が誤っています。", vbCritical, "EXP_TBL"
Else
MsgBox Error, vbCritical
End If

End Function

☆メニュー☆