vb高手帮帮忙！

Question

想把excel表《员工信息统计》中的第一列的7个单元格读入到text1（0）到text1（6）中，下面这段程序为什么不能实现？提示：实时错误‘424’要求对象。
Private Sub Form_Load()
Dim str(0, 10) As String
Do While i < 7
i = 0
str(1, i) = 员工信息统计.xlSheet.cells(i, 1).Value
Text1(i).Text = str(1, i)
i = i + 1
Loop
End Sub
这是为什么？？如果要对这7个单元格的数据进行筛选呢（假如这7个单元格数据是日期，那么对日期进行筛选，哪年哪月哪日到哪年哪月哪日），又应该怎么办？

Answer 1

Private Sub Form_Load()
Dim str(0, 10) As String '定义二数组，其实本程序只需一维数组就可以了。
Dim text1(10) As String '定义目标
Dim i As Integer '定义循环条件变量
i = 0 '循环变量賳初值
Do While i < 7
text1(i) = Sheets("员工信息统计").Cells(i + 1, 1).Value
i = i + 1
Loop
End Sub

程序中的问题:
1、单元格值引用错误：引用工作表不需另加新增对象或是插件去调用它，直接调用就可以了，不过是有一定格式的
引用工作表可以：
A、引用位置。sheets(1),sheets(2),这里面的常量“1”和“2”是相对于工作表的位置的，sheets(1)表示位置放在第一位的那个工作表，sheets(2)表示位置放在第二位的工作表
B、引用名称。sheets("员工信息统计")就表示工作表名为“员工信息统计”的工作表
C、引用当前工作表，activesheet.cells(1,1).value

2、"i"变量位置放错，应放于循环上赋值，否则进入死循环

Answer 2

str(1, i) = 员工信息统计.xlSheet.cells(i, 1).Value
这个 员工信息统计 怎么这样引用？

Answer 3

你可以使用了一个EXCEL插件，但这个插件的名字或初始化出错了！
另：你这个程序会进入死循环！因为：
.
.
Do While i<7
i=0
.
.
loop
.
这样的话，i的值是怎么都不会超过2的，所以会永远在这个While里循环！

还有，那就是str()数组是不是提前定义过？？？？

如果可以读出来了，那筛选的问题就简单多了！

Answer 4

首先看你的图片里没有代码Text1，
结果应该是在窗体上输出32