我们可以打开或新建一个工作簿，在该工作簿的Visual Basic编辑器下，编写VBA代码。运行VBA代码后，会在第一张工作表前插入新工作表，用于存放【SQL查询结果】。SQL基本查询的实际应用 以下SQL的基本查询语句，只要将代码第7行的sql语句替换即可。1、查询全部字段 2、查询部分字段 3、查询不重复的记录（di
对于SQL,这类问题,我们通常使用DISTINCT关键字处理。 其语法如下: SELECT DISTINCT 字段名 FROM 表名 举个简单栗子。 如上图所示,Excel工作表的表名为“学生表”,A列是姓名,B列是学科,其中A列的姓名存在重复,比如“看见星光”,现在需要使用SQL语句提取不重复的学生名单。 代码如下: SELECT DISTINCT 姓名 FROM [...
SQL基本查询的实际应用 以下SQL的基本查询语句,只要将代码第7行的sql语句替换即可。 1、查询全部字段 sql = "select * from [员工花名册$A1:I65536]" 2、查询部分字段 sql = "select 工号,姓名 from [员工花名册$A1:I65536]" 3、查询不重复的记录(distinct关键字) 例:对员工的英文名进行去重查询 sql =...
Excel,VBA,python 来自专栏 · Excel可以这么玩 1 人赞同了该文章 select 字段列表 from 表名 [where 条件] '查询全部字段(*) sql = "select * from 院系" '指定部分字段 sql = "select 姓名,性别,职称 from 导师" '提取不重复记录 sql = "select distinct 研究方向 from 学生" '排序 升序为asc,降序...
ExcelVBAADOSQL入门教程005:SQL之字段去重 1. 今天周末,明天是苦逼的周一……所以我们今就聊点简单的,就一个单词DISTINCT。 2. 在数据分析处理过程中,我们经常需要去除查询结果中的重复值,保留截然不同的唯一值。对于SQL,这类问题,我们通常使用DISTINCT关键字处理。 其语法如下: SELECT DISTINCT 字段名 FROM 表名...
" Exit Sub End If '添加收费项目分类节点 SQL = "select Distinct 项目分类码,项目分类 from tb收费项目 Where 使用状态 <> '封存' Order By 项目分类码 " aData = GetData(dataFile, SQL) iRow = UBound(aData, 2) For i = 0 To iRow Set Nodx = Me.TreeView1.Nodes.Ad...
在Excel VBA中将SQL查询的结果赋值给变量的方法 直接上代码示例: nowdate为日期型变量 strSql = "select DISTINCT 日期 from new_ubi_data ORDER BY 日期 DESC Limit 0,1" nowdate = AdoConn.Execute(strSql)(0) 在执行SQL查询语句后添加即可
6.xlsm"Dim sql As Stringsql = "Select DISTINCT 姓名 from [sheet1$] "With ActiveSheet.Range("a2:i100") = "" Set Rst = conn.Execute(sql) For i = 0 To Rst.Fields.Count - 1 .Cells(1, i + 1) = Rst.Fields(i).Name Next i .Range("a2").CopyFromRecordset conn.Execute(sql)End ...
strSQL = “SELECT DISTINCT m.物料, m.Seq, s1.物料凭证, s1.过帐日期, s1.数量, s2.交货单, s2.过帐日期, s2.数量,s3.参考凭证, s3.过帐日期, s3.数量,s4.参考凭证, s4.过帐日期, s4.数量 FROM ((([RawData] AS m LEFT JOIN (SELECT 物料,Seq, 物料凭证, 过帐日期, 数量 FROM [RawData...