导出Excel功能，如果行数超过65535行，怎么解决

Question

如题所述

Answer 1

超过就要分成多个表：
Sub bb()
Dim x&, y&, i&, j&
i = Int(总行数 / 50001 + 1) '
计算你要的表数
For x = 1 To i
j = x * 50000 - 50000 '计算每表的起始行对应的文本行号

For y = 1 To 50000
Sheets(x).Cells(y, 1) = j + y
'文本文件中的行号，这里写你要的代码，j+y是对应的文本文件中的行号
Next y
Next x
End Sub

Answer 2

1、更换Excel版本，2007版以上有一百多万行，应该可以满足要求；
2、同一个工作簿分页存放，每个表放65535行，多个表来存放。

Answer 3

换高版本（2007及以上）excel