- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- [求助]word 批量导出问题 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=193205)
-- 发布时间：2024/8/26 17:44:00
-- [求助]word 批量导出问题
批量生成账单后，弄了两种导出方式，一种是直接批量导出，另一种是一个文件一个文件打开后再保存。代码分别如下
一次性批量导出：
Dim nf1 As Integer = e.Form.Controls("NF").value
Dim yf1 As Integer = e.Form.Controls("YF").value
Dim fl As String
Dim tm As String = ProjectPath & "Attachments\\货款确认函.docx"
For Each r As Row In Tables("客户货款确认函_Table1")
If yf1 >= 10 Then
fl = "C:\\Users\\Public\\Documents\\货款确认函\\" & r("品牌事业部") & "\\" & r("业务系统编号") & r("客户名称") & nf1 & yf1 & ".docx"
Else
fl = "C:\\Users\\Public\\Documents\\货款确认函\\" & r("品牌事业部") & "\\" & r("业务系统编号") & r("客户名称") & nf1 & "0" & yf1 & ".docx"
End If
Dim wrt As New WordReport(Tables("客户货款确认函_Table1"), tm, fl)
wrt.BuildOne(r)
wrt.Quit()
Next
单个文件打开再保存：
Dim tm As String = ProjectPath & "Attachments\\货款确认函.docx"
Dim fl As String = ProjectPath & "Reports\\货款确认函.docx"
Dim wrt As New WordReport(Tables("客户货款确认函_Table1"),tm,fl)
wrt.Build()
wrt.Show()
结果，使用一次性批量导出方式会提示以下错误：由于文件许可权错误,Word无法完成保存操作。然后只导出第一个文件，后面的就导不出来了
而采用单个文件打开再保存的方式不会有问题
-- 发布时间：2024/8/26 17:45:00
--
文件名重复了，就只能导出一个
-- 发布时间：2024/8/26 18:42:00
--
上面文件名好象没重复啊，还有在开发端导出是没问题的，客户端导出才有问题
-- 发布时间：2024/8/26 20:33:00
--
不要保存到C盘，没有权限。
保存到项目目录里
Dim nf1 As String= e.Form.Controls("NF").value
Dim yf1 As String= e.Form.Controls("YF").value
Dim fl As String
Dim tm As String = ProjectPath & "Attachments\\货款确认函.docx"
For Each r As Row In Tables("客户货款确认函_Table1")
fl = ProjectPath & "Reports\\" & r("品牌事业部") & "\\" & r("业务系统编号") & r("客户名称") & nf1 & yf1.PadLeft(2,"0") & ".docx"
Dim wrt As New WordReport(Tables("客户货款确认函_Table1"), tm, fl)
wrt.BuildOne(r)
wrt.Quit()
Next
-- 发布时间：2024/9/9 14:39:00
--
在客户端，不管是批量导出保存，还是单独文件打开，word的配置都无效，打开后是下面图中这样，也没任何错误提示，但在开发端是没问题的，这会是什么原因。没有保存在C盘了
此主题相关图片如下：703daa94-e4ad-4651-8600-8a2194092ebb.png
[此贴子已经被作者于2024/9/9 14:46:28编辑过]
-- 发布时间：2024/9/9 15:02:00
--
可能是安装的office版本的问题。试试安装和开发电脑一样的版本