Access→Excelの連携 - へたれちっぷ。

Access⇔Excelの提携

AccessよりExcelのバージョン取得(Access2003)

※「OLE Automation」の参照設定が必要です。

[標準モジュール]

Public Function strExcelVer() As String
    On Error GoTo ErrTrap
    Dim exlApp      As Object
    Dim strVer      As String
    Set exlApp = CreateObject("Excel.Application")
    strExcelVer = Choose(exlApp.Version - 4, _
                                        "5.0", _
                                        "", _
                                        "95", _
                                        "97", _
                                        "2000", _
                                        "2002", _
                                        "2003", _
                                        "2007")
    exlApp.Quit
ProcEnd:
    Exit Function
ErrTrap:
    Select Case Err.Number
    Case 429
        '// Excelがインストールされていない
        strExcelVer = "Err"
        GoTo ProcEnd
    Case Else
        '// Excelがインストールされていない
        strExcelVer = "Err"
        GoTo ProcEnd
    End Select
End Function

Edit