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

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

<p>我在“excel自动填充内容问题”<a href="http://bbs.mjtd.com/forum.php?mod=viewthread&tid=58141">http://bbs.mjtd.com/forum.php?mod=viewthread&tid=58141</a>中担了个问题，startme大侠给了以下建议：</p><p>获取最末行用ActiveSheet.Cells.SpecialCells(xlCellTypeLastCell).Row，但我在执行该语句时系统提示错误，通不过</p><p>我想请教各位高手一下，自样才能正确的获取最末行的行号，给简单的写几行源码吧，谢谢了。</p>

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

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

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

<p>我就是先在EXCEL中调试的啊</p>

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

本帖最后由 作者 于 2007-2-26 23:02:42 编辑 <br /><br /> <p>提示出错？那不应该是这语句的错误吧。</p><p>给你一段测试源码，试试。</p><p>Private Sub Command1_Click()<br/>&nbsp;&nbsp;&nbsp; '连接Excel<br/>&nbsp;&nbsp;&nbsp; On Error Resume Next<br/>&nbsp;&nbsp;&nbsp; Set xlapp = GetObject(, "Excel.Application")<br/>&nbsp;&nbsp;&nbsp; If Err Then<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; MsgBox "没有运行的 Excel 应用程序,无法操作!", , "目标错误:"<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Exit Sub<br/>&nbsp;&nbsp;&nbsp; End If<br/>&nbsp;&nbsp;&nbsp; xlapp.Visible = True '界面可视<br/>&nbsp;&nbsp;&nbsp; AppActivate (xlapp.Caption) '显示界面<br/>&nbsp;&nbsp;&nbsp; <br/>&nbsp;&nbsp;&nbsp; Dim xEndRow As Integer<br/>&nbsp;&nbsp;&nbsp; Set xlSheet = xlapp.ActiveSheet<br/>&nbsp;<font color="#ff3300">&nbsp;&nbsp; xEndRow = xlSheet.Cells.SpecialCells(xlCellTypeLastCell).Row&nbsp; '记录当前工作表最后一行有数值的行号<br/></font>&nbsp;&nbsp;&nbsp; MsgBox xEndRow, vbInformation + vbSystemModal, "LastRow"<br/>End Sub<br/></p><p>&nbsp;</p>

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

你应该不会忘了引用吧。

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

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

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

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