ＤＡＯ外部エクセルに接続しデータ読み込み

いつもお世話になっております。
下記のｺｰﾄﾞはエクセル標準モジュールに書いています。
が他のエクセルからデータ読み込み場合
どうしたらよいのかおしえてくれませんでしょうか

検索でみつけたのですが、わかりませ

Private Sub ボタン_Click() '任意フォームのボタンクリックで起動
Dim daoDB As DAO.Database 'データベースオブジェクト
Dim daoRs As DAO.Recordset 'レコードセットオブジェクト
Dim strSQL As String 'SQL文用文字列

Set daoDB = daoDB
strSQL = "SELECT * FROM テーブル名 WHERE 条件;" 'SQL文作成
Set daoRs = daoDB.OpenRecordset(strSQL) 'レコード抽出

If daoRs.BOF = True And daoRs.EOF = True Then '存在チェック
MsgBox "レコードが存在しません。" 'メッセージ
GoTo Finally '後処理へジャンプ
End If

Do Until daoRs.EOF '抽出したレコードが終了するまで処理を繰り返す
Debug.Print daoRs!フィールド名 'フィールドを取り出す
daoRs.MoveNext '次のレコードに移動する
Loop

Finally: '後処理
'閉じる
daoRs.Close
daoDB.Close
'オブジェクトの破棄
Set daoRs = Nothing
Set daoDB = Nothing
End Sub

No.1 ベストアンサー 回答者： めぐみん_ 回答日時： 2020/10/31 08:33

＞下記のｺｰﾄﾞはエクセル標準モジュールに書いています。

どこから見つけてきたのかわかりませんけど、このコードってAccessVBAの物ですよ。（確か）

この回答へのお礼

いつも有難うございます。
そうですか

ありがとうございました

お礼日時：2020/11/01 09:34