VB怎样读text文件并输出结果到word文档中?

例如,text文件中写着:标题=1=2=3怎样利编写VB程序将其中的数字都读出来并在word中做表?表格格式为:标题XX1XX2XX3... 例如,text文件中写着:
标题
=1
=2
=3
怎样利编写VB程序将其中的数字都读出来并在word中做表?
表格格式为:
标题
XX 1
XX 2
XX 3
展开
 我来答
liujj4241
推荐于2016-08-13 · TA获得超过4043个赞
知道大有可为答主
回答量:7021
采纳率:58%
帮助的人:777万
展开全部
dim xx(1000) as string '乎备假设最多1000行
open "c;\1.txt" for input as #1
i=1
while not eof(1)
input #1, xx(i)
xx(i)=mid(xx(i),2) '岁吵毁把开始的=号去掉
i=i+1
wend
close #1
dim aa as new word.application
aa.ActiveDocument.Tables.Add Range:=Selection.Range, NumRows:=i, NumColumns:= _
2, DefaultTableBehavior:=wdWord9TableBehavior, AutoFitBehavior:= _
wdAutoFitFixed
for j= 1 to i-1
Selection.TypeText Text:="碰蠢xx"

Selection.MoveRight Unit:=wdCharacter, Count:=1
Selection.TypeText Text:=xx(i)
Selection.MoveDown Unit:=wdLine, Count:=1
Selection.MoveLeft Unit:=wdCell, Count:=1
next
aa.visibel=true
更多追问追答
追问
说ActiveX部件不能创建对象,什么意思?
追答
你的机器上必须有word,另外需要把Word相关的类添加到引用,不知道你的office的版本,不知道具体是哪个类
推荐律师服务: 若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询

为你推荐:

下载百度知道APP,抢鲜体验
使用百度知道APP,立即抢鲜体验。你的手机镜头里或许有别人想知道的答案。
扫描二维码下载
×

类别

我们会通过消息、邮箱等方式尽快将举报结果通知您。

说明

0/200

提交
取消

辅 助

模 式