一个excel+SQL方法实例详细注释

我要在工作薄“SHEET1”中，汇总另一工作薄（此工作薄不需要打开）：“SHEET1（A1：A100）中的数据，并显示出来，这段代码如何写？  

 用excel+SQL方法

Private Sub CommandButton1_Click()
Set conn = CreateObject("ADODB.Connection")　　

'conn是建立的连接对象，用open打开

' 通过 CreateObject("ADODB.Connection")  这一句建立了一个数据库连接对象conn

' 在工程中就不再需要引用“Microsot ActiveX Data Objects 2.0 Library“ 对象

'设置对象 conn 为一个新的 ADO 链接实例,也可以用 set conn = New ADODB.Connection。
conn.Open "dsn=excel files;dbq=" & ThisWorkbook.Path & "/001.xls"
Sql = "select sum(分数) from [sheet1$]"
Sheets(1).[a2].CopyFromRecordset conn.Execute(Sql) 

' Execute是执行SQL查询语句的意思
conn.Close: Set conn = Nothing           ' conn.Close表示关闭conn连接

' Set conn = Nothing  是把连接对象conn置空，不然你退出了文件，但数据库还没有关闭

End Sub

请把这段代码的实