如何用VBA 从TXT文件中提取相关数据输入excel表格
2个回答
展开全部
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
2016-12-27
展开全部
在word里把“,”替换成“^p”,再复制、粘贴到Excel里
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询