使用SQL语句查询表并将结果获取到另一个表

时间:2015-11-16 09:46:15

标签: sql excel vba excel-vba ado

在VBA中,我想使用SQL语句查询一个Excel表,并将结果输出到另一个Excel表。我需要一些方向来阅读,因为我很困惑。请原谅我一次在一个帖子中提出许多不同的问题,但问题涉及一个主题。

下面的代码(从here抓取)看起来很简单并且有用:

Sub idee()
  ActiveWorkbook.Sheets.Add
  With ActiveSheet.QueryTables.Add(“ODBC;DSN=Excel-bestanden;DBQ=E:TheDatabook.xls”,[H1])
    .CommandText = “SELECT name, number FROM TheData WHERE number =1″
    .Refresh False
  End With
End Sub

但是我想在那里使用正确的连接字符串(替换它:ODBC;DSN=Excel-bestanden;DBQ=E:TheDatabook.xls)并用QueryTable或ListObject表替换命名范围TheData,我想得到输出到QueryTable或ListObject表。

0 个答案:

没有答案