Vb6 运行时错误6-溢出

我想解析一个大尺寸的文本文件，文本文件的大小是257MB。解析大文件后，我使用listview查看解析数据，我想将其保存为excel文件，但每次单击“另存为excel文件”按钮时，我都会收到此错误“运行时6溢出”

下面是我将解析数据保存为excel文件的代码

Private Sub cmd_save_excel_Click()
Dim ExcelObj As Object
Dim ExcelBook As Object
Dim ExcelSheet As Object
Dim i As Integer





Set ExcelObj = New Excel.Application
Set ExcelBook = ExcelObj.Workbooks.Add
Set ExcelSheet = ExcelBook.Worksheets(1)

With ExcelSheet
For i = 1 To ListView1.ListItems.Count
'.Cells(i, 1) = ListView1.ListItems(i).Text
.Cells(i, 1) = ListView1.ListItems(i).SubItems(1)
.Cells(i, 2) = ListView1.ListItems(i).SubItems(2)
.Cells(i, 3) = ListView1.ListItems(i).SubItems(3)
.Cells(i, 4) = ListView1.ListItems(i).SubItems(4)
.Cells(i, 5) = ListView1.ListItems(i).SubItems(5)
.Cells(i, 6) = ListView1.ListItems(i).SubItems(6)
Next
End With

ExcelObj.Visible = True

Set ExcelSheet = Nothing
Set ExcelBook = Nothing
Set ExcelObj = Nothing

End Sub

我需要你的帮助！！提前感谢您。

如果您的项目数（

ListView1.ListItems.Count

）大于32767（整数的最大值），您将收到溢出错误

将您的声明更改为：

Dim i as Long

Long

将允许从-2147483648到2147483647的值

有关详细信息，请参阅。

如果您的项目数（

ListView1.ListItems.Count

）大于32767（整数的最大值），则会出现溢出错误

将您的声明更改为：

Dim i as Long

Long

将允许从-2147483648到2147483647的值

---

有关更多信息，请参阅。

我将尝试。谢谢：）我会试试的。谢谢：）好的，谢谢GSerg：）@JustinDavies你更改了OP的代码，并在建议的答案中进行了编辑，就好像它最初是在代码中一样。请不要这样做。好的，谢谢你，格斯伯格：）@JustinDavies你改变了OP的代码，并在建议的答案中进行了编辑，就好像它最初是在代码中一样。请不要那样做。