excel导入sql时数据溢出怎么办

可能是百出现了被0除的现象(即Range("Z" & i)=0)
再者,前面的度a也缺少变量申明，当然，如果申明了公知共变量就另当别论了。道
建议将第回一行On Error Resume Next删除，再进行调试，不难发现问题所在。答

找到具体的数据，
1. 增加表中数据列的长度， 比如varchar(20)改成varchar(200)
2. 手工修改excel中的数据，截断多余的字符，或者数字
改成这样：
Sub 双倍来余额递减法()
Dim yz,nx,cz,zj ,zjh
Sheets("固定资产折旧处理源系统").Select
yz = Cells(3, 2)
nx = Cells(4, 2)
cz = Cells(5, 2)
For i = 1 To nx
if i<nx-1 then
Cells(5 + i, 8) = yz * 2 / nx
yz = yz - Cells(5 + i, 8)
else
Cells(5 + i, 8) = (yz - cz) / 2
End If
Next i
Sheets("固定资产折旧处理系统").Select
End Sub
测试一下，看看对不，不对zd继续问我，应该是没问题

Dim Ro1&, Co%, I%, Ra As Range 改成百Dim Ro1&, Co%, I&, Ra As Range
i由整型改为长整度型，另外excel最大行数知好像道是65536吧，i如果超过回65536，后面 Range("B" & I) 也会答出错。