向大家请教，版主请进-->

silenceboy

我在“excel自动填充内容问题”http://bbs.mjtd.com/forum.php?mod=viewthread&tid=58141中担了个问题，startme大侠给了以下建议：

获取最末行用ActiveSheet.Cells.SpecialCells(xlCellTypeLastCell).Row，但我在执行该语句时系统提示错误，通不过

我想请教各位高手一下，自样才能正确的获取最末行的行号，给简单的写几行源码吧，谢谢了。

mccad

如果不是在EXCEL中，可使用数字“11”来代替“xlCellTypeLastCell”

silenceboy

我就是先在EXCEL中调试的啊

StartMe

提示出错？那不应该是这语句的错误吧。

给你一段测试源码，试试。

Private Sub Command1_Click()
    '连接Excel
    On Error Resume Next
    Set xlapp = GetObject(, "Excel.Application")
    If Err Then
        MsgBox "没有运行的 Excel 应用程序,无法操作!", , "目标错误:"
        Exit Sub
    End If
    xlapp.Visible = True '界面可视
    AppActivate (xlapp.Caption) '显示界面
   
    Dim xEndRow As Integer
    Set xlSheet = xlapp.ActiveSheet
    xEndRow = xlSheet.Cells.SpecialCells(xlCellTypeLastCell).Row  '记录当前工作表最后一行有数值的行号
    MsgBox xEndRow, vbInformation + vbSystemModal, "LastRow"
End Sub

 

StartMe

你应该不会忘了引用吧。

silenceboy

感谢谢大的关心

我已经使用usedrange.rows.count搞定了，

非常感谢

silenceboy

感谢startme

是我搞错了