编程论坛 → VB6论坛

如何将 Textbox 里的数组保存到 Excel 里面？如图所示：

kunsong 发布于 2014-05-06 13:57， 1752 次点击

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

18 回复

#2

kunsong2014-05-06 14:05

求指教

#3

kunsong2014-05-06 14:06

这是图片

#4

lowxiong2014-05-06 14:14

没图

#5

kunsong2014-05-06 14:15

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

#6

kunsong2014-05-06 14:18

回复 4 楼 lowxiong

是不是我等级太低了？

#7

wp2319572014-05-06 14:19

添加附件自己也是可以看到的

#8

wp2319572014-05-06 14:19

和等级没关不是你操作错误就是rpwt

#9

kunsong2014-05-06 15:26

回复 8 楼 wp231957

嘿嘿

#10

kunsong2014-05-06 15:54

回复 8 楼 wp231957

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

#11

wp2319572014-05-06 15:56

以下是引用kunsong在2014-5-6 15:26:03的发言：

在 Textbox 里显示数组的时候，为什么当数字小于 0 的时候，前面这个 0 不见了，我想把这个 0 显示出来，如图所示

这个一般来讲是格式化输出的问题 vb我还真不懂实在不行可以自己编一个

#12

kunsong2014-05-06 16:07

回复 4 楼 lowxiong

求指教

#13

lowxiong2014-05-06 16:20

你应该描述错了，应该是数据为小数时，小数点前面的0不显示吧。

#14

风吹过b2014-05-06 17:27

Format(值, "+0.00;-0.00") '正数显示正号，负数显示负号，小于1时显示前导0 ，保留2位小数

#15

kunsong2014-05-06 21:07

回复楼主 kunsong

顶起来，求解

#16

kunsong2014-05-06 22:45

回复楼主 kunsong

顶起来，求指教

#17

vbvcr512014-05-06 23:49

引用excel对象。

#18

kunsong2014-05-07 08:41

置顶，求解

#19

lowxiong2014-05-07 08:52

简单方法就是存储为逗号格式文件，后缀名为csv的，可以用excel打开

1