利用ASP如何创建Excel文件

ljmy2000 2004-03-20 03:37:56

利用ASP如何创建Excel文件

...全文

143 4 打赏收藏转发到动态举报

写回复

用AI写文章

4 条回复

切换为时间正序

请发表友善的回复…

发表回复

robin0925 2004-03-24

打赏
举报

<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN"
"http://www.w3.org/TR/html4/loose.dtd">
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>无标题文档</title>
</head>
<script language="vbscript">
sub btnExport_onclick()
dim objExcel
on error resume next
Set objExcel = CreateObject("excel.application")
With objExcel
.visible =true
.workbooks.add
.sheets("sheet1").select

End with
m_row="0"

for a=0 to document.all.mytable.rows.length-1
m_row = cstr(int (m_row)+1)
for b=0 to document.all.mytable.rows(a).cells.length-1
m_col = chr(asc("A")+b)
objexcel.range(m_col&m_row).select
M_value = document.all.mytable.rows(a).cells(b).innerText
objexcel.activecell.value=cstr(m_value)
next
next
m_row="0"
for a=0 to document.all.mytable2.rows.length-1
m_row = cstr(int (m_row)+1)
for b=0 to document.all.mytable2.rows(a).cells.length-1
m_col = chr(asc("E")+b)
objexcel.range(m_col&m_row).select
M_value = document.all.mytable2.rows(a).cells(b).innerText
objexcel.activecell.value=cstr(m_value)
next
next
objexcel.visible=true
objexcel.range("A1").select
End sub

</script>

<body>
<form name="form1" method="post" action="">
<table width="750" border="0" cellpadding="0" >
<tr>
<td><table width="750" border="0" cellpadding="0" id="mytable">
<tr>
<td>1</td>
<td>2</td>
</tr>
<tr>
<td>3</td>
<td>4</td>
</tr>
</table></td>
<td><table width="750" border="0" cellpadding="0" id="mytable2">
<tr>
<td>5</td>
<td>6</td>
</tr>
<tr>
<td>7</td>
<td>8</td>
</tr>
<tr>
<td>9</td>
<td>10</td>
</tr>
</table></td>
</tr>
</table>

<input type="submit" name="Submit" value="提交" onClick="btnExport_onclick()">
</form>
<p> </p>
</body>
</html>

Rgbvke 2004-03-20