Option Explicit

Dim iCount As Long
Dim arrStr() As String

Private Sub Form_Load()
    ReDim arrStr(0 To 255, 0 To 20) As String
    iCount = 0
End Sub

Private Sub Command1_Click()
    If iCount > 255 Then
        MsgBox "超过行数限制"
        Exit Sub
    End If
    Dim i As Long
    For i = 0 To 20
        arrStr(iCount, i) = Text1(i).Text
    Next i
    iCount = iCount + 1
    For i = 0 To 20
        Text1(i).Text = ""
    Next i
End Sub

Private Sub Command3_Click() '保存（不合格）
    If iCount > 255 Then Exit Sub
    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("产品型号", "测试日期", "测试时间", "峰峰值", "均方根值", "频率", "周期", "上升时间", "下降时间", "正脉宽", "负脉宽", "正占空比", "负占空比", "最大值", "最小值", "平均值", "幅度", "顶端值", "底端值", "过冲", "预冲")

    Dim i As Long
    Dim j As Long
   
    For i = 0 To iCount - 1
        For j = 1 To 21
        ExSheet.Cells(i + 2, j) = arrStr(i, j - 1)
        Next j
    Next i
   
    On Error Resume Next
    Ex.ActiveWorkbook.SaveAs ("H:\测试数据保存(不合格）.xls")
   
    Set ExSheet = Nothing
    Set ExBook = Nothing
    Ex.Quit
    Set Ex = Nothing

End Sub

VB 动态产生控制项阵列

这个方法必需先建立一个要动态产生的控制项，并将index设成0，然后就可以由程式来动态建立控制项阵列了。

1.在form1建立一个Text1的控制项，将属性Index设为0，此控制项变成控制项阵列0。

2.利用Load 控制项(index)的方式来建立控制项。

For Example：

在Form_Load中输入以下程式：

For i = 1 To 10
Load Text1(i)
Set Text1(i).Container = Form1
Text1(i).Left = i * 1000 + 2000
Text1(i).Top = 1500
Text1(i).Text = i
Text1(i).Visible = True
Next i

这样便会在Form1建立十个text1控制项阵列，加上第一个原本就建立的总共是十一个。

若要使用events来控制，可以输入以下的程式：

Private Sub Text1_change(Index As Integer)
Select Case Index

Case 0

MsgBox (”The text in the first TextBox has changed”)

Case 1

MsgBox (”The text in the second TextBox has changed”)

Case 2

MsgBox (”The text in the third TextBox has changed”)

End Select
End Sub