请问报表,如何依某自段值,导入不同格式,再填入数据? - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 请问报表,如何依某自段值,导入不同格式,再填入数据?

共有2663人关注过本帖树形打印复制链接主题：请问报表,如何依某自段值,导入不同格式,再填入数据?

大红袍

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：贵宾帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00

Post By：2015/8/5 9:15:00 [显示全部帖子]

没看懂。要做的东西，先做例子上来看是什么情况。

大红袍

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：贵宾帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00

Post By：2015/8/5 14:29:00 [显示全部帖子]

1、word中创建表格参考

http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=70762&skin=0

2、word中插入文字参考

Dim app As New MSWord.Application
try
    Dim fileName = "d:\test.doc"
    Dim doc = app.Documents.Open(fileName)
    app.ActiveWindow.Selection.WholeStory
    app.ActiveWindow.Selection.MoveRight(Unit:=1, Count:=1)
    app.ActiveWindow.Selection.TypeParagraph
    Dim c As Color = Color.Red
    app.ActiveWindow.Selection.TypeText(Text:="123456")

    app.Visible = True
catch ex As exception
    msgbox(ex.message)
    app.Quit
finally

End try

3、自己要做什么样的东西都可以，去学习一下word的vba的知识

大红袍

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：贵宾帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00

Post By：2015/8/7 14:09:00 [显示全部帖子]

读取某个单元格的值，赋值一样的意思。参考

Dim app As New MSWord.Application
try
    Dim fileName = "d:\黄某某.doc"
    Dim doc = app.Documents.Open(fileName)
    Dim t = doc.Tables(1)
    Dim text = t.Cell(1, 2).Range.Text.ToString()
    text = text.Substring(0, text.Length - 2)
    msgbox(text)
catch ex As exception
    msgbox(ex.message)
finally
    app.Quit
End try