以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助]批量导出保存路径  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=187927)

--  作者:lgj716330
--  发布时间:2023/8/21 18:54: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\\确认函.doc" 
For Each r As Row In Tables("客户确认函_Table1")
If yf1 >=10 Then
fl = "C:\\Users\\Public\\Documents\\确认函\\" & r("客户分属") & "\\" & r("系统编号") & r("客户名称") & nf1 & yf1 & ".doc" 
Else
fl = "C:\\Users\\Public\\Documents\\确认函\\" & r("客户分属") & "\\" & r("系统编号") & r("客户名称") & nf1 & "0" & yf1 & ".doc"
End If
Dim wrt As New WordReport(Tables("客户确认函_Table1"),tm,fl)
wrt.BuildOne(r)
wrt.Quit()
Next

批量导出保存,当r("客户分属")中的名称中有/这个斜杠时,保存的文件夹会拆分成两级,如r("客户分属")是ABC/EFG时,路径会变成C:\\Users\\Public\\Documents\\确认函\\ABC\\EFG
这个要怎么解决

--  作者:有点蓝
--  发布时间:2023/8/21 20:11:00
--  
斜杆本来就是系统的路径分隔符。

方法1、去掉单元格里的斜杆,或者替换为其它特殊符号
2、把斜杆改为全角符号

--  作者:lgj716330
--  发布时间:2023/8/21 20:33:00
--  
路径分隔符的斜杠是\\这个啊,我名称中是/这个斜杠
--  作者:有点蓝
--  发布时间:2023/8/21 20:47:00
--  
一样的。可以自己到电脑资源管理器随便找个文件看能不能在名称里输入/就知道了