首页 > 代码库 > Excel 执行Sql 将查询结果输出到EXCEL指定位置

Excel 执行Sql 将查询结果输出到EXCEL指定位置

Dim cnn,strSql

Set cnn = CreateObject("adodb.connection")
cnn.Open "driver={sql server};server=10.2.*.1;uid=xiaoming;database=DBprod;pwd=123456"

strSQL = "select top 10 * from usertable "

Sheets("TEST1").Range("a2").CopyFromRecordset cnn.Execute(strSQL)


    

 

Excel 执行Sql 将查询结果输出到EXCEL指定位置