我在一个页面集合上做了集页一共有16个，想设计一个按钮，第一：点击它可以导出所有的表
第二：可以点击它直动保存导出的表，只保存不打开。
代码如下：
Dim tab As WinForm.TabControl = e.Form.controls("TabControl1")
Dim tx As String=tab.SelectedPage.text
Dim i As Integer =0
Do While i < 16
i = i + 1
Dim gsname As Row=Tables("总帐管理_table" & i).current()
Dim Book As New XLS.Book(ProjectPath & "Attachments\帐务导出" & tx & ".xls")
Dim fl As String = ProjectPath & "Reports\" & tx & ".xls"
Book.Build() '生成细节区
Book.Save(fl) '保存工作簿
Dim Proc As New Process '打开工作簿
Proc.File = fl
Proc.Start()
Loop
发现导出的页面只是当前的，也不知怎么写遍历集合的代码，请帮我看一下怎么写才可以达到目的？谢谢！
[此贴子已经被作者于2019/3/6 21:43:51编辑过]
加好友 
发短信
Post By：2019/3/6 21:42:00 [只看该作者]
