EXCEL中使用SQL语言

　　 Dim myData As String, myTable As String, SQL As String
　　 Dim cnn As ADODB.Connection
　　 Dim rs As ADODB.Recordset
　　 Dim i As Integer
　　 myData = "Provider=Microsoft.Jet.OLEDB.4.0" &_
　　 ";Data Source=" & ThisWorkbook.FullName& _
　　 ";Extended Properties=""Excel 8.0;"""
　　 Set cnn = New ADODB.Connection
　　 With cnn
　　 .ConnectionString = myData
　　 .Open myData
　　 End With
　　 Dim strin As String
　　 strin = " First(序号) AS 序号, First(工厂) AS 工厂, First(主产品) AS 主产品,First(主产品描述) AS 主产品描述, 生产订单号, 作业类型, First(作业类型描述) AS 作业类型描述,Sum(数量) AS 数量, First(计量单位) AS 计量单位 "
　　 SQL = "select " & strin & " from[上载格式$A1:i15] group by 生产订单号, 作业类型"
　　 Set rs = New ADODB.Recordset
　　 rs.Open SQL, cnn, adOpenKeyset, adLockOptimistic
　　 Sheets("sheet1").Range("A2").CopyFromRecordset rs
　　 Sheets("上载格式").Rows(1).Copy
　　 Sheets("sheet1").Range("a1").Select
　　 ActiveSheet.Paste

执行insertinto命令

       Dim sql1 AsString

          sql1 = "insert into [处理后$]select '管理' as 部门, * from [" & thisst.Name& "$A1:n65536] where 姓名='" &rs.Fields("姓名").Value & "'"

          cnn.Execute sql1