test

End Sub'**************************************************'函数名： SQLtoExcel()'作  用：从sqlserver中导出数据到excel的当前工作表中'参  数：strSql------SQL查询语句'返回值：无'**************************************************Public Sub SQLtoExcel(strSQL As String)Dim clsStoE As New AccessSQLclsStoE.DBName = "student"  'sqlserver中数据库的名称clsStoE.RunSQL strSQL'将数据从sqlserver中导入到excel中Dim i As IntegerFor i = 1 To clsStoE.rs.Fields.Count'从数据库中导入字段名称    ActiveSheet.Cells(1, i) = clsStoE.rs.Fields(i - 1).NameNext i'将数据复制到excel中ActiveSheet.Cells(2, 1).CopyFromRecordset clsStoE.rsclsStoE.CloseConnEnd Sub