共2 条记录, 每页显示 10 条, 页签: [1]

标题：求助如何批量下载 excel模板文件

1楼

夜点蚊香 发表于：2024/6/1 0:06:00

求助如何批量下载 excel模板文件

下载信息 [文件大小：下载次数： ]
点击浏览该文件:求助如何批量下载 excel模板文件.txt

下载网页打卡以后，下载第一个excel文件就结束了，怎么批量下载

2楼

有点蓝 发表于：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" )

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")

共2 条记录, 每页显示 10 条, 页签: [1]

标题：求助 如何批量下载 excel模板文件

标题：求助如何批量下载 excel模板文件