以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  range的用法  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=185878)

--  作者:tld
--  发布时间:2023/3/22 16:42:00
--  range的用法
老师好,下面的代码有误,请您帮忙指点下如何改正。谢谢老师!
Dim App As New MSExcel.Application
Dim Wb As MSExcel.WorkBook = App.WorkBooks.Open(fullname)
Dim Ws As MSExcel.WorkSheet = Wb.WorkSheets(1)
dim list as new list (of string)
for i as integer = 1 to 100
for j as integer = 1 to 100
list.add(ws.cells(i,j))
next
next


[此贴子已经被作者于2023/3/22 16:43:20编辑过]

--  作者:有点蓝
--  发布时间:2023/3/22 16:58:00
--  
这代码要干嘛?
--  作者:tld
--  发布时间:2023/3/22 17:04:00
--  
经常用到遍历sheet的单元格内容,确定查找的内容是在第几行第几列
--  作者:tld
--  发布时间:2023/3/22 17:05:00
--  
vba中,可以用cells(i,j)
--  作者:有点蓝
--  发布时间: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