VBA IsNull处理

Question

大家好，我是vba的新手，我正在尝试将记录打印到Excel工作表上。

这是我的代码：

While Not ActualList.EOF
    Actual = ActualList("Actual")
    If IsNull(Actual) Then
        ActiveCell.Value = "0.00"
        ActiveCell.Offset(1, 0).Select
    Else
        Debug.Print Actual
        ActiveCell.Value = Actual
        ActiveCell.Offset(1, 0).Select
    End If
    ActualList.MoveNext
Wend

ActualList记录集有4个项目，并且包含空值。

更准确地说，它有以下项: 5960，NULL，NULL，NULL

我需要打印这些值，但是我得到的是0,0,0,0

请帮帮忙

Answer 1

在VBA中有几种不同类型的nothing。

使用特定错误代码String

• Various
• IsEmpty(v) - IsNull(v) - VT_NULL
• Nothing - VT_UNKNOWN -IsEmpty(v)-IsNull(v)- v Is Nothing -VT_UNKNOWN或
• - IsMissing(v) - VT_ERROR
• 空字符串
• 空种类为零。(Single、Double、Short、Long、Byte、Decimal、Currency等)

也有可能你得到的是一个字面意思为"NULL"的字符串

您应该做的是在该行上放置一个断点，并检查变量值。