如何将Debug.Print显示出来

Question

第一段代码
Private Sub Form_Load()
Dim str1 As String
Dim i As Integer
For i = 1 To 10 '按需要设定长度
str1 = str1 & "人1,人2,人3,人4,人5,人6,人7,"
Next i
Dim arr() As String
arr = Split(str1, ",")
For i = 0 To UBound(arr) - 5 Step 5
   Debug.Print "星期一:"; arr(i)
   Debug.Print "星期二::"; arr(i + 1)
   Debug.Print "星期三:"; arr(i + 2)
   Debug.Print "星期四:"; arr(i + 3)
   Debug.Print "星期五:"; arr(i + 4)
Next i
End Sub第二段代码
Dim xlapp As Excel.Application
Dim xlbook As Excel.Workbook
Dim xlsheet As Excel.Worksheet
Set xlapp = CreateObject("excel.application")
Set xlbook = xlapp.Workbooks.Open("c:\123.xls")
Set xlsheet = xlbook.Worksheets("sheet1")
xlsheet.Cells(2, 5) = "1020"
xlbook.Save
xlbook.Close
Set xlapp = Nothing
MsgBox ("完成")以上两段代码如何结合一下，将第一段生成的数据，输入在excel里

Answer 1

Private Sub Form_Load()
    Dim str1 As String
    Dim i As Integer
    Dim x As Integer
    Dim y As Integer
    Dim xlapp As Excel.Application
    Dim xlbook As Excel.Workbook
    Dim xlsheet As Excel.Worksheet
    Dim arr() As String
    
    Set xlapp = CreateObject("excel.application")
    Set xlbook = xlapp.Workbooks.Open("c:\123.xls")
    Set xlsheet = xlbook.Worksheets("sheet1")
   
    For i = 1 To 10 '按需要设定长度
        str1 = str1 & "人1,人2,人3,人4,人5,人6,人7,"
    Next i
    arr = Split(str1, ",")
    x = 1
    y = 1
    For i = 0 To UBound(arr) - 5 Step 5
       Debug.Print "星期一:"; arr(i)
       Debug.Print "星期二::"; arr(i + 1)
       Debug.Print "星期三:"; arr(i + 2)
       Debug.Print "星期四:"; arr(i + 3)
       Debug.Print "星期五:"; arr(i + 4)
       xlsheet.Cells(x, y) = arr(i)
       xlsheet.Cells(x, y + 1) = arr(i + 1)
       xlsheet.Cells(x, y + 2) = arr(i + 2)
       xlsheet.Cells(x, y + 3) = arr(i + 3)
       xlsheet.Cells(x, y + 4) = arr(i + 4)
       x = x + 1
       y = 1
    Next i
    xlbook.Save
    xlbook.Close
    Set xlapp = Nothing
    MsgBox ("完成")
End Sub