以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  求助 如何批量下载 excel模板文件  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=192162)
--  作者：夜点蚊香
--  发布时间：2024/6/1 0:06:00
--  求助 如何批量下载 excel模板文件
求助 如何批量下载 excel模板文件
 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:求助 如何批量下载 excel模板文件.txt

下载网页打卡以后，下载第一个excel文件就结束了，怎么批量下载
--  作者：有点蓝
--  发布时间：2024/6/1 8:57:00
--  
方法1、在页面提供多个按钮给用户，一个按钮下载一个文件，比如
        With wb.AddButtonGroup("form1","btg1",True)  \'垂直排列
            .Add("btn1", "文件1", "", "emp.xls")
            .Add("btn2", "文件2", "", "emp2.xls")
            .Add("btn3", "文件3", "", "emp3.xls")
        End With

方法2、把报表先全部保存到服务器web根目录的一个子目录里，然后把所有生成的报表压缩打包http://www.foxtable.com/webhelp/topics/2075.htm，再返回这个压缩文件
要注意服务端是多个用户共用的，所以应该根据登录用户专门建一个目录使用，比如张三登录，就在web根目录建一个张三的目录，把报表文件生成到这个张三目录里再压缩

大概
    Case "emp.xls" \'下载为文件
dim dir as string = "d:\\web\\" & e.Cookies("username") & "\\" & format(date.today,"yyyyMMdd")
If FileSys.DirectoryExists(dir)=false Then 
 FileSys.DeleteDirectory(dir,2,3)
    FileSys.CreateDirectory(dir) 
End If
For Each dr As DataRow In drs
        Dim Book As New XLS.Book(ProjectPath & "Attachments\\资料卡.xls")
        book.AddDataTable("员工","数据源名称","Select * from {员工} where 姓名 = \'“”name“”\'")
        book.build()
Book.Save(dir & "\\" & name &".xls" )
next
If FileSys.FileExists(dir & ".zip") Then
     FileSys.DeleteFile(dir & ".zip",2,2)
End If
Dim zip As New zipFile
zip.Create(dir & ".zip")
zip.AddFolder(dir )
zip.Close()
e.WriteFile(dir & ".zip")