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)；