随笔分类 -  VBA & 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("... 阅读全文
posted @ 2016-12-28 10:43 szlailai 阅读(772) 评论(0) 推荐(0)
vba 快速定位当前EXCEL最后一栏
摘要：工作的需要，有时会对EXCEL数据进行处理，比如格式化，有数据的单元格画横线。最初，傻傻的，直接用个循环从第1行，一直往后找，判断是否为空，真傻。Function FindLastCell() Dim i As Long For i = 1 To 65536 If Cells(i, 1).Value = "" Then Exit For End If i = i + 1 Next FindLastCell = i-1End Function 后来用CTRL+END，然后... 阅读全文
posted @ 2013-11-21 18:11 szlailai 阅读(658) 评论(0) 推荐(0)