没有合适的资源?快使用搜索试试~ 我知道了~
资源推荐
资源详情
资源评论
asp 中表格导出到 EXCEL 的方法
一、第一种
表格导出到 Word 代码、导出到 EXCEL 代码
<input type="hidden" name="out_word" onclick="vbscript:buildDoc"value="导出
到 word" class="notPrint">
<input type="hidden" name="out_excel"onclick="AutomateExcel();" value="导出
到 excel" class="notPrint">
<title>浏览器表格导出到 Excel 代码</title>
<input type="button" name="out_word" onclick="vbscript:buildDoc"value="导出
到 word" class="notPrint">
<input type="button" name="out_word1" onclick="javascript:AutomateExcel() "
value="导出到 excel" class="notPrint">
<table id="data" width="200" border="1">
<tr>
<td>11</td>
<td>11</td>
</tr>
<tr>
<td>22</td>
<td>22</td>
</tr>
<tr>
<td>33</td>
<td>33</td>
</tr>
<tr>
<td>44 </td>
<td>44</td>
</tr>
</table>
<SCRIPT LANGUAGE="JavaScript">
<!--
function AutomateExcel()
{
// Start Excel and get Application object.
var oXL = new ActiveXObject("Excel.Application");
// Get a new workbook.
var oWB = oXL.Workbooks.Add();
var oSheet = oWB.ActiveSheet;
var table = document.all.data;
var hang = table.rows.length;
var lie = table.rows(0).cells.length;
// Add table headers going cell by cell.
for (i=0;i<hang;i++)
{
for (j=0;j<lie;j++)
{
oSheet.Cells(i+1,j+1).Value = table.rows(i).cells(j).innerText;
}
}
oXL.Visible = true;
oXL.UserControl = true;
}
//-->
</SCRIPT>
导出到 Word 代码
<script language="vbscript">
Sub buildDoc
set table = document.all.data
row = table.rows.length
column = table.rows(1).cells.length
Set objWordDoc = CreateObject("Word.Document")
'objWordDoc.Application.Documents.Add theTemplate, False
objWordDoc.Application.Visible=True
Dim theArray(20,10000)
for i=0 to row-1
for j=0 to column-1
theArray(j+1,i+1) = table.rows(i).cells(j).innerTEXT
next
next
objWordDoc.Application.ActiveDocument.Paragraphs.Add.Range.InsertBefore("综
合查询结果集") //显示表格标题
objWordDoc.Application.ActiveDocument.Paragraphs.Add.Range.InsertBefore("")
Set rngPara = objWordDoc.Application.ActiveDocument.Paragraphs(1).Range
With rngPara
.Bold = True //将标题设为粗体
.ParagraphFormat.Alignment = 1 //将标题居中
.Font.Name = "隶书" //设定标题字体
.Font.Size = 18 //设定标题字体大小
End With
Set rngCurrent = objWordDoc.Application.ActiveDocument.Paragraphs(3).Range
Set tabCurrent =
ObjWordDoc.Application.ActiveDocument.Tables.Add(rngCurrent,row,column)
for i = 1 to column
objWordDoc.Application.ActiveDocument.Tables(1).Rows(1).Cells(i).Range.Inse
rtAfter theArray(i,1)
objWordDoc.Application.ActiveDocument.Tables(1).Rows(1).Cells(i).Range.Para
graphFormat.alignment=1
next
For i =1 to column
For j = 2 to row
objWordDoc.Application.ActiveDocument.Tables(1).Rows(j).Cells(i).Range.Inse
rtAfter theArray(i,j)
objWordDoc.Application.ActiveDocument.Tables(1).Rows(j).Cells(i).Range.Para
graphFormat.alignment=1
Next
Next
End Sub
</SCRIPT>
剩余11页未读,继续阅读
资源评论
是原来的你吗
- 粉丝: 6769
- 资源: 1647
上传资源 快速赚钱
- 我的内容管理 展开
- 我的资源 快来上传第一个资源
- 我的收益 登录查看自己的收益
- 我的积分 登录查看自己的积分
- 我的C币 登录后查看C币余额
- 我的收藏
- 我的下载
- 下载帮助
最新资源
- 熊猫精灵脚本助手V2.8
- 塑料粒子播撒机 非标自动化废料循环设备step全套技术资料100%好用.zip
- zemax单透镜1234567
- zemax消色差一天文望远物镜
- C语言编译器dev-C++
- 循环自动上料透明胶片折边机(sw19可编辑+工程图)全套技术资料100%好用.zip
- 显影辊抛光机(硒鼓OPC感光鼓表面抛光)sw18可编辑+工程图全套技术资料100%好用.zip
- 一出八螺丝供料器sw17可编辑全套技术资料100%好用.zip
- 樱桃去核机sw16可编辑全套技术资料100%好用.zip
- 移动印刷机(sw可编辑+工程图+BOM)全套技术资料100%好用.zip
- 程序员面试笔试面经基础教程
- 智能全自动煮面售卖机sw16可编辑全套技术资料100%好用.zip
- 秋招信息获取与分析基础教程
- Java编程世界探索基础教程
- 栈板自动拆垛机sw18可编辑全套技术资料100%好用.zip
- Python编程从入门到精通基础教程
资源上传下载、课程学习等过程中有任何疑问或建议,欢迎提出宝贵意见哦~我们会及时处理!
点击此处反馈
安全验证
文档复制为VIP权益,开通VIP直接复制
信息提交成功