excel点滴滴

Sub LS()
Dim Rst As New ADODB.Recordset
Set Cnn = New ADODB.Connection

Cnn.Open "Provider = MicroSoft.Jet.OLEDB.4.0; Extended Properties = 'Excel 8.0;imex=1'; Data Source = " & _
ThisWorkbook.FullName

关键点为粉色

Sql = "Select 连接尺寸及标准, COUNT(LEFT(密封面形式,2))" & _
" From [Sheet1$] group by 连接尺寸及标准,密封面形式 "

Rst.Open Sql, Cnn, adOpenStatic
Sheet3.Range("A2").CopyFromRecordset Rst
End Sub


adoquery1.SaveToFile('filename.xml',pfXML)；