７／８に続き2回目の質問です。
今回は、テーブルに保存したOLEオブジェクト型のExcelファイルのオープン方法
について、わかる方がいらっしゃいましたらご教授願います。
１．テーブル定義
Accessのテーブルを以下の様に定義しています。
１）テーブル名：テーブル１
２）id(オートナンバー型)
３）Excel_file(OLEオブジェクト型)
２．やりたいこと
コマンドボタン押下後に、テーブル上のExcel_fileをオープンする
３．現状のコード
Public Sub Command1_Click()
Dim cnn1 As New ADODB.Connection 'コネクション
Dim rst As New ADODB.Recordset 'レコードセット
Dim strCnn As String '接続文字列
'接続文字列
strCnn = "Provider=Microsoft.Jet.OLEDB.4.0; "
strCnn = strCnn & "Data Source=E:\Flets\Excelファイル表示.mdb"
'接続の確立
cnn1.Open strCnn
' テーブル１のオープン
rst.Open "テーブル１", cnn1, adOpenKeyset, adLockPessimistic
'★★★わからないところ★★★★★★★★★★★★★★★★★★★★★★
'テーブル内のExcel_fileフィールドに格納されているOLEオブジェクト
'型のExcelファイルをオープンする
'最終レコードまでの繰り返し
Do Until rst.EOF
Loop
'★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★
'オブジェクトの開放
Set rst = Nothing
Set cnn1 = Nothing
'レコードセット、接続のクローズ
rst.Close
cnn1.Close
End Sub