Question

03版EXCEL运行宏时提示错误6：溢出，怎么解决？

.Item(stUl & "sendusing") = 2 '发 送端口 .Item(stUl & "smtpauthenticate") = 1 ' Dim n As Integer Dim stm As String Dim i As Integer 'n = [B10000].End(xlUp).Row n = Range("B4").End(xlDown).Row 'endRowNo = ActiveSheet.Range("A65535").End(xlUp).Row For i = 4 To n stm = Cells(2, 2) stm = Trim(stm) cm.To = Cells(i, 5) '设置收信人的邮箱 cm.textbody = stm '使用html格式发送邮件 cm.Subject = Cells(i, 6) '设定邮件的主题，按你的需要改动 If Cells(i, 7) <> "" Then cm.AddAttachment (Cells(i, 7)) 'If Cells(i, 3) > 0 Then cm.AddAttachment ("C:\Documents and Settings\gss\桌面\群发邮件\" & Cells(i, 3)) .Update cm.Send '发送 cm.Attachments.DeleteAll

Next

Answer 1

你现在的n最大不能超过32767，所以如果你的B列连续数据超过这个数量，那会回出问题
建议吧n改成long型的变量