25、关于datatable和Sheet例子
datatable.AddSheet("husheet") 'datatable添加一个sheet datatable.ImportSheet "c:\test.xls","testsheet","husheet" '从外部导入一EXCEl为test.xls Dim i,RowCount '定义两个变量 i=0 RowCount=datatable.GetSheet("husheet").GetRowCount '设置RowCount等于51sheet中的行数。 msgbox RowCount Do while i<rowcount i=i+1 '第一次进入循环,执行这句后,i=1 'datatable.getsheet("51sheet").setcurrentrow(i) 这句话被我注释掉了,正确的写法应该是下面这样,分开写。 datatable.getsheet("husheet") datatable.setcurrentrow(i) '执行过上面两句后,CurrentRow是第一行。 tempData=DataTable.GetSheet("husheet").GetParameter("Name").Value '现在,我们调用msgbox看看下面得到的是什么值?每次循环都能得到每行的值,下次循环得到的是第二行 msgbox "GetParameter-Name:"&tempData '这里弹出我们要看的值。 '下面我们用另外一种方法来得到。 msgbox "GetParameter-i:"&DataTable.GetSheet("husheet").GetParameter(1).Value '这里我用GetParameter(1)去得到sheet中第一列的值。 loop |
相关阅读: