Foxtable(狐表)用户栏目专家坐堂 → range的用法


  共有4381人关注过本帖树形打印复制链接

主题:range的用法

帅哥哟,离线,有人找我吗?
有点蓝
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:111427 积分:567211 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2023/3/22 16:58:00 [显示全部帖子]

这代码要干嘛?

 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:111427 积分:567211 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2023/3/22 17:08:00 [显示全部帖子]

把这里的帮助都仔细看几遍吧:http://www.foxtable.com/webhelp/topics/2121.htm

引用已经使用的单元格区域。

利用UsedRange属性,可以取得在指定工作表中已经使用的单元格区域。如下面的代码就将得到已经使用的行数、列数和单元格个数:

Dim App As New MSExcel.Application
Dim Wb As MSExcel.WorkBook = App.WorkBooks.Open("D:\Report.xls")
Dim Ws As MSExcel.WorkSheet = Wb.WorkSheets(1)
Dim Rg As MSExcel.Range = Ws.UsedRange
MessageBox.Show(Rg.Rows.Count)
MessageBox.Show(Rg.Columns.Count)
MessageBox.Show(Rg.Count)
App.Quit

for i as integer = 1 to Ws.UsedRange.Rows.Count

 回到顶部