- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 如何根据年度创建文件夹，并将文件存放到不同年度的文件夹中 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=144924)
-- 发布时间：2020/1/3 8:47:00
-- 如何根据年度创建文件夹，并将文件存放到不同年度的文件夹中
说明：生成的文件，按不同年度自动生成文件夹，并将本年度的文件放在本文件夹中。例如：2019年生成的文件放在“2019年假期值班安排表”，2020年生成的文件放在自动生成2020年假期值班安排表，如何写代码，下述代码不能执行，请高手解答，谢谢。
Dim Book As New XLS.Book(ProjectPath & "Attachments\\假期值班安排表.xls") \'打印
Dim r As Row = Tables("值班排班_排班").Current
Dim fl As String =" \\\\HRW\\data\\军人事务局\\③值班\\r("年度")
&"值班表"\\"& r("年度")
& "-"
& r("节假日名称") & "假期值班安排表"
&".xls"
Dim fl As New WordReport(Tables("值班排班_排班"),tm,fl) \'定义一个WordReport
Book.Build() \'生成细节区
Book.Save(fl)
\'保存工作簿
Dim Proc As
New Process \'打开工作簿
Proc.File = fl
Proc.Start()
-- 发布时间：2020/1/3 8:53:00
--
Dim fl As String =" \\\\HRW\\data\\军人事务局\\③值班\\" & r("年度") & "值班表\\" & r("年度") & "-" & r("节假日名称") & "假期值班安排表.xls"
[此贴子已经被作者于2020/1/3 14:12:03编辑过]
-- 发布时间：2020/1/3 13:31:00
--
不行的，怎么回事
-- 发布时间：2020/1/3 13:42:00
--
WordReport是用来生成word报表的，您到底是想使用execl还是word报表？
-- 发布时间：2020/1/3 13:59:00
--
用excel报表
-- 发布时间：2020/1/3 14:01:00
--
Dim Book As New XLS.Book(ProjectPath & "Attachments\\假期值班安排表.xls") \'打印
Dim r As Row = Tables("值班排班表").Current
Dim fl As String ="\\\\HRW\\data\\军人事务局\\③值班\\2020年值班表\\"& r("年度") & "-" & r("节假日名称") & "假期值班安排表.xls"
Book.Build() \'生成细节区
Book.Save(fl) \'保存工作簿
Dim Proc As New Process \'打开工作簿
Proc.File = fl
Proc.Start()
Dim Book As New XLS.Book(ProjectPath & "Attachments\\假期值班安排表.xls") \'打印
Dim r As Row = Tables("值班排班表").Current
Dim fl As String ="\\\\HRW\\data\\军人事务局\\③值班\\r("年度")&"值班表"\\"& r("年度") & "-" & r("节假日名称") & "假期值班安排表.xls"
Book.Build() \'生成细节区
Book.Save(fl) \'保存工作簿
Dim Proc As New Process \'打开工作簿
Proc.File = fl
Proc.Start()
以上标红的地方，就是想根据年度自动生成一个文件夹，好存放文件；上一段代码可用，下一段代码不能用，
[此贴子已经被作者于2020/1/3 14:02:45编辑过]
-- 发布时间：2020/1/3 14:04:00
--
看2楼
-- 发布时间：2020/1/3 14:08:00
--
出现 以下错误：
此主题相关图片如下：截图00.png
-- 发布时间：2020/1/3 14:12:00
--
Dim fl As String =" \\\\HRW\\data\\军人事务局\\③值班\\" & r("年度") & "值班表\\" & r("年度") & "-" & r("节假日名称") & "假期值班安排表.xls"
-- 发布时间：2020/1/3 14:14:00
--
出现下边错误：
此主题相关图片如下：截图01.png