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

silenceboy · 发表于 2007-2-24 17:00:00

我在“excel自动填充内容问题”中担了个问题，startme大侠给了以下建议：
获取最末行用ActiveSheet.Cells.SpecialCells(xlCellTypeLastCell).Row，但我在执行该语句时系统提示错误，通不过
我想请教各位高手一下，自样才能正确的获取最末行的行号，给简单的写几行源码吧，谢谢了。

mccad · 发表于 2007-2-24 17:41:00

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

silenceboy · 发表于 2007-2-25 11:08:00

我就是先在EXCEL中调试的啊

StartMe · 发表于 2007-2-26 23:01:00

提示出错？那不应该是这语句的错误吧。
给你一段测试源码，试试。
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

nqgq2aderr1.jpg