- 博客(3)
- 收藏
- 关注
原创 获取已使用单元格的结尾位置(包括格式化的空单元格)
Dim lLastRow As Long Dim lLastColumn As Long With Range("A1").SpecialCells(xlCellTypeLastCell) lLastRow =.Row lLastColumn =.Column End With SpecialCells 方法 返回一个 Range 对象,该对象代表与...
2016-02-02 16:42:31 234
原创 获取Excel Sheet中数据单元格的结尾位置
在Excel VBA开发过程中经常会遇到遍历Sheet中的数据,常常我们会使用 For i=1 To maxRow For j=1 To maxColumn Next j Next i 其中的maxRow和maxColumn是Sheet中数据所在行数的最大值和列数最大值(也就是结尾位置),使用UsedRange.Rows.Count和UsedRange.Co...
2016-02-02 15:19:18 625
原创 VBA 数据库链接之ADODB
Public gpgDB As ADODB.Connection Function DbConnect(ip As String, db As String, user As String, password As String) As Boolean On Error GoTo ThisEnd Set gpgDB = Nothing Set gpgDB = Ne...
2016-02-01 14:45:57 599
空空如也
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人