64位VBA中Long变量算术运算触发Error 6:Overflow问题求助

问题本质 #

即使在64位VBA环境中，Long数据类型依然是32位有符号整数，最大值为2147483647。当计算结果（比如市值除以股价得到的流通股数）超过这个值时，就会触发Error 6: Overflow溢出错误，和VBA的位数无关。

最简解决方法 #

直接将存储计算结果的变量类型替换为支持更大范围的类型：

方案1：使用64位整数类型（适用于结果为整数的场景） #

将变量声明从：

Dim lgSharesOutstanding As Long

修改为：

Dim lgSharesOutstanding As LongLong

LongLong是64位VBA支持的64位有符号整数，最大值为9223372036854775807，足以覆盖绝大多数流通股数的计算需求。

方案2：使用浮点类型（适用于允许小数结果的场景） #

如果计算结果允许包含小数（比如股价非整数导致的非整数股数），可以改用Double类型，它支持极大范围的数值存储：

Dim lgSharesOutstanding As Double

代码修改示例 #

修改后的出错代码片段：

lgRow = lgRow + 1
sgLabel = "Shares Outstanding (current, current)"
If wsUser.Cells(lgRow, 1) <> sgLabel Then
    wsUser.Cells(lgRow, 1) = sgLabel
End If
' 替换为LongLong或Double
Dim lgSharesOutstanding As LongLong
MsgBox "mktCap is " & ProfileValue(sgTickerSymbol, "mktCap") & ", price is " & ProfileValue(sgTickerSymbol, "price")

lgSharesOutstanding = ProfileValue(sgTickerSymbol, "mktCap") / ProfileValue(sgTickerSymbol, "price")

额外说明 #

• ProfileValue返回的Variant类型会自动适配LongLong或Double的赋值，无需额外类型转换，只要计算结果在目标类型的范围内就不会报错。
• 如果需要将结果写入Excel单元格，Excel的单元格格式支持大整数或浮点数值，不会出现存储问题。

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