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
老师，你好我按上面，测试了存的文件是有了，现在如何在点菜单时下载，这个怎么写呢，另外如果放在服务器上，大家看都存这个文件，那不后来的就会履盖前面的这个文件，到时下载不就出问题了，这怎么做更好
加好友 
发短信
Post By：2018/10/8 12:28:00 [只看该作者]
