精品视频无码一区二区三区,成人精品午夜在线观看,精品无码专区在线观看

Javascript導出Excel的方法

當前位置：點晴教程→知識管理交流 →『技術文檔交流』

admin

2010年8月18日 0:0 本文熱度 3707

<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN"
2

"http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
3

<html xmlns="http://www.w3.org/1999/xhtml">
4

<head>
5

<title>WEB頁面導出為EXCEL文檔的方法</title>
7

</head>
8

<body>
9

<table id="tableExcel" width="100%" border="1" cellspacing="0" cellpadding="0">
10

<tr>
11

<td colspan="5" align="center">WEB頁面導出為EXCEL文檔的方法</td>
12

</tr>
13

<tr>
14

<td>列標題1</td>
15

<td>列標題2</td>
16

<td>列標題3</td>
17

<td>列標題4</td>
18

<td>列標題5</td>
19

</tr>
20

<tr>
21

<td>aaa</td>
22

<td>bbb</td>
23

<td>ccc</td>
24

<td>ddd</td>
25

<td>eee</td>
26

</tr>
27

<tr>
28

<td>AAA</td>
29

<td>BBB</td>
30

<td>CCC</td>
31

<td>DDD</td>
32

<td>EEE</td>
33

</tr>
34

<tr>
35

<td>FFF</td>
36

<td>GGG</td>
37

<td>HHH</td>
38

<td>III</td>
39

<td>JJJ</td>
40

</tr>
41

</table>
42

<input type="button" onclick="javascript:method1('tableExcel');" value="第一種方法導入到EXCEL">
43

<input type="button" onclick="javascript:method2('tableExcel');" value="第二種方法導入到EXCEL">
44

<input type="button" onclick="javascript:getXlsFromTbl('tableExcel',null);" value="第三種方法導入到EXCEL">
45

<SCRIPT LANGUAGE="javascript">
46

function method1(tableid) {//整個表格拷貝到EXCEL中
47

var curTbl = document.getElementById(tableid);
48

var oXL = new ActiveXObject("Excel.Application");
49

//創(chuàng)建AX對象excel
50

var oWB = oXL.Workbooks.Add();
51

//獲取workbook對象
52

var oSheet = oWB.ActiveSheet;
53

//激活當前sheet
54

var sel = document.body.createTextRange();
55

sel.moveToElementText(curTbl);
56

//把表格中的內容移到TextRange中
57

sel.select();
58

//全選TextRange中內容
59

sel.execCommand("Copy");
60

//復制TextRange中內容
61

oSheet.Paste();
62

//粘貼到活動的EXCEL中
63

oXL.Visible = true;
64

//設置excel可見屬性
65

}
66

function method2(tableid) //讀取表格中每個單元到EXCEL中
67

{
68

var curTbl = document.getElementById(tableid);
69

var oXL = new ActiveXObject("Excel.Application");
70

//創(chuàng)建AX對象excel
71

var oWB = oXL.Workbooks.Add();
72

//獲取workbook對象
73

var oSheet = oWB.ActiveSheet;
74

//激活當前sheet
75

var Lenr = curTbl.rows.length;
76

//取得表格行數
77

for (i = 0; i < Lenr; i++)
78

{
79

var Lenc = curTbl.rows(i).cells.length;
80

//取得每行的列數
81

for (j = 0; j < Lenc; j++)
82

{
83

oSheet.Cells(i + 1, j + 1).value = curTbl.rows(i).cells(j).innerText;
84

//賦值
85

}
86

}
87

oXL.Visible = true;
88

//設置excel可見屬性
89

}
90

function getXlsFromTbl(inTblId, inWindow) {
91

try {
92

var allStr = "";
93

var curStr = "";
94

//alert("getXlsFromTbl");
95

if (inTblId != null && inTblId != "" && inTblId != "null") {
96

curStr = getTblData(inTblId, inWindow);
97

}
98

if (curStr != null) {
99

allStr += curStr;
100

}
101

else {
102

alert("你要導出的表不存在！");
103

return;
104

}
105

var fileName = getExcelFileName();
106

doFileExport(fileName, allStr);
107

}
108

catch(e) {
109

alert("導出發(fā)生異常:" + e.name + "->" + e.description + "!");
110

}
111

}
112

