我需要读取500个左右的数据，并利用其中的部分数据进行插值计算。
我的思路是：把数据放到txt中，然后用数组读取，感觉比较笨，有更高的读取方式么啊 ？希望高手给指点下~

读取500个数据怎么做都可以吧。
原始数据从哪儿来？如果是通过各种接口来，那就直接给数组赋值。
如果来自其它的文件，也可以先转成TXT当中介，也可以直接处理后给数组。

我以为可以用什么数据库之类的能更优些，本人对数据库那些也不懂~

如果用数组，是要这样把所有的元素都罗列出么啊？
Dim msz(1 To 500) As Single
Open App.Path & "\a.txt" For Input As #1 'Binary
Do While Not EOF(1)
Input #1, _
sz(1), sz(2), sz(3), sz(4), sz(5), sz(6), sz(7), sz(8), sz(9), sz(10), _
sz(11), sz(12), sz(13), sz(14), sz(15), sz(16), sz(17), sz(18), sz(19), sz(20), _
sz(21), sz(22), sz(23), sz(24), sz(25), sz(26), sz(27), sz(28), sz(29), sz(30), _
sz(31), sz(32), sz(33), sz(34), sz(35), sz(36), sz(37), sz(38), sz(39), sz(40), _
sz(41), sz(42), sz(43), sz(44), sz(45), sz(46), sz(47), sz(48), sz(49), sz(50), _
sz(51), sz(52), sz(53), sz(54), sz(55), sz(56), sz(57), sz(58), sz(59), sz(60), _
sz(61), sz(62), sz(63), sz(64), sz(65), sz(66), sz(67), sz(68), sz(69), sz(70), _
sz(71), sz(72), sz(73), sz(74), sz(75), sz(76), sz(77), sz(78), sz(79), sz(80), _
sz(81)........sz(500)
Loop

今天才看到这个问题。
如果a.txt中的数据有分隔符分隔，把合部文件数据读入到字符串变量中，然后用SPLIT函数给动态数组赋值。坛内有类似贴子

按照您的意见，已经搞定了。比我之前的方法快捷多了。谢谢~