エクセルのブックをアクセスから開くには?

Question 4.1 その他 Previous Next
エクセルのブックをアクセスから開く方法を教えてください

Answer  Excel 95 Copyright (C) 1998.6.17 Yoshioh Nagai
いろいろな方法があるようですが、私が以前に成功したDDE通信による方法を 書いておきます。実行するパソコンの相違により、 このとおりなのに、うまく動かないことがあるようです。この成功例の環境は、Pentium120、ACCESS95で、   かつアクセスのOLE/DDEタイムアウト時間を90秒に設定しました。

アクセスのモジュールの書き方
Public Function エクセルのブックを開く()
    Dim channelnum
    Dim TEMP
    On Error GoTo KIDO
        channelnum = DDEInitiate("Excel", "System")
        On Error GoTo 0
    On Error GoTo MUSI
        DDEExecute channelnum, "[OPEN(""C:\フォルダー名\ブック名.xls"")] "
                                                    'フォルダー・ブック名
        On Error GoTo 0
    DDETerminate channelnum
    Exit Function

KIDO:
    If Err = 282 Then
        TEMP = Shell("C:\MSOFFICE\Excel\Excel.exe", 1)
                                                    'PCのインストール状況に合わせる
        Resume
    End If
    Resume Next

MUSI:
    If Err = 286 Then
        Resume Next
    End If
    Resume OWARU

OWARU:
    On Error GoTo 0
End Function

 

Excel VBA Macro