新手上路，各位高手帮忙看看这个代码，怎样把Excel数据导入数组中

林立新发布于 2017-07-18 10:52， 1269 次点击

Private Sub c1_Click()
yt = 50
Rem 源数据输入
Open App.Path + "\cd.txt" For Input As #1
ub = -1
Do Until EOF(1)
ub = ub + 1
Input #1, ye(ub), t(ub), q0(ub), qw(ub), np(ub), wp(ub), lp(ub)
lp(ub) = Log(lp(ub)) / Log(10)
Loop
Close #1

3 回复

ZHRXJR2017-07-18 11:31

你的代码中是txt，而标题是Excel？到底是什么，Excel可不能使用这种方式读取的呀！

林立新2017-07-20 07:50

回复 2楼 ZHRXJR

那如果把Excel数据放入text文本中是不就可以导入到vb中了？

ZHRXJR2017-07-23 07:54

所问非所答，看来你对VB是不熟悉，VB可以直接操作Excel，不是首先放入text再导入VB的，你究竟要干什么，说清楚。