VBA divides strings, stores them in an array, writes them to a file, and saves them

        TextBox1.Text A long string is stored in the , adopt split Function press " " Segmentation , Deposit in ReDat() Array .FileCopy Copy file , take ReDat() The elements in give to Copy the objects specified in the file , And save it .

 Dim ReDate() As String
    Dim i  As Integer
    ReDate = Split(TextBox1.Text, "      ") 

  For i = LBound(ReDate) To UBound(ReDate) - 1    
    'LBound(ReDate)  Represents the lower bound of the array , by 0   UBound(ReDate) Represents the upper limit of the array 

	'MsgBox ("*****" + ReDate(i))

	 FileCopy reviewFormatPath, reviewFormatPath & "temp"    ' Copy file 
 
     Set Tempwb = Workbooks.Open(reviewFormatPath & "temp")  ' Open file 
     Tempwb.Worksheets("sheet1").Activate                 ’ Open file workbook 

	 Cells(6, 9).Value = ComboBox1s  ' Assign values to cells in the workbook 

	 Tempwb.Save    ' Save workbook 
     Tempwb.Close   

  Next i

  Unload UserForm2   ' Represents an uninstall form 

•  LBound(ReDate) Represents the lower bound of the array , The return value is 0
•  UBound(ReDate) Represents the upper limit of the array