vb高手帮帮忙！
想把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个单元格数据是日期，那么对日期进行筛选，哪年哪月哪日到哪年哪月哪日），又应该怎么办？
参考答案: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"变量位置放错，应放于循环上赋值，否则进入死循环