如何将 Textbox 里的数组保存到 Excel 里面？如图所示：
序号的数组是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 编辑 ]
