作者:乔山办公网日期:
返回目录:excel表格制作
例如百简单的从sheet1表中度的数据取到问表二答:
Sub 简单内查询()
Set cn = CreateObject("adodb.connection")
Set rs = CreateObject("adodb.recordset")
cn.Open "provider=microsoft.jet.oledb.4.0;Extended Properties='Excel 8.0';data source=" & ThisWorkbook.FullName
Sql = "select * from [sheet1$]"
Sheets(2).[A2].CopyFromRecordset cn.Execute(Sql)
MsgBox "取数容据成功"
Sheets("sheet2").Select
cn.Close
Set rs = Nothing
Set cn = Nothing
End Sub
在EXECL中无法使用SQL语句!因为excel没有内嵌sql语言,如果非想使用,zd那么你应该选用Access而不是excel。但是在SQL server等数据库中可以使用excel,也就是将excel转成数据库。
否则,只能使用excel中自带的各种函数实现。比如你要统计一个数据范围,版可以考虑使用if,如果计数的话,可以考虑使用ifcount,等等还有类似的平均值等统计函权数均可以在excel中查看!
如果是对输入值有限制的话,可以考虑使用vba进行宏编辑!