请教一下,为什么运行时总是提示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