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

你这是VB6的代码呀，该到VB6版块去问的。
如果你在学习，那么，你抄来的这个源码在.NET下肯定是不行的哦。

是支持控件数组的，但不建议用，所以默认是没有控件数组的选择，可以在com组件中添加控件数组。