Excel空单元格传入SQL Server显示0而非NULL的原因及解决方法

为什么会出现一列是NULL、一列是0的情况？ #

你代码里的变量声明藏了个VBA的经典小坑：

Dim pt, bank As Integer

在VBA中，这种一行声明多个变量的写法，只有最后一个变量bank是Integer类型，前面的pt其实是默认的Variant类型。

这直接导致了两列的差异：

• 当Excel单元格为空时，赋值给Variant类型的pt，它会保留Empty状态；ADODB在传递这个参数时，会自动把Empty转换成SQL的NULL，所以最终SQL表里存的是NULL。
• 而赋值给Integer类型的bank时，VBA会把空单元格的默认值（0）赋给它，传递到SQL后就变成了0，而非你期望的NULL。

另外，你代码里的判断逻辑If IsEmpty(Range("D" & elsosor)) = False Or IsEmpty(Range("E" & elsosor)) = False Then也有瑕疵：只要其中一列非空就执行插入，但如果某一列是空的，对应的变量还是会被赋值（pt或bank变成0/Empty），没法保证统一传NULL的需求。

如何实现空单元格统一传入NULL？ #

你需要做两个关键修改：

1. 修正变量声明，统一用Variant类型存储单元格值

把pt和bank改成Variant类型，这样才能保留空单元格的Empty状态，避免被自动转为0：

Dim pt As Variant, bank As Variant

2. 在赋值时判断单元格是否为空，手动将空值转为NULL传递给参数

在给ADODB参数赋值前，检查变量是否为Empty，如果是，就传递Null而不是变量本身：

' 先获取单元格值
pt = .Cells(elsosor, 4).Value
bank = .Cells(elsosor, 5).Value

' 创建参数时处理空值，转为SQL的NULL
cmd.Parameters.Append cmd.CreateParameter("@pt", adInteger, adParamInput, , IIf(IsEmpty(pt), Null, pt))
cmd.Parameters.Append cmd.CreateParameter("@bank", adInteger, adParamInput, , IIf(IsEmpty(bank), Null, bank))

3. 优化判断逻辑（可选）

如果你想只有当至少有一个非空值时才执行插入，可以把判断条件改成更直观的写法：

If Not IsEmpty(pt) Or Not IsEmpty(bank) Then

修改后的完整VBA代码片段 #

Dim rst As New ADODB.Recordset
Dim cmd As ADODB.Command
Dim query As String
Global ktghnev As String
Global ktghID As Integer
Dim elsosor As Integer
Dim pt As Variant, bank As Variant ' 修正变量类型
Dim fizmod As String
Dim honap As String
With ActiveSheet
    elsosor = 3
    Do Until .Cells(elsosor, 1) = ""
        nevID = .Cells(elsosor, 1)
        pt = .Cells(elsosor, 4).Value
        bank = .Cells(elsosor, 5).Value
        
        ' 优化判断条件：只要pt或bank有一个非空就执行插入
        If Not IsEmpty(pt) Or Not IsEmpty(bank) Then
            Set cmd = New ADODB.Command
            cmd.ActiveConnection = cnn
            cmd.CommandType = adCmdStoredProc
            cmd.CommandText = "EURfeltoltes"
            cmd.Parameters.Append cmd.CreateParameter("@nevID", adInteger, adParamInput, , nevID)
            cmd.Parameters.Append cmd.CreateParameter("@ktghID", adInteger, adParamInput, , ktghID)
            cmd.Parameters.Append cmd.CreateParameter("@honap", adVarChar, adParamInput, 10, honap)
            ' 处理空值，转为SQL的NULL
            cmd.Parameters.Append cmd.CreateParameter("@pt", adInteger, adParamInput, , IIf(IsEmpty(pt), Null, pt))
            cmd.Parameters.Append cmd.CreateParameter("@bank", adInteger, adParamInput, , IIf(IsEmpty(bank), Null, bank))
            cmd.Execute
        End If
        elsosor = elsosor + 1
    Loop
End With

关于存储过程的说明 #

你的存储过程参数已经默认设置为NULL，所以当VBA传递Null时，存储过程会使用默认的NULL值插入到表中，完全符合你的需求，不需要修改存储过程代码。

内容的提问来源于stack exchange，提问作者ajudi