ACCESS

質問

ACCESSのデータをEXCEL上にリンクさせる方法を教えてください。

現在ACCESSで作成咲いたデータ(クエリ、デーブル）をEXCELにエクスポートして、編集後、Word文章に画像にて転記させていますが、この作業EXCEL上にリンクで反映させる方法を教えてください。またここでのACCESSとEXCELの関係は、他のACCESSとEXCELの関係で使用できれば幸いです。

回答No.3

chayamati

VBAは大丈夫ですか
参考URLを参考にしてください

参考URL：

http://www.accessclub.jp/samplefile/samplefile_126.htm

回答No.2

Zero_0

リンク的に更新されるものではありません。
Excel上からアクセスファイルにデータをとりに行くものです。

もちろん、Excel起動時にこのマクロ(VBA)を自動実行させれば、Excel起動時に最新のデータを読み込んでくることになります。
しかし、Access上のデータが多くなるとExcelの起動待ち時間が長くなります。Excelシートにボタンを作り、必要に応じてボタンを押すことでデータを読ませる方が気持ちよく動くかもしれません。

お礼

回答ありがとうございます。大変ためになりました。

回答No.1

Zero_0

ExcelでAccessのデータを引き抜けばよいのでしょうか。
サンプルを乗せます。

Sub データ読み込み()
'
'Accessでつくられたデータを、ADOで開き順にシートに取り込む。
' ツール　→　参照設定　→　Microsoft ActiveX Obujects 2.6 Library(2.6以降でOK)
'
Dim Cnn As ADODB.Connection

Application.Calculation = xlManual '自動計算停止

Sheets("取り込むシート").Select

Accessファイル名 = "****.mdb" 'Accessファイル名

Set Cnn = New ADODB.Connection

Cnn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source=" & Accessファイル名
On Error GoTo 読み込めないエラー
Cnn.Open
On Error GoTo 0
n = 1 '読み込み開始行-1
Set Rs = New Recordset
Rs.Open "テーブル名", Cnn
Rs.MoveFirst
Do Until Rs.EOF = True
n = n + 1
Cells(n, 1) = Rs!項目名１
Cells(n, 2) = Rs!項目名２
Cells(n, 3) = Rs!項目名３
Rs.MoveNext
Loop
Rs.Close
Set Rs = Nothing

Cnn.Close
Set Cnn = Nothing
' MsgBox "読み込み完了"
ExitP:
Application.Calculation = xlAutomatic '自動計算開始

Exit Sub

読み込めないエラー:
MsgBox "ファイルが存在しません。ファイルの指定を確認して下さい。"
Resume ExitP
End Sub
このようなマクロで、名簿をExcelに取り出しています。

お礼

回答有難うございます。試して見ます。また助けてください。

補足

アドバイス有難うございます。
ところで、この方法は常に変更されるACCESS上のデータがEXCEL上のデータにリンク的に更新されるものなのでしょうか。現在はACCESS上のデータより、Excel上のツールバーにて、データ→外部データの取込→新しいデータベースクエリ→Ms access databaseにて目的のAccessテーブルよりExcelにリンク複写を行い、そのデータより作成した表を、コピーして画像(ビットマップ)にてWord文章に貼り付け、報告書としています。しかし、クエリデータの取得が出来ないとか、一度作成したリンクを新たに作成したAccess-Excelの関係で、リンク構成を再度行わなければならない問題があります。どうか良い方法を教えてください。