Foxtable(狐表) → 用户栏目 → 专家坐堂 → 如何批量导出word报表，不用预览也不用打印？


  共有2812人关注过本帖树形打印复制链接

主题：如何批量导出word报表，不用预览也不用打印？
帅哥哟，离线，有人找我吗？
ehomecd
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：童狐 帖子：267 积分：2574 威望：0 精华：0 注册：2008/11/9 18:30:00 		如何批量导出word报表，不用预览也不用打印？  发帖心情 Post By：2015/9/9 17:14:00 [显示全部帖子]

这个是大红袍老师帮忙改的代码：请问如何批量导出word报表，不用预览也不用打印？

Dim tm As String  = ProjectPath & "Attachments\人员简历表.doc" '指定模板文件
With Tables("员工资料")
    If .TopPosition > -1 Then '如果选定区域包括数据行
        For i As Integer = .TopPosition To .BottomPosition
            Dim r As Row = .Rows(i)
            Dim fileName As String = ProjectPath & "Reports\"& r("姓名") &".doc" '指定目标文件
            Dim wrt As New WordReport(Tables("员工资料"),tm,fileName) '定义一个WordReport
            wrt.BuildOne(r)
            wrt.Print
            wrt.quit
        Next
    End If
End With
 回到顶部
帅哥哟，离线，有人找我吗？
ehomecd
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：童狐 帖子：267 积分：2574 威望：0 精华：0 注册：2008/11/9 18:30:00 		  发帖心情 Post By：2015/9/9 18:06:00 [显示全部帖子]

我修改了代码，提示错误

Dim tm As String  = ProjectPath & "Attachments\人员简历表.doc" '指定模板文件
Dim Sum As Integer

With Tables("员工资料")
    If .TopPosition > -1 Then '如果选定区域包括数据行
        For i As Integer = .TopPosition To .BottomPosition
            Dim r As Row = .Rows(i)
            Dim fileName As String = ProjectPath & "Reports\"& r("姓名") &".doc" '指定目标文件
            Dim wrt As New WordReport(Tables("员工资料"),tm,fileName) '定义一个WordReport
            wrt.BuildOne(r)
            wrt.quit
            wrt.Show()
            Sum = Sum + i
        Next
    End If
End With

msgbox("本次共导出"& sum &"份个人信息到:"& ProjectPath &"Reports\")


图片点击可在新窗口打开查看此主题相关图片如下：批量导出doc错误.png
图片点击可在新窗口打开查看
 回到顶部
帅哥哟，离线，有人找我吗？
ehomecd
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：童狐 帖子：267 积分：2574 威望：0 精华：0 注册：2008/11/9 18:30:00 		  发帖心情 Post By：2015/9/10 8:40:00 [显示全部帖子]

谢谢，还有一个问题，我选择了3个人，也导出了3个人的信息表，但统计的时候提示导出了6份档案。



图片点击可在新窗口打开查看此主题相关图片如下：word导出2.png
图片点击可在新窗口打开查看


图片点击可在新窗口打开查看此主题相关图片如下：word导出3.png
图片点击可在新窗口打开查看
 回到顶部
帅哥哟，离线，有人找我吗？
ehomecd
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：童狐 帖子：267 积分：2574 威望：0 精华：0 注册：2008/11/9 18:30:00 		  发帖心情 Post By：2015/9/10 8:44:00 [显示全部帖子]

是不是应该写成 sum = i +1
[此贴子已经被作者于2015/9/10 8:45:00编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
ehomecd
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：童狐 帖子：267 积分：2574 威望：0 精华：0 注册：2008/11/9 18:30:00 		  发帖心情 Post By：2015/9/10 8:49:00 [显示全部帖子]

sum = i + 1 也不行

图片点击可在新窗口打开查看此主题相关图片如下：word导出4.png
图片点击可在新窗口打开查看
 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.06641 秒, 5 次数据查询