Sub test()
Dim a, b, c, d
Open "d:\test\test.dat" For Output As #1
a = 1.005
b = 0.123
c = -1.03
d = -0.523
Write #1, Format(a, "#.###") & Chr(9) & Format(b, "##.###") & Chr(9) & Format(c, "#.###") & Chr(9) & Format(d, "#.###")
Close #1
End Sub

4楼: Originally posted by mkluowen at 2013-05-09 09:48:16
我要的是输出的—0.523，不是-.523...

10楼: Originally posted by mkluowen at 2013-05-18 08:56:24
以文本存放，读取是用其他软件读取。但是我感觉用字符串的形式估计无法读取。...

2楼: Originally posted by ausir at 2013-05-07 19:14:10
在 Excel 中新建一个空白文件，然后插入用户模块。在用户模块中，用下面的例子试验即可。
Sub test()
Dim a, b, c, d
Open "d:\test\test.dat" For Output As #1
a = 1.005
b = 0.123
c = -1.03
d ...

3楼: Originally posted by deephill at 2013-05-08 21:14:19
我觉得比较直接的方式是把每个数据 用str()函数转成字符串，然后把长度不够的字符串在后面，补零 用&“0”，这样长度一致全搞定。
最后用replace函数把-0.换成-.  就可以写入文件了。

9楼: Originally posted by deephill at 2013-05-16 21:47:17
ausir的 方法也是存储为字符串。
搂主在是要以什么方式存放，以文本存放的话，ausir的 方法 完全满足你的要求。若是以二进制方法可能就要改改程序。还有存放后又如何读取，也要考虑。