如何用VBA 从TXT文件中提取相关数据输入excel表格

PublicSubabc()Dimfilename,inputstringAsStringDimiAsIntegerDimdatai=1filename="d:\WYKS.txt"'本列TXT文件放在D盘中OpenfilenameForInputAccessReadAs#1DoWhileNotEOF(1)LineInput#1,inputstring'读TXT文件一行data=inputstringIfi1ThenCells(i-1,1)=Mid(data,11,6)'截取从第11个字符后6个字符Cells(i-1,2)=Mid(data,19,8)'截取从第19个字符后8个字符Cells(i-1,3)=Mid(data,29,6)'截取从第29个字符后6个字符Cells(i-1,4)=Mid(data,37,8)'截取从第37个字符后8个字符EndIfi=i+1LoopClose#1EndSub

譬如数据存到a列，是不是要这样？
a1
严杨路
a2
严丰路
a3
严桥路
…………
遇到逗号就存下一行？
open
"d:\1.txt"
for
input
as
#1
dim
s
as
string
dim
ns
as
string
do
while
not
eof(1)
on
error
resume
next
line
input
#1,
ns
s
=
s
&
ns
loop
以上代码可以将"d:\1.txt"里面的内容赋值给字符串
s
然后你再对s进行循环（遇到逗号就行号就加1，对单元格进行赋值就可以了）