Dim tab As WinForm.TabControl = e.Form.controls("TabControl1") For Each p As WinForm.TabPage In tab.TabPages Dim tx = p.Text Dim Book As New XLS.Book(ProjectPath & "Attachments\帐务导出" & tx & ".xls") Dim fl As String = ProjectPath & "Reports\" & tx & ".xls" Book.Build() '生成细节区 Book.Save(fl) '保存工作簿 Next
加好友 
发短信
Post By：2019/3/6 21:56:00 [显示全部帖子]
