RT
解决方案 »
- 如何记住页面回发前DIV中滚动条的位置
- viewstate["i"]与变量i有什么不同啊
- 求一用于web的combox,且输入一部分能找到匹配的,且输入值必须是combox中的数据,且自动跳到combox中的数据
- 今天的一道面试题,没做出来?
- ASP.NET中checkbox獲取gridview中選擇的值的相關問題
- 如何在ASP.net中使用Com+提供的事务服务
- 为删除按钮添加删除确认代码时出现的问题...
- MVC中的跳转问题。。
- 请各位兄台多给意见,意见越多分越多:数据同步提交的讨论性问题?
- 给个在含过程中分页的示例
- frame src
- asp.net中的panel好像和vb,delphi的panel不同?
/// <summary>
/// 导出Excel
/// </summary>
/// <param name="page"></param>
/// <param name="control"></param>
public static void Export(Page page, Control control)
{
page.Response.Clear();
page.Response.Buffer= true;
page.Response.AppendHeader("Content-Disposition","Attachment;fileName=Export.xls");
page.Response.ContentType = "application/vnd.ms-excel";
page.Response.Charset = "";
page.Response.ContentEncoding = Encoding.Default;
page.EnableViewState = false; StringWriter stringWriter = new StringWriter();
HtmlTextWriter htmlTextWriter = new HtmlTextWriter(stringWriter);
control.RenderControl(htmlTextWriter); page.Response.Write(stringWriter.ToString());
page.Response.End();
}
<HTML>
<HEAD>
<TITLE> New Document </TITLE></HEAD><BODY><table id="table1" width="500" border="1" cellpadding="0" cellspacing="0" bordercolor="#0099FF">
<tr align="center">
<td rowspan="2">标题1</td>
<td colspan="2">标题2</td>
<td rowspan="2">标题3</td>
<td rowspan="2">标题4</td>
</tr>
<tr align="center">
<td>子标题1</td>
<td>子标题2</td>
</tr>
<tr align="center">
<td>4545</td>
<td>12</td>
<td>12</td>
<td>12</td>
<td rowspan="4">1212</td>
</tr>
<tr align="center">
<td>12</td>
<td>12</td>
<td>12</td>
<td>12</td>
</tr>
<tr align="center">
<td>12</td>
<td>12</td>
<td>21</td>
<td>12</td>
</tr>
<tr align="center">
<td>12</td>
<td>12</td>
<td>12</td>
<td>12</td>
</tr>
<tr align="center">
<td>12</td>
<td>12</td>
<td>12</td>
<td>12</td>
<td>121</td>
</tr>
</table>
<input type="button" name="aa" onClick="preview()"><script language=javascript>
function preview() {
window.clipboardData.setData("Text",document.all('table1').outerHTML);
try
{
var ExApp = new ActiveXObject("Excel.Application")
var ExWBk = ExApp.workbooks.add()
var ExWSh = ExWBk.worksheets(1)
ExApp.DisplayAlerts = false
ExApp.visible = true
}
catch(e)
{
alert("您的电脑没有安装Microsoft Excel软件!")
return false
}
ExWBk.worksheets(1).Paste;
}
</script></BODY>
</HTML>