以文本方式查看主题 -  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp) --  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2) ----  range的用法  (http://foxtable.net/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