请教一下，为什么运行时总是提示text1(i).text没有定义啊，到底应该怎么修改啊

Private Sub Command1_Click() '保存（不合格）

Dim Ex As Object
Dim ExBook As Object
Dim ExSheet As Object

Set Ex = CreateObject("Excel.Application")
Set ExBook = Ex.Workbooks.Add
Set ExSheet = ExBook.Worksheets("Sheet1")  '打开
ExSheet.Activate '激活工作表
Ex.Visible = True


ExSheet.Range("A1:U1").Value = Array("产品型号", "测试日期", "测试时间", "峰峰值", "均方根值", "频率", "周期", "上升时间", "下降时间", "正脉宽", "负脉宽", "正占空比", "负占空比", "最大值", "最小值", "平均值", "幅度", "顶端值", "底端值", "过冲", "预冲")




Static count As Integer
Dim j As Integer
count = count + 1
For j = 1 To 21
ExSheet.Cells(count + 1, j) = Text1(i).Text
Next j



On Error Resume Next


 ExBook.SaveAs ("d:/test.xls")

Set ExSheet = Nothing
Set ExBook = Nothing
Ex.Quit
Set Ex = Nothing

End Sub