『AccessからExcel Fileの開き方』

タイトル通り、アクセスの中からエクセルファイルを開きたいのですが

どういう手法があるのでしょうか？

フォーム上でボタンをクリックすると開くようにしたいのです。

宜しくお願い致します。

No.1 回答者： laputart 回答日時： 2009/05/25 11:45

Accessを開いて、メインメニューからファイル→外部データの取り込み→インポート　とします。

　ダイアログが開くのでファイルの種類からEXCELを選択します。　あとはウィザードが動作しますのでファイルの名前入力→どのシート→新しいテーブルか既存のテーブルに追加などの選択肢を聞いてきますのでその都度選択していきます。

エクセルの一行目をタイトルにしておくとそのままテーブルのフィールド名とする事が出来ます。最初は小さなファイルで練習してみるといいと思います。

No.2 回答者： imogasi 回答日時： 2009/05/25 15:12

こんなところへ質問しなくても、Ｇｏｏｇｌｅで「アクセス　エクセル　開く」でＷＥＢ照会すればたくさん記事が出る課題です。

そういうものをよく読んで、なおかつ行き詰まった点（Ｘ）をこういうコーナーで質問するのが,このコーナーの有効な利用です。
（Ｘ）の点は解説書などにも書いてないことが多いから。この質問などアクセスＶＢＡの本（２０００円前後）でも買えば乗っているよ。
プログラムをやろうとするのに、ＷＥＢ照会もしないとは。
動いた一例　モジュールに（クリックイベントの場合は第2行から）
Sub test06()
'Private Sub cmdExcel_Click()
Dim objExcel As Object
Set objExcel = CreateObject("Excel.Application")
Dim wb As Object
Set wb = objExcel.workbooks.Open("xxxx.xls") 'ワークブックを開く
MsgBox wb.sheets(1).range("A1")
objExcel.Visible = True 'Excelを表示する
objExcel.ScreenUpdating = True 'Excelの画面を更新する
wb.close
set wb=nothing
Set objExcel = Nothing
End Sub

No.3 回答者： hotosys 回答日時： 2009/05/25 16:07

タイトル通りならこんなのでしょうか？

Private Sub コマンド0_Click()
With CreateObject("Excel.Application")
.UserControl = True 'CreateObject("Excel.Application")が解放されてもExcelを終了しないようにする
.Visible = True
.Workbooks.Add '新規のbookを作成する場合
'.Workbooks.Open ("C:\Book1.xls") '特定のBookを開く場合
End With
End Sub