vba mysql查询数组中,mysql – 使用VBA在Excel中使用SQL样式查询

我有一个大的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数据对象库.

标签:sql,mysql,excel,vba

来源: https://codeday.me/bug/20190826/1725213.html

建立运行环境-Excel Vba,可移植到VB环境(需修改一些代码) '仿制简单的SQL查询语句,用于对二维数组查询 '参照SQL语句:Select * From array [Where conditions] [Distinct fields] [ResultWithTitle] ' '实现功能: ' 依条件设置查询数组,返回包含查询字段(或全部字段)的数组,可多条件组合。 ' 条件运算符包括:> = < >= <= <> , like(正则表达式) ' '附注: ' 使用此函数,需要在文件引用正则表达式脚本 Microsoft VBScript Regular Expressions x.x ' (根据不同的电脑配置和环境此处会有差异) '算法简要: ' 1、查询条件运算符:仅有 >, =, <, >=, <=, <> , like(正则表达式) ' 本函数仅有上述运算符。原因在于,更多的运算符编制逻辑过于复杂,又不太常用。 ' 为了尽可能多地容纳各种运算关系,添加了正则表达式匹配运算, ' 在某个单一条件,正则几乎可以容纳绝大部分的比对运算关系了。 ' 2、数字比较: ' 采用了将数字型字符串类型转换为数字之后再比较的方法,结果更为准确。 ' 3、其他算法和运算速度: ' 编制过程,试验过使用 正则+逻辑分支+表达式引用 的方法, ' 可以实现几乎等同于SQL查询语句的复杂功能,而且代码更简捷。 ' 但运算速度相差过于悬殊(大概几十到上百倍 - "一闪而过"和"一袋烟"的差距!),最后不得不放弃。 ' 所以现在的版本相当于一个简化了的select语句,但对于大多数查询情况而言够用了。
评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值