アクセスでコマンドをクリックエクセル文書表示

質問

教えてください。
アクセス2003を使っています。
フォームデザインでコマンドボタンを貼り付けてこれをクリックすると、デスクトップ上にあるフォルダー「A]の中の、エクセルの「表１」というデータを開きたいのですが、どんなにしたらよろしいでしょうか？
よろしくお願いいたします。

回答No.1

ShowMeHow · ベストアンサー

Dim oXL As Object
Dim oWkb As Object
Dim oWsh As Object
Dim sFullPath As String

Set oXL = CreateObject("Excel.Application")
On Error Resume Next
oXL.UserControl = True 'XL 97 supports UserControl Property
On Error GoTo ErrHandle
sFullPath = "C:\Documents and Settings\Default User\デスクトップ\A\表1.xls"

Set oWkb = oXL.Workbooks.Open(sFullPath)
Set oWsh = oWkb.Worksheets("Sheet1")
oXL.Visible = True
oWsh.Select

ErrExit:
Set oXL = Nothing
Exit Sub

ErrHandle:
oXL.Visible = False
MsgBox Err.Description
GoTo ErrExit

とか、、、
ファイルパスは要確認

お礼

非常に早い回答をありがとうございました。
一発で成功しました。こんなに長い文をすぐに回答できるなんて感心しました。一般人とは思えません。今後ともよろしくお願いいたします。
☆驚愕☆

回答No.2

imogasi

こういうのは気に食わないでしょうね。
Private Sub コマンド0_Click()
DoCmd.TransferSpreadsheet acImport, 8, _
"社員6", "C:\Documents and Settings\XXXX\My Documents\XXXX.xls", True, "Sheet1!A1:G12"
DoCmd.OpenForm "社員6"
End Sub
DoCmd.TransferSpreadsheet acImportで社員6テーブルをつくり
そのテーブルに連結して表形式のオートフォームを作っておいて
上記をコマンドボタンクリックで実行。
ファイルパス、シート、セル範囲は実情に合わせること。

お礼

続いて、他の方法を教えて頂きました。
”食いました”→訂正→”入りました”笑

ありがとうございました。手続きは、テーブル作りと、フォーム作りで、やや、複雑でしたが、やってみるとうまくいきました。色んな方法があるものだと感心させられ、勉強になりました。
今後ともよろしくお願いいたします。。