序号的数组是for循环值i,角度的数组是angle，误差的数组是d(i),我想把text里的数据保存到Excel里面，怎么弄？

Text1.Text = "序号" & "          " & "角度" & "           " & "误差"

For i = 1 To 60
    HH = (360 / total) * b(i)
    angle(i) = Format(HH, "0.000000") '改变格式
    EE = ((360 / total) * b(i) - 6) * 60
    
    d(i) = Format(EE, "0.00") '改变格式，显示0
    i = Format(i, "00") '改变序号的格式
   
    If d(i) >= 0 Then
        Text1.Text = Text1 & vbCrLf & i & "          " & angle(i) & "        " & "+" & d(i) & vbCrLf
    Else
        Text1.Text = Text1 & vbCrLf & i & "          " & angle(i) & "        " & d(i) & vbCrLf
    End If

Next

[ 本帖最后由 kunsong 于 2014-5-7 08:42 编辑 ]

   
     求指教

这是图片

我添加附件了啊，然后不知道为什么不显示，刚才也是我问你的

是不是我等级太低了？

嘿嘿

哈哈，人品没问题，是浏览器的问题，换一个就行了

求指教

顶起来，求解

顶起来，求指教