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

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

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

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