共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
.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
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
FileSys.DeleteFile(dir & ".zip",2,2)
End If
Dim zip As New zipFile
zip.Create(dir & ".zip")
zip.AddFolder(dir )
zip.Close()
zip.Create(dir & ".zip")
zip.AddFolder(dir )
zip.Close()
e.WriteFile(dir & ".zip")
共2 条记录, 每页显示 10 条, 页签:
[1]