Excel VBAとADOを使用してクエリ結果をデータテーブルに入れる方法は？

Question

ODBC経由でADOを使用してデータベーステーブルからレコードを取り出し、Excelワークシートに配置したいと考えています。私がすることができます。最終的には、データをExcelテーブルに収めたいと思っています。適切なセルを選択し、[挿入]メニューを使用してテーブルを作成することで、手動でこれを行う方法を知っています。 VBAコードでこれを実行して、返されたクエリ結果をExcelワークシートのターゲットワークシートに配置する方法はありますか？私はマクロレコーダーを使ってみましたが、生成されたコードは役に立ちませんでした。

Answer 1

これは何か？

データをインポートした後にこのコードを追加します。私は次のことを仮定しています。それに応じて修正してください。

• データは

• のSheet1

  のセルA1にインポートされた行1、列ヘッダ

  Sub Sample() 
  
      Dim LastRow As Long, LastCol As Long 
      Dim ws As Worksheet 
      Dim rng As Range 
  
      Set ws = Sheets("Sheet1") 
  
      LastRow = ws.Range("A" & Rows.Count).End(xlUp).Row 
      LastCol = ws.Cells(1, Columns.Count).End(xlToLeft).Column 
  
      Set rng = Range("$A$1:$" & Split(Cells(, LastCol).Address, "$")(1) & "$" & LastRow) 
  
      With ws 
       .ListObjects.Add(xlSrcRange, rng, , xlYes).Name = "Table1" 
       .ListObjects("Table1").TableStyle = "TableStyleLight2" 
      End With 
  
  End Sub 
  

Answer 2

[データ]タブの[その他のソースから]ボタンをクリックすると、ODBCがリストされているはずです。次に、接続先の表を指定できます。あなたはあなたのデータを含んでいるリフレッシュ可能なテーブルを持っています。言い換えれば、あなたがしていることを1つのステップにしたいものと組み合わせます。あなたのコメントであなたが言ったことに基づいて、私はこれが行く方法だと思っていますが、もし私が何かを見逃しているなら教えてください。