excel - 如何使用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