乐筑天下

搜索
欢迎各位开发者和用户入驻本平台 尊重版权,从我做起,拒绝盗版,拒绝倒卖 签到、发布资源、邀请好友注册,可以获得银币 请注意保管好自己的密码,避免账户资金被盗
查看: 93|回复: 6

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

[复制链接]

10

主题

22

帖子

1

银币

初露锋芒

Rank: 3Rank: 3Rank: 3

铜币
62
发表于 2007-2-24 17:00:00 | 显示全部楼层 |阅读模式
我在“excel自动填充内容问题”中担了个问题,startme大侠给了以下建议:
获取最末行用ActiveSheet.Cells.SpecialCells(xlCellTypeLastCell).Row,但我在执行该语句时系统提示错误,通不过
我想请教各位高手一下,自样才能正确的获取最末行的行号,给简单的写几行源码吧,谢谢了。
回复

使用道具 举报

158

主题

2315

帖子

10

银币

顶梁支柱

Rank: 50Rank: 50

铜币
2951
发表于 2007-2-24 17:41:00 | 显示全部楼层
如果不是在EXCEL中,可使用数字“11”来代替“xlCellTypeLastCell”
回复

使用道具 举报

10

主题

22

帖子

1

银币

初露锋芒

Rank: 3Rank: 3Rank: 3

铜币
62
发表于 2007-2-25 11:08:00 | 显示全部楼层
我就是先在EXCEL中调试的啊
回复

使用道具 举报

37

主题

151

帖子

1

银币

后起之秀

Rank: 20Rank: 20Rank: 20Rank: 20

铜币
299
发表于 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

nqgq2aderr1.jpg

回复

使用道具 举报

37

主题

151

帖子

1

银币

后起之秀

Rank: 20Rank: 20Rank: 20Rank: 20

铜币
299
发表于 2007-2-26 23:04:00 | 显示全部楼层
你应该不会忘了引用吧。
回复

使用道具 举报

10

主题

22

帖子

1

银币

初露锋芒

Rank: 3Rank: 3Rank: 3

铜币
62
发表于 2007-2-27 21:33:00 | 显示全部楼层
感谢谢大的关心
我已经使用usedrange.rows.count搞定了,
非常感谢
回复

使用道具 举报

10

主题

22

帖子

1

银币

初露锋芒

Rank: 3Rank: 3Rank: 3

铜币
62
发表于 2007-2-27 21:34:00 | 显示全部楼层
感谢startme
是我搞错了
回复

使用道具 举报

发表回复

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

  • 微信公众平台

  • 扫描访问手机版

  • 点击图片下载手机App

QQ|关于我们|小黑屋|乐筑天下 繁体中文

GMT+8, 2025-7-7 09:26 , Processed in 0.289953 second(s), 70 queries .

© 2020-2025 乐筑天下

联系客服 关注微信 帮助中心 下载APP 返回顶部 返回列表