Question

vb获取excel最后一个非空行的行号

我原来是用的：rowscount = Val(xlsheet.UsedRange.Rows.Count)，但是如果最后的几行如果编辑过即使是非空它也会统计在内，有什么好办法只统计最后一个非空行的行号，求助

Answer 1

range("A65536").end(xlup).row
返回\A列 最后一个非空行，Excel 2003 的极限是 65536行，如果你比65536行多，可以把这个改大

追问

Set xlApp = CreateObject("Excel.Application")
Set xlBook = xlApp.Workbooks.Open(part)
Set xlsheet = xlBook.Worksheets(1)
s = xlsheet.Range("c65536").End(xlUp).Row
运行提示“对象‘Range’的方法‘_Worksheet’失败”

追答

你在哪里写的 Macro？
Access 还是Outlook

Answer 2

range("a65536").end(xlup).row

追问

Set xlApp = CreateObject("Excel.Application")
Set xlBook = xlApp.Workbooks.Open(part)
Set xlsheet = xlBook.Worksheets(1)

rowscount = xlsheet.Range("c65536").End(xlUp).Row
是这样写吗

追答

是的，不过如果不是在EXCEL中写的可能无效