专家坐堂-请教如何动态设定excel报表文件名的代码Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  请教如何动态设定excel报表文件名的代码  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=187783)

--  作者：hejfen
--  发布时间：2023/8/11 0:48:00
--  请教如何动态设定excel报表文件名的代码
选择多行后输出excel报表，要求生成与所选行对应的多个excel报表，报表文件名称为对应某列的内容，请教代码？

--  作者：有点蓝
--  发布时间：2023/8/11 8:30:00
--

With Tables("出库单")
    For i as Integer = .TopPosition To .BottomPosition
.position = i
Dim Book As New XLS.Book(ProjectPath & "Attachments\\出库单.xls")
Dim fl As String = ProjectPath & "Reports\\" & .Rows(i)("某列") & ".xls"
Book.Build() \'生成细节区
Book.Save(fl) \'保存工作簿
    Next
End With

--  作者：hejfen
--  发布时间：2023/8/11 12:08:00
--
生成的第一个文件会是选定多行的所有数据，next之后生成的文件才是单行关联的数据。

--  作者：有点蓝
--  发布时间：2023/8/11 13:33:00
--

With Tables("出库单")
dim a as integer = .TopPosition
dim b as integer = .BottomPosition
.select(0,0)
    For i as Integer = a To b
.position = i
Dim Book As New XLS.Book(ProjectPath & "Attachments\\出库单.xls")
Dim fl As String = ProjectPath & "Reports\\" & .Rows(i)("某列") & ".xls"
Book.Build() \'生成细节区
Book.Save(fl) \'保存工作簿
    Next
End With

--  作者：hejfen
--  发布时间：2023/8/11 14:43:00
--
谢谢版主