| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.com/bbs/index.asp) -- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2) ---- 如何将addtable生成的表格转成excl并在手机上下载 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=125837) |
| -- 作者：刘林 -- 发布时间：2018/10/8 12:28:00 -- 如何将addtable生成的表格转成excl并在手机上下载 With wb.AddTable("","Table1") .head.AddRow(cps).Attribute="style=\'font-size:20px;color:blue;white-space:nowrap;\' align=\'center;\'" For r As Integer=0 To lst.Count-1 With .body.AddRow() .addcell(r+1) For Each nm As String In nms .AddCell(lst(r)(nm)) Next End With Next .ActiveSheet = "menu" End With With wb.AddActionSheet("","menu") .Add("mnuEdit", "下载表格").Attribute ="" .Add("mnuback","返回","",True).Attribute = "" End With 请问老师：如题
|
| -- 作者：有点甜 -- 发布时间：2018/10/8 14:32:00 -- 不能直接转的。
你要单独做一个htm页面，根据你的需求，生成一个excel文件，然后把这个excel文件下载。 |
| -- 作者：刘林 -- 发布时间：2018/10/8 14:48:00 -- 不懂，帮指导个示例，因为我这个AddTable("","Table1"是根据选择项目不同生成的，内容不固定，我的想法是能不能提出生成的表的行列来填充excel |
| -- 作者：有点甜 -- 发布时间：2018/10/8 14:56:00 -- 以下是引用刘林在2018/10/8 14:48:00的发言：
不懂，帮指导个示例，因为我这个AddTable("","Table1"是根据选择项目不同生成的，内容不固定，我的想法是能不能提出生成的表的行列来填充excel
你可以在生成table的过程中，顺便也把excel生成
http://www.foxtable.com/webhelp/scr/1148.htm
|
| -- 作者：刘林 -- 发布时间：2018/10/9 22:14:00 -- Dim Book As New XLS.Book \'定义一个Excel工作簿 Dim Sheet As XLS.Sheet = Book.Sheets(0) \'引用工作簿的第一个工作表 With wb.AddTable("","Table1") .head.AddRow(cps).Attribute="style=\'font-size:20px;color:blue;white-space:nowrap;\' align=\'center;\'" Dim i As Integer=0 For Each cp As String In cps \'添加列标题 Sheet(0, i).Value = cp i=i+1 Next For r As Integer=0 To lst.Count-1 With .body.AddRow() .addcell(r+1) Sheet(r +1, 0).Value = r+1 Dim j As Integer=1 For Each nm As String In nms .AddCell(lst(r)(nm)) Sheet(r +1, j).Value = lst(r)(nm) j=j+1 Next End With Next .ActiveSheet = "menu" End With Book.Save("c:\\reports\\test.xls") With wb.AddActionSheet("","menu") .Add("mnuEdit", "下载表格").Attribute ="" .Add("mnuback","返回","",True).Attribute = "" End With wb.AppendHTML("<style>.fox_table th{border: 1px solid black} .fox_table td{border: 1px solid black}</style>") Else With wb.AddMsgPage("","msgpage","学段和考试名称为必选内容", "班级全称为空则查看该次考试所有记录") \'生成成功提示页 \' .AddButton("btn1","知道了","javascript:history.back()").Attribute = "style=\'border:1px solid black;border-radius:20px;padding:0px;" .icon="warn" Dim bt1=.AddButton("btn1","知道了,谢谢","javascript:history.back()") bt1.kind=1 bt1.Attribute = "style=\'border:1px solid black;border-radius:20px;padding:0px;width:50%;\'" End With End If e.WriteString(wb.Build) e.Handled = True End If 老师，你好我按上面，测试了存的文件是有了，现在如何在点菜单时下载，这个怎么写呢，另外如果放在服务器上，大家看都存这个文件，那不后来的就会履盖前面的这个文件，到时下载不就出问题了，这怎么做更好
|
| -- 作者：有点蓝 -- 发布时间：2018/10/9 22:25:00 -- 根据登录的用户名创建独立的文件夹，注意文件夹要放到web目录里，不能乱放：http://www.foxtable.com/mobilehelp/scr/0276.htm 比如："d:\\web\\张三\\某某文件.xls"
|
| -- 作者：刘林 -- 发布时间：2018/10/9 22:29:00 -- .Add("mnuEdit", "下载表格").Attribute ="" 这个直接写文件名吗？
|
| -- 作者：有点蓝 -- 发布时间：2018/10/9 22:44:00 -- 关于文件的下载，你之前问过很多次的了，用法都一样，自己要学会总结：http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=125268&skin=0 |
| -- 作者：刘林 -- 发布时间：2018/10/9 23:04:00 -- 用标签的方式：这样是可以的 wb.InsertHTML("<a href=\'http://47.92.95.135/xzwj/test.xls\' >点击下载</a>") 我想请教 在菜单上 .Add("mnuEdit", "下载表格").Attribute =" 这个填地址不行呢" 该怎么写
|
| -- 作者：有点蓝 -- 发布时间：2018/10/9 23:29:00 -- [此贴子已经被作者于2018/10/9 23:30:00编辑过]
|