首页 / MYSQL / mysql – 使用VBA在Excel中使用SQL样式查询

mysql – 使用VBA在Excel中使用SQL样式查询

内容导读

互联网集市收集整理的这篇技术教程文章主要介绍了mysql – 使用VBA在Excel中使用SQL样式查询，小编现在分享给大家，供广大互联网技能从业者学习和参考。文章包含1632字，纯文字阅读大概需要3分钟。

内容图文

我有一个大的excel表,看起来像这样：

date       |  name  |  age  |  type
10/10/2012 | James  |  12   |  man 
11/10/2012 | Jane   |  50   |  woman 
12/10/2012 | Freddy |  2    |  dog
13/10/2012 | Bob    |  23   |  man
14/10/2012 | Mary   |  34   |  woman

我想要做的是创建一个新的,动态生成的表格,显示所有人.

在SQL中,这将是一个同步：“SELECT * FROM table WHERE type =’men’”.我之前从未在excel中使用过VBA(因为我是一名经验丰富的PHP / Javascript程序员,并且在MS Access中使用了VBA)所以我正在寻找初学者的指示来帮助我入门.也许有人可以推荐一个简单的教程或博客文章来完成我需要做的事情？

解决方法:

它花了我一天的大部分时间,但我已经想到了这一点.这是代码：

Sub Excel_QueryTable()

Sheet2.Cells.ClearContents

Dim oCn As ADODB.Connection
Dim oRS As ADODB.Recordset
Dim ConnString As String
Dim SQL As String

Dim qt As QueryTable

ConnString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\t.xlsm;Extended Properties=Excel 8.0;Persist Security Info=False"
Set oCn = New ADODB.Connection
oCn.ConnectionString = ConnString
oCn.Open

SQL = "Select * from [Sheet1$] WHERE type='man'"

Set oRS = New ADODB.Recordset
oRS.Source = SQL
oRS.ActiveConnection = oCn
oRS.Open

Set qt = Worksheets(2).QueryTables.Add(Connection:=oRS, _
Destination:=Range("A1"))

qt.Refresh

If oRS.State <> adStateClosed Then
oRS.Close
End If

If Not oRS Is Nothing Then Set oRS = Nothing
If Not oCn Is Nothing Then Set oCn = Nothing

End Sub

要使这个工作在您自己的工作簿上,您需要将数据源路径更改为您正在使用的文件的名称.

查询中的[Sheet1 $]是您选择的工作表的名称(留在$中).

工作表(2)是要创建动态表的工作表编号.

此外,您需要通过转到Excel中VBA编辑器中的工具>引用来启用其中一个Microsoft Active X数据对象库.

内容总结

以上是互联网集市为您收集整理的mysql – 使用VBA在Excel中使用SQL样式查询全部内容，希望文章能够帮你解决mysql – 使用VBA在Excel中使用SQL样式查询所遇到的程序开发问题。 如果觉得互联网集市技术教程内容还不错，欢迎将互联网集市网站推荐给程序员好友。

内容备注

版权声明：本文内容由互联网用户自发贡献，该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务，不拥有所有权，不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容， 请发送邮件至 gblab@vip.qq.com 举报，一经查实，本站将立刻删除。

内容手机端

扫描二维码推送至手机访问。

本文链接：https://qyyshop.com/info/893445.html

来源：【匿名】