如何将 Textbox 里的数组保存到 Excel 里面？本帖悬赏 40 分！！如图所示： - VB6论坛

| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛 |

编程论坛 → 开发语言 → 『 VB6论坛』 → 如何将 Textbox 里的数组保存到 Excel 里面？本帖悬赏 40 分！！如图所示：

我的收件箱(0)

欢迎加入我们，一同切磋技术

共有 699 人关注过本帖

标题：如何将 Textbox 里的数组保存到 Excel 里面？本帖悬赏 40 分！！如图所示：

取消只看楼主加入收藏

kunsong

等　级：论坛游民
帖　子：34
专家分：18
注　册：2014-4-20
结帖率：100%

楼主

已结贴√ 问题点数：40 回复次数：2

如何将 Textbox 里的数组保存到 Excel 里面？本帖悬赏 40 分！！如图所示：

序号的数组是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 17:07 编辑 ]

搜索更多相关主题的帖子: 如图所示　 Excel　如何　

2014-05-07 15:25

kunsong

等　级：论坛游民
帖　子：34
专家分：18
注　册：2014-4-20

第 2 楼

得分:0

回复 3 楼 lowxiong

大神，谢谢你的指导，但是格式没有转换过来，format输出的是字符型，估计csv不能保存字符型的吧，是不是？还有和妙招？

图片附件: 游客没有浏览图片的权限，请登录或注册

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

2014-05-07 19:47

kunsong

等　级：论坛游民
帖　子：34
专家分：18
注　册：2014-4-20

第 3 楼

得分:0

回复 6 楼 lowxiong

感谢你的回答，我运行了一下，可以了！也有看网上的，但是太复杂没看懂，

mysheet.Range("A:C").NumberFormat = "@"   '列A-C显示格式为字符型

请问能不能再给我解释一下这段程序的意思，我是新手，看不懂呀

[ 本帖最后由 kunsong 于 2014-5-8 10:00 编辑 ]

2014-05-08 09:42

快速回复：如何将 Textbox 里的数组保存到 Excel 里面？本帖悬赏 40 分！！如图所 ...