vb软件运行一段时间 runtime error 6，求解，代码如下？

Dim sums As Integer 错误袜弯！

当 sums = 32767 时，相当于 09:06:07

当 sums 再加上 1 时就裂滑溢出了！

建议改肆好腊成：

Dim sums As Long

就应该能够解决这个问题了！

声明变量类型不正确！链坦

Dim y As Long, W As Long

特别是 Range.Row 的属性是 Long 型的。从 Excel2003 版本开始， 每段唤态个工作表最大行号为 65536；Excel2007版本握源以后每个工作表最大行号达到了 1048576。都已经超过了 Integer 型数的范围了 （-32768 ～ 32767）！

---