如何将 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 编辑 ]