function getTblData(inTbl, inWindow) {
113

var rows = 0;
114

//alert("getTblData is " + inWindow);
115

var tblDocument = document;
116

if (!!inWindow && inWindow != "") {
117

if (!document.all(inWindow)) {
118

return null;
119

}
120

else {
121

tblDocument = eval(inWindow).document;
122

}
123

}
124

var curTbl = tblDocument.getElementById(inTbl);
125

var outStr = "";
126

if (curTbl != null) {
127

for (var j = 0; j < curTbl.rows.length; j++) {
128

//alert("j is " + j);
129

for (var i = 0; i < curTbl.rows[j].cells.length; i++) {
130

//alert("i is " + i);
131

if (i == 0 && rows > 0) {
132

outStr += " \t";
133

rows -= 1;
134

}
135

outStr += curTbl.rows[j].cells[i].innerText + "\t";
136

if (curTbl.rows[j].cells[i].colSpan > 1) {
137

for (var k = 0; k < curTbl.rows[j].cells[i].colSpan - 1; k++) {
138

outStr += " \t";
139

}
140

}
141

if (i == 0) {
142

if (rows == 0 && curTbl.rows[j].cells[i].rowSpan > 1) {
143

rows = curTbl.rows[j].cells[i].rowSpan - 1;
144

}
145

}
146

}
147

outStr += "\r\n";
148

}
149

}
150

else {
151

outStr = null;
152

alert(inTbl + "不存在!");
153

}
154

return outStr;
155

}
156

function getExcelFileName() {
157

var d = new Date();
158

var curYear = d.getYear();
159

var curMonth = "" + (d.getMonth() + 1);
160

var curDate = "" + d.getDate();
161

var curHour = "" + d.getHours();
162

var curMinute = "" + d.getMinutes();
163

var curSecond = "" + d.getSeconds();
164

if (curMonth.length == 1) {
165

curMonth = "0" + curMonth;
166

}
167

if (curDate.length == 1) {
168

curDate = "0" + curDate;
169

}
170

if (curHour.length == 1) {
171

curHour = "0" + curHour;
172

}
173

if (curMinute.length == 1) {
174

curMinute = "0" + curMinute;
175

}
176

if (curSecond.length == 1) {
177

curSecond = "0" + curSecond;
178

}
179

var fileName = "leo_zhang" + "_" + curYear + curMonth + curDate + "_"
180

+ curHour + curMinute + curSecond + ".csv";
181

//alert(fileName);
182

return fileName;
183

}
184

function doFileExport(inName, inStr) {
185

var xlsWin = null;
186

if (!!document.all("glbHideFrm")) {
187

xlsWin = glbHideFrm;
188

}
189

else {
190

var width = 6;
191

var height = 4;
192

var openPara = "left=" + (window.screen.width / 2 - width / 2)
193

+ ",top=" + (window.screen.height / 2 - height / 2)
194

+ ",scrollbars=no,width=" + width + ",height=" + height;
195

xlsWin = window.open("", "_blank", openPara);
196

}
197

xlsWin.document.write(inStr);
198

xlsWin.document.close();
199

xlsWin.document.execCommand('Saveas', true, inName);
200

xlsWin.close();
201

}
202

</SCRIPT>
203

</body>
204

</html>

該文章在 2010/8/18 0:00:09 編輯過

關鍵字查詢

excel

導出

正在查詢...

點晴ERP是一款針對中小制造業(yè)的專業(yè)生產管理軟件系統(tǒng),系統(tǒng)成熟度和易用性得到了國內大量中小企業(yè)的青睞。

點晴PMS碼頭管理系統(tǒng)主要針對港口碼頭集裝箱與散貨日常運作、調度、堆場、車隊、財務費用、相關報表等業(yè)務管理，結合碼頭的業(yè)務特點，圍繞調度、堆場作業(yè)而開發(fā)的。集技術的先進性、管理的有效性于一體，是物流碼頭及其他港口類企業(yè)的高效ERP管理信息系統(tǒng)。

點晴WMS倉儲管理系統(tǒng)提供了貨物產品管理,銷售管理,采購管理,倉儲管理,倉庫管理,保質期管理,貨位管理,庫位管理,生產管理,WMS管理系統(tǒng),標簽打印,條形碼,二維碼管理,批號管理軟件。

點晴免費OA是一款軟件和通用服務都免費，不限功能、不限時間、不限用戶的免費OA協同辦公管理系統(tǒng)。

精品秘无码一区二区三区老师-精品秘一区二三区免费雷安-精品蜜桃秘一区二区三区-精品蜜桃秘一区二区三区粉嫩-精品蜜桃一区二区三区-精品蜜臀国产aⅴ一区二区三区

Javascript導出Excel的方法