「外部データの取り込み」機能を使って取り込まれた情報は、シート上の埋め込みオブジェクトの1つ(QueryTableオブジェクト)として扱われる。 QueryTableオブジェクトを追加する Sub 新規クエリテーブルの作成() Dim myQT As QueryTable Dim conSTR As String, strSQL As String '接続文字列 conSTR = "OLEDB;" & _ "Provider=Microsoft.Jet.OLEDB.4.0;" & _ "Data Source=" & ThisWorkbook.Path & "\mdb\4-sampleDB.mdb" '取り込むテーブル strSQL = "社員" '新規QueryTableオブジェクトを追加 Set myQT = ActiveSheet.QueryTables.Add(conSTR, Ra
![結合するために「外部データの取り込み」機能を使用する - 覚え書き ExcelVBAでデータベース操作](https://cdn-ak-scissors.b.st-hatena.com/image/square/b4c574e1f731858b368790c95f816d69bfb015e0/height=288;version=1;width=512/https%3A%2F%2Fantonsan.net%2Fvt%2Fimg%2F4-s6_img5_1.gif)