关于datatable和Sheet例子

qiqin

关于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