码迷,mamicode.com
首页 > 数据库 > 详细

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

时间:2016-12-28 12:06:56      阅读:204      评论:0      收藏:0      [点我收藏+]

标签:rom   tab   输出   位置   div   exe   log   blog   test   

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指定位置

标签:rom   tab   输出   位置   div   exe   log   blog   test   

原文地址:http://www.cnblogs.com/sxypeace/p/6228545.html

(0)
(0)
   
举报
评论 一句话评论(0
登录后才能评论!
© 2014 mamicode.com 版权所有  联系我们:gaon5@hotmail.com
迷上了代码!