标题：[求助]word 批量导出问题

1楼

lgj716330 发表于：2024/8/26 17:44:00

批量生成账单后，弄了两种导出方式，一种是直接批量导出，另一种是一个文件一个文件打开后再保存。代码分别如下

一次性批量导出：

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()

单个文件打开再保存：

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无法完成保存操作。然后只导出第一个文件，后面的就导不出来了

而采用单个文件打开再保存的方式不会有问题

2楼

cd_tdh 发表于：2024/8/26 17:45:00

文件名重复了，就只能导出一个

3楼

lgj716330 发表于：2024/8/26 18:42:00

上面文件名好象没重复啊，还有在开发端导出是没问题的，客户端导出才有问题

4楼

有点蓝 发表于：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()

5楼

lgj716330 发表于：2024/9/9 14:39:00

在客户端，不管是批量导出保存，还是单独文件打开，word的配置都无效，打开后是下面图中这样，也没任何错误提示，但在开发端是没问题的，这会是什么原因。没有保存在C盘了

此主题相关图片如下：703daa94-e4ad-4651-8600-8a2194092ebb.png

[此贴子已经被作者于2024/9/9 14:46:28编辑过]

6楼

有点蓝 发表于：2024/9/9 15:02:00

可能是安装的office版本的问题。试试安装和开发电脑一样的版本

共6 条记录, 每页显示 10 条, 页签: [1]