VBA如何声明包含不同数据类型元素的数组

Question

我创建了一个数组来存储错误记录，它具有以下元素:序列号、文件名、错误类型、错误单元格、错误单元格值

到目前为止，我已经像这样声明了我的数组，然后稍后填充这些值。

Dim errorArray() As String

但理想情况下，我希望序列号是一个正确的整数，但它正在转换为字符串。我不知道如何正确声明这一点，以便我可以为第一个元素使用 Long 数据类型，为接下来的 3 个元素使用字符串，为最后一个元素使用变体。

Answer 1

在代码中创建私有(private)类型，如下所示:

Private Type ErrRecord
    SerialNo As Long
    FileName As String
    ErrorType As String
    ErrorCell As String
    ErrorCellValue As Variant
End Type

然后在你的例程中，这样调用它:

Dim errorArray(0) As ErrRecord
With errorArray(0)
    .SerialNo = 12345
    .FileName = "Test.xls"
    .ErrorType = "Bad error"
    .ErrorCell = "1234"
    .ErrorCellValue = "Test"
End With