VB 学习笔记

旧城等待， 2022-05-24 13:07 269阅读 0赞

这一个月由于工作的需要，学习了一点 VB.net 操作 Excel，记录一下笔记

#### vb 里面的下标 ####

vb 里面的下标有三种：

*  **从 0 开始：**当我们在 vb 中定义一个数组时，下标只能从 0 开始  
    
    
     *  `Dim arr(2) as String` 中的 arr 数组长度为 `3` 注意不是 `2`
     *  `Dim arr(1 to 10) as String` 则会报错 `数组的下限只能是 0`
 *  **从 1 开始：**主要用于从 0 开始会引发异常的 collections 比如 Tabs, Pages, Controls(listBox, TextBox)，Excel 里面的复杂类型下标都是从 1 开始
 *  **字典类型** 下标为键值

在代码中尽量使用 LBound 和 UBound 来获取数组最小和最大下标，可以在模块中使用`option base 1` 来指定下标从 1 开始

[VBA 数组下标详解][VBA]  
[VBA option base 使用][VBA option base]

#### 关于 Excel lastUsedRow 和 lastUsedColumn ####

Excel 中 `Worksheet.UsedRange.Rows` 是指 Excel 工作簿中第一个不为空的行到最后一个不为空的行之间的行数 R，所以如果工作簿中一开始有空行的话，最后返回的结果为「R - 开头空的行数」，所以可能不是我们所预期的结果。

所以不要依靠 `Worksheet.UsedRange.Rows` 来获取最后一行而应该使用参考链接的方法

[关于获取 Excel last rows][Excel last rows]

[为什么 vb 中使用 Worksheet.UsedRange.Rows.Count 得到的结果是错的][vb _ Worksheet.UsedRange.Rows.Count]

#### 关于 vb 的异常处理 ####

VB 中使用 try catch 捕获异常，使用 throw 抛出异常。

但是如果有两个类分别在两个模块中，想在 A 类模块的函数中调用 B 类中的函数并捕获 B 类函数的异常，就会报个警告：`Exception 类型异常在「模块 2」中发生但未处理`

# 模块 1
    Public Class Test1
        Private T = new Class Test2
    
        Private Sub test1()
            Try
                T.Test()
            Catch ex as Exception
                MsgBox(ex.message)
            End Try
        End Sub
    
    End Class
    
    # 模块 2
    Public Class Test2
        Public Sub Test()
            Throw new Exception(“error”)
        End Sub
    End Class

[VBA]: https://superuser.com/questions/988321/which-excel-objects-are-zero-based-and-which-are-one-based
[VBA option base]: https://bettersolutions.com/vba/arrays/option-base-1.htm
[Excel last rows]: https://stackoverflow.com/questions/11169445/error-in-finding-last-used-cell-in-vba
[vb _ Worksheet.UsedRange.Rows.Count]: https://stackoverflow.com/questions/50434444/why-i-use-worksheet-usedrange-rows-count-got-wrong-result