[求组成EXCEL表格的IF语句]求组成EXCEL表格的IF语句=IF(K2=0,"无记录",IF(K2=I2,"正常考勤",0))...+阅读
1. 在宏编辑界面中进行SQL数据查询以及生成报表的代码如下：
Sub Static()
Dim objNewWorkbook As Workbook '定义一个Workbook对象
Set objNewWorkbook = Workbooks.Add(ThisWorkbook.Path & ＂\模板.xlt＂) '使用模板文件新建一个EXCEL报表生成文件
Set objConnection = CreateObject(＂ADODB.Connection＂) '创建一个ADO连接
objConnection.Open ＂Provider=Microsoft.Jet.Oledb.4.0;Extended;Data Source=＂ & ThisWorkbook.FullName '设置连接字符串
strCommand = ＂select 施工人， count(*) as 拆电话 from [＂ & Sheet1.Name & ＂$] where 施工动作 = '拆' and 专业类型 = '电话' group by 施工人＂ '查询表单一中的数据源进行统计
?objNewWorkbook.Sheets(1).Range(＂A3＂).CopyFromRecordset objConnection.Execute(strCommand)
2.将查询统计结果输出到目的报表文件的表单1的从A3开始的区域中
3.下面代码是调用EXCEL的排序方式进行汉字排序，这里SQL语句中的排序对于汉字排序与期望结果不同
4.使用EXCEL中的排序方法是根据EXCEL版本不同调用有所区别
Select Case Application.Version
Case ＂11.0＂:
objNewWorkbook.Sheets(1).Range(＂A3:M＂ & CStr(intSumRow - 1)).Sort Key1:=objNewWorkbook.Sheets(1).Range(＂A3＂), Order1:=xlAscending, Header:=xlNo, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, SortMethod _
:=xlPinYin, DataOption1:=xlSortNormal
Case ＂12.0＂:
objNewWorkbook.Sheets(1).Sort.SortFields.Clear
objNewWorkbook.Sheets(1).Sort.SortFields.Add Key:=Range(＂A3:A＂ & CStr(intSumRow - 1)), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
With objNewWorkbook.Sheets(1).Sort
.SetRange Range(＂A2:M＂ & CStr(intSumRow - 1))
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
Case Else
End Select
objConnection.Close
End Sub
本文地址：https://www.docexcel.net/show/3_30388.html
以下为关联文档：
急，EXCEL中IF语句问题急，EXCEL中IF语句问题＝if(a12,a1*1.4,if(a1=0.1,a1*1.1,a1*1))...
select * from 表 where 日期=某个时间sql语句执（select * from 表 where 日期='某个时间'）sql语句执行结果跟EXCEL函数应该如何写才能得到一样的结果。excel里直接用筛选。如果是vba的话 Cells.SelectSelection.AutoFilte...
请教EXCEL函数语句解决工资计提方法，谢谢！请教EXCEL函数语句解决工资计提方法，谢谢！=ROUND(IF(D2-LOOKUP(B2,{0,210,240,300},{22000,25000,30000,38000})0,D2*LOOKUP(B2,{0,210,240,300},{0.02,0.1,0.09,0.08}),D2*L...
SKILL什么语句能调用外部SKILL什么语句能调用外部.exe或.bat程序，怎么打开一个EXCEL文件？axlHttp函数或者调用system命令 查看更多答案...
通过Excel生成批量SQL语句Excel快速生成SQL更新语句用户给发过来一些数据，要我们直接给存放到数据库里面，有的是Insert，有的是Update等等，少量的数据我们可以采取最原始的办法，也就是在SQL里面用Inse...
在Excel中使用SQL语句进行数据筛选的方法介绍在上篇文章中我们介绍了如何使用SQL语句实现对Excel工作表数据的查询？ 本文图文介绍在Excel中使用SQL语句进行数据筛选的方法,帮助大家更好的使用Exc...
如何使用SQL语句实现对Excel工作表数据的查询SQL语句可以在任何关系型数据库管理系统中使用，那么，如何使用SQL语句实现对Excel工作表数据的查询呢？今天脚本之家小编就给大家介绍用SQL语句查询Exce...
EXCEL中是SQL语句需要导入的数据如图 在excel中添加列，并写入拼装脚本，如图 鼠标往下拖拽第一条数据单元格右下角的点，如下图 完成所有的拖动，如下图 选择带有所需数据的单元格，并复制，如图 6...
如何在excel中加入sql语句Set conn = CreateObject(＂adodb.connection＂) conn.Open ＂provider=microsoft.jet.oledb.4.0;extended properties=excel 8.0;data source=＂ & ThisWorkbook.FullName Sql = ＂ s...
