Excel 2013最大行数

Question

据我所知，Excel 2013的行数限制为1,048,576行（​​根据微软的说法）。是否有命令在达到最大行数时返回布尔值？我正在制作一个代码，一次一行地输出数据到工作表，它可能会超过最大行限制。

Answer 1

这很简单：

bEndOfSheet = (counter = Sheet1.Rows.Count)

Answer 2

您可以与建议结合使用的方法是使用

ActiveWorkbook.Excel8CompatibilityMode

如果返回true，则活动工作簿在Excel 2003或先前兼容模式下运行，并且限制为65,536行。如果为false，则表示有1,048,576行可用。示例空气代码：

If ActiveWorkbook.Excel8CompatibilityMode = False Then maxrows = 1048576 Else maxrows = 65536

然后在写入工作表时检查输出行与maxrows的对比。