- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 如何实现在word报表中的表格选择满足条件的记录生成报表 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=75402)
-- 发布时间：2015/10/7 23:50:00
-- 如何实现在word报表中的表格选择满足条件的记录生成报表
如题，如何实现在word报表中的表格内，选择满足条件（例如指定使用单位）的多行记录生成报表。
此主题相关图片如下：无标题1.png
此主题相关图片如下：无标题.png
-- 发布时间：2015/10/8 9:01:00
--
使用WordReport生成，参考http://www.foxtable.com/help/topics/2890.htm
-- 发布时间：2015/10/8 9:05:00
--
word报表，是无法做到那种列表的形式的，只有Excel报表可以那样做，word只能套打一行数据。
-- 发布时间：2015/10/8 9:07:00
--
变通方法：可以生成一个word、一个excel，然后打开excel，拷贝到word里面去
-- 发布时间：2015/10/8 12:39:00
--
把word模板拷贝到Excel模板吧！
-- 发布时间：2015/10/8 19:35:00
--
群主，回一下，到底如何做？
-- 发布时间：2015/10/8 19:39:00
--
一定要做word报表么？直接做excel报表简单方便。
-- 发布时间：2015/10/8 19:47:00
--
参考代码。
Dim wapp As New MSWord.Application
Dim eApp As New MSExcel.Application
try
Dim Wb As MSExcel.WorkBook = eApp.WorkBooks.Open("d:\\test.xls")
Dim Ws As MSExcel.WorkSheet = Wb.WorkSheets(1) \'指定要复制的工作表
Ws.UsedRange.Copy
Dim fileName = "d:\\test.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
-- 发布时间：2015/10/8 21:50:00
--
还是用excel表吧！我还是没有弄明白怎么搞。
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:1.xls |
-- 发布时间：2015/10/9 13:22:00
--
请大红袍版主教教我！