摘要: 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("... 阅读全文
posted @ 2016-12-28 10:43 szlailai 阅读(725) 评论(0) 推荐(0) 编辑
摘要: dim iRow iRow = Range("A1000").End(xlUp).Row 阅读全文
posted @ 2016-12-28 10:39 szlailai 阅读(367) 评论(0) 推荐(0) 编辑