WORD报表插入表格和生成的图表吗？ - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → WORD报表插入表格和生成的图表吗？

共有5017人关注过本帖树形打印复制链接主题：WORD报表插入表格和生成的图表吗？

一笑

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

加好友

发短信

等级：四尾狐帖子：808 积分：6213 威望：0 精华：0 注册：2014/3/23 23:02:00

Post By：2015/11/3 11:21:00 [只看该作者]

测试方法二：粘贴EXCEL，加入了中断进程，仍然报错，请测试，谢谢

Dim ps As System.Diagnostics.Process() = System.Diagnostics.Process.GetProcessesByName("WinWord")

For Each p As System.Diagnostics.Process In ps

p.kill

Dim wapp As New MSWord.Application

Dim eApp As New MSExcel.Application

try

Dim Wb As MSExcel.WorkBook = eApp.WorkBooks.Open(ProjectPath & "事件.xls")

Dim Ws As MSExcel.WorkSheet = Wb.WorkSheets(1) '指定要复制的工作表

Ws.UsedRange.Copy

Dim fileName = ProjectPath & "事件.xls"

Dim doc = wapp.Documents.Open(fileName)

wapp.ActiveWindow.Selection.WholeStory

wapp.ActiveWindow.Selection.MoveRight(Unit:=1, Count:=1)

wapp.ActiveWindow.Selection.TypeParagraph

wapp.ActiveWindow.Selection.paste

wapp.Visible = True

catch ex As exception

msgbox(ex.message)

wapp.Quit

finally

eapp.quit

End try

大红袍

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

加好友

发短信

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

Post By：2015/11/3 11:24:00 [只看该作者]

汗

Dim ps As System.Diagnostics.Process() = System.Diagnostics.Process.GetProcessesByName("WinWord")

For Each p As System.Diagnostics.Process In ps

p.kill

Dim wapp As New MSWord.Application

Dim eApp As New MSExcel.Application

try

Dim Wb As MSExcel.WorkBook = eApp.WorkBooks.Open(ProjectPath & "事件.xls")

Dim Ws As MSExcel.WorkSheet = Wb.WorkSheets(1) '指定要复制的工作表

Ws.UsedRange.Copy

Dim fileName = ProjectPath & "事件.doc"

Dim doc = wapp.Documents.Open(fileName)

wapp.ActiveWindow.Selection.WholeStory

wapp.ActiveWindow.Selection.MoveRight(Unit:=1, Count:=1)

wapp.ActiveWindow.Selection.TypeParagraph

wapp.ActiveWindow.Selection.paste

wapp.Visible = True

catch ex As exception

msgbox(ex.message)

wapp.Quit

finally

eapp.quit

End try

一笑

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

加好友

发短信

等级：四尾狐帖子：808 积分：6213 威望：0 精华：0 注册：2014/3/23 23:02:00

Post By：2015/11/3 11:48:00 [只看该作者]

以上代码测试正确，但整合一起后又报错，求解，谢谢

Dim app As New MSWord.Application

try

Dim doc = app.Documents.Open(ProjectPath & "\Reports\公司月报.docx")

If app.ActiveWindow.Selection.Find.Execute("test") Then

'插入表格,方法1或2

Dim wapp As New MSWord.Application

Dim eApp As New MSExcel.Application

try

Dim Wb As MSExcel.WorkBook = eApp.WorkBooks.Open(ProjectPath & "事件.xls")

Dim Ws As MSExcel.WorkSheet = Wb.WorkSheets(1) '指定要复制的工作表

Ws.UsedRange.Copy

Dim fileName = ProjectPath & "\Reports\公司月报.docx"

Dim doc1 = wapp.Documents.Open(fileName)

wapp.ActiveWindow.Selection.WholeStory

wapp.ActiveWindow.Selection.MoveRight(Unit:=1, Count:=1)

wapp.ActiveWindow.Selection.TypeParagraph

wapp.ActiveWindow.Selection.paste

wapp.Visible = True

catch ex As exception

msgbox(ex.message)

wapp.Quit

finally

eapp.quit

End try

End If

finally

End try

大红袍

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

加好友

发短信

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

Post By：2015/11/3 11:50:00 [只看该作者]

[此贴子已经被作者于2015/11/3 11:50:03编辑过]

大红袍

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

加好友

发短信

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

Post By：2015/11/3 11:54:00 [只看该作者]

Dim app As New MSWord.Application
Dim eApp As New MSExcel.Application
try
    Dim doc = app.Documents.Open(ProjectPath & "\Reports\公司月报.docx")
    If app.ActiveWindow.Selection.Find.Execute("test") Then
        '插入表格,方法1或2

        Dim Wb As MSExcel.WorkBook = eApp.WorkBooks.Open(ProjectPath & "事件.xls")
        Dim Ws As MSExcel.WorkSheet = Wb.WorkSheets(1) '指定要复制的工作表
        Ws.UsedRange.Copy

        app.ActiveWindow.Selection.paste
        app.Visible = True

    End If
catch ex As exception
    msgbox(ex.message)
    app.quit
finally
    eApp.quit
End try