Rss & SiteMap

Foxtable(狐表) http://www.foxtable.com

新一代数据库软件,完美融合Access、Foxpro、Excel、vb.net之优势,人人都能掌握的快速软件开发工具!
共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" )
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")
共2 条记录, 每页显示 10 条, 页签: [1]

Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号

Powered By Dvbbs Version 8.3.0
Processed in .03125 s, 3 queries.