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



StartMe 发表于 2007-2-26 23:04:00

你应该不会忘了引用吧。

silenceboy 发表于 2007-2-27 21:33:00

感谢谢大的关心
我已经使用usedrange.rows.count搞定了，
非常感谢

silenceboy 发表于 2007-2-27 21:34:00

感谢startme
是我搞错了
页: [1]
查看完整版本: 向大家请教，版主请进-->