标题:如何将 Textbox 里的数组保存到 Excel 里面?如图所示:
只看楼主
kunsong
Rank: 2
等 级:论坛游民
帖 子:34
专家分:18
注 册:2014-4-20
结帖率:100%
已结贴  问题点数:10 回复次数:18 
如何将 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 编辑 ]
搜索更多相关主题的帖子: 如图所示 Excel angle 如何 
2014-05-06 13:57
kunsong
Rank: 2
等 级:论坛游民
帖 子:34
专家分:18
注 册:2014-4-20
得分:0 
   
     求指教
2014-05-06 14:05
kunsong
Rank: 2
等 级:论坛游民
帖 子:34
专家分:18
注 册:2014-4-20
得分:0 
这是图片
2014-05-06 14:06
lowxiong
Rank: 12Rank: 12Rank: 12
等 级:贵宾
威 望:27
帖 子:652
专家分:3402
注 册:2008-5-7
得分:4 
没图
2014-05-06 14:14
kunsong
Rank: 2
等 级:论坛游民
帖 子:34
专家分:18
注 册:2014-4-20
得分:0 
我添加附件了啊,然后不知道为什么不显示,刚才也是我问你的
2014-05-06 14:15
kunsong
Rank: 2
等 级:论坛游民
帖 子:34
专家分:18
注 册:2014-4-20
得分:0 
回复 4 楼 lowxiong
是不是我等级太低了?
2014-05-06 14:18
wp231957
Rank: 16Rank: 16Rank: 16Rank: 16
来 自:神界
等 级:版主
威 望:422
帖 子:13681
专家分:53296
注 册:2012-10-18
得分:1 
添加附件 自己也是可以看到的

DO IT YOURSELF !
2014-05-06 14:19
wp231957
Rank: 16Rank: 16Rank: 16Rank: 16
来 自:神界
等 级:版主
威 望:422
帖 子:13681
专家分:53296
注 册:2012-10-18
得分:0 
和等级没关  不是你操作错误 就是rpwt

DO IT YOURSELF !
2014-05-06 14:19
kunsong
Rank: 2
等 级:论坛游民
帖 子:34
专家分:18
注 册:2014-4-20
得分:0 
回复 8 楼 wp231957
嘿嘿
2014-05-06 15:26
kunsong
Rank: 2
等 级:论坛游民
帖 子:34
专家分:18
注 册:2014-4-20
得分:0 
回复 8 楼 wp231957
哈哈,人品没问题,是浏览器的问题,换一个就行了
2014-05-06 15:54



参与讨论请移步原网站贴子:https://bbs.bccn.net/thread-431081-1-1.html




关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.020468 second(s), 8 queries.
Copyright©2004-2025, BCCN.NET, All Rights Reserved