我要在工作薄“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
请把这段代码的实