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

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