快捷導(dǎo)航

可以讀取EXCEL文件的js代碼第2/2頁

更新時(shí)間：2009年08月26日 00:19:17 作者：

js讀取 EXCEL 文件的實(shí)現(xiàn)代碼，比較全了大家可以自行測試了。

用JS讀取excel的例子

 
<% 
'' 
'********************************************************* 
' 目的：讀取excel資料後插入到數(shù)據(jù)庫中同時(shí)紀(jì)錄成功和失敗的數(shù)目 
' 傳入： 
' 返回： 
'********************************************************* 
Function GetExcel() 
Dim conn 
Dim StrConn 
Dim rs 
Dim Sql 
file="" 
Set conn=Server.CreateObject("ADODB.Connection") 
StrConn="Driver={Microsoft Excel Driver (*.xls)};DBQ="& Server.MapPath("EXCEL_DATA.xls") 
''StrConn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=dd.xls;Extended Properties=Excel 8.0" 
conn.Open StrConn 
Set rs = Server.CreateObject("ADODB.Recordset") 
Sql="select * from [Sheet1$]" 
rs.Open Sql,conn,2,2 
''讀取excel中的字段名稱,並檢察字段順序是否正確 
for i=0 to rs.Fields.Count-1 
FILE_HEAD=FILE_HEAD&rs(i).Name 
next 
''response.write FILE_HEAD 
IF trim(FILE_HEAD)<>"版本使用單位類綱目節(jié)類說明綱說明目說明檔名保存年限共同分類號(hào)" THEN 
RESPONSE.WRITE "<SCRIPT LANGUAGE='JAVASCRIPT'>alert('EXCEL文件字段順序錯(cuò)誤或字段數(shù)不對(duì)!!')</SCRIPT>" 
exit Function 
END IF 
''讀取excel中的資料 
do while Not rs.EOF 
''將讀取的資料INSERT到oracle數(shù)據(jù)庫 
for i=0 to rs.Fields.Count-1 
EDITION=rs(0) 
FILE_CODE=rs(2)+rs(3)+rs(4)+rs(5) 
FILE_NAME=rs(9) 
KIND1_DESC=rs(6) 
KIND2_DESC=rs(7) 
KIND3_DESC=rs(8) 
KIND4_DESC=rs(9) 
SAVE_YEAR=rs(10) 
FILE_UNIT=rs(1) 
COM_FILE_CODE=rs(11) 
''============================================== 
CHECED_SQL="Select nvl(FILE_CASE,'') FILE_CASE FROM ODM67 where EDITION='"&TRIM(EDITION)&"' and FILE_CODE='"&TRIM(FILE_CODE)&"' " 
If mobjDB.OpenSQL(CHECED_SQL) Then 
If mobjDB.IsEmpty Then 
FILE_CASE="0001" 
CASE_DESC="總案" 
INS_SQL="" 
INS_SQL=INS_SQL & " INSERT INTO ODM67(" & VBCRLF 
INS_SQL=INS_SQL & " EDITION,FILE_CODE,FILE_CASE," & VBCRLF 
INS_SQL=INS_SQL & " CASE_DESC,CRT_USER,CRT_DATE," & VBCRLF 
INS_SQL=INS_SQL & " CRT_TIME,MDF_USER,MDF_DATE,MDF_TIME)" & VBCRLF 
INS_SQL=INS_SQL & " VALUES(" & VBCRLF 
INS_SQL=INS_SQL & " '"&TRIM(EDITION)&"','"&TRIM(FILE_CODE)&"'," & VBCRLF 
INS_SQL=INS_SQL & " '"&TRIM(FILE_CASE)&"','"&TRIM(CASE_DESC)&"'," & VBCRLF 
INS_SQL=INS_SQL & " '"&TRIM(SESSION("USER_ID"))&"','"&TRIM(TODAY)&"'," & VBCRLF 
INS_SQL=INS_SQL & " '"&TRIM(NOWTIME)&"','"&TRIM(SESSION("USER_ID"))&"'," & VBCRLF 
INS_SQL=INS_SQL & " '"&TRIM(TODAY)&"','"&TRIM(NOWTIME)&"')" 
CALL mobjDB.ExecSQL(INS_SQL) 
End If 
End If 
''============================================== 
INS_SQL="" 
INS_SQL=INS_SQL & " INSERT INTO ODM61( " & VBCRLF 
INS_SQL=INS_SQL & " EDITION,FILE_CODE,FILE_NAME,KIND1_DESC," & VBCRLF 
INS_SQL=INS_SQL & " KIND2_DESC,KIND3_DESC,KIND4_DESC,SAVE_YEAR," & VBCRLF 
INS_SQL=INS_SQL & " FILE_UNIT,COM_FILE_CODE,CRT_USER,CRT_DATE," & VBCRLF 
INS_SQL=INS_SQL & " CRT_TIME,MDF_USER,MDF_DATE,MDF_TIME)" & VBCRLF 
INS_SQL=INS_SQL & " VALUES(" & VBCRLF 
INS_SQL=INS_SQL & " '"&TRIM(EDITION)&"','"&TRIM(FILE_CODE)&"'," & VBCRLF 
INS_SQL=INS_SQL & " '"&TRIM(FILE_NAME)&"','"&TRIM(KIND1_DESC)&"'," & VBCRLF 
INS_SQL=INS_SQL & " '"&TRIM(KIND2_DESC)&"','"&TRIM(KIND3_DESC)&"'," & VBCRLF 
INS_SQL=INS_SQL & " '"&TRIM(KIND4_DESC)&"','"&TRIM(SAVE_YEAR)&"'," & VBCRLF 
INS_SQL=INS_SQL & " '"&TRIM(FILE_UNIT)&"','"&TRIM(COM_FILE_CODE)&"'," & VBCRLF 
INS_SQL=INS_SQL & " '"&TRIM(SESSION("USER_ID"))&"','"&TRIM(TODAY)&"'," & VBCRLF 
INS_SQL=INS_SQL & " '"&TRIM(NOWTIME)&"','"&TRIM(SESSION("USER_ID"))&"'," & VBCRLF 
INS_SQL=INS_SQL & " '"&TRIM(TODAY)&"','"&TRIM(NOWTIME)&"')" 
''RESPONSE.WRITE INS_SQL& "<BR>" 
IF mobjDB.ExecSQL(INS_SQL) THEN 
InCount=InCount+1 
ELSE 
NoCount=NoCount+1 
file=file&TODAY&" "&NOWTIME&" "&EDITION&" "&FILE_CODE & VBCRLF 
END IF 
exit for 
next 
rs.MoveNext 
Loop 
rs.close 
set rs=nothing 
Conn.close 
set StrConn=nothing 
if file<>"" then 
CALL CreateFolder() 
call SetFile(file) 
strpath=server.mappath("EXCEL_DATA.xls") 
call DeleteFolder(strpath) 
file="" 
end if 
End Function 
'********************************************************* 
' 目的： 新建一個(gè)指定的文件，如果存在就不新建，並向文件追加紀(jì)錄 
' 傳入： file:要追加的數(shù)據(jù) 
' 返回： 
'********************************************************* 
Function SetFile(file) 
file_path="C:\LOG\OD60err.log" 
set fstemp=server.CreateObject("Scripting.FileSystemObject") 
IF (fstemp.FileExists(file_path)) THEN 
ELSE 
set filetemp=fstemp.CreateTextFile(file_path,true) 
filetemp.writeLine "紀(jì)錄匯入失敗資料" 
filetemp.close 
END IF 
''追加失敗資料信息OpenTextFile 
set filetemp=fstemp.OpenTextFile(file_path,8,true) 
filetemp.writeLine file 
filetemp.close 
set filetemp=Nothing 
set fstemp=Nothing 
End Function 
'********************************************************* 
' 目的： 新建一個(gè)指定的文件夾，如果存在就不新建 
' 傳入： 
' 返回： 
'********************************************************* 
Function CreateFolder() 
Dim fso, f 
folder="c:\LOG" 
Set fso = CreateObject("Scripting.FileSystemObject") 
IF fso.FolderExists(folder) THEN 
ELSE 
Set f = fso.CreateFolder(folder) 
CreateFolderDemo = f.Path 
END IF 
End Function 
'********************************************************* 
' 目的：刪除上傳的文件， 
' 傳入：傳入上傳文件的虛擬路徑 
' 返回： 
'********************************************************* 
Function DeleteFolder(filepath) 
Dim fso, f 
folder="EXCEL_DATA.xls" 
Set fso = CreateObject("Scripting.FileSystemObject") 
''response.write fso.FileExists(filepath) 
IF fso.FileExists(filepath) THEN 
fso.DeleteFile filepath 
END IF 
End Function 
%> 

復(fù)制代碼代碼如下:

 
<script> 
function readThis(){ 
var tempStr = ""; 
var filePath= document.all.upfile.value; 
var oXL = new ActiveXObject("Excel.application"); 
var oWB = oXL.Workbooks.open(filePath); 
oWB.worksheets(1).select(); 
var oSheet = oWB.ActiveSheet; 
try{ 
for(var i=2;i<46;i++){ 
if(oSheet.Cells(i,2).value =="null" || oSheet.Cells(i,3).value =="null" ) 
break; 
var a = oSheet.Cells(i,2).value.toString()=="undefined"?"":oSheet.Cells(i,2).value; 
tempStr+=(" "+oSheet.Cells(i,2).value+ 
" "+oSheet.Cells(i,3).value+ 
" "+oSheet.Cells(i,4).value+ 
" "+oSheet.Cells(i,5).value+ 
" "+oSheet.Cells(i,6).value+"\n"); 
} 
}catch(e){ 
//alert(e); 
document.all.txtArea.value = tempStr; 
} 
document.all.txtArea.value = tempStr; 
oXL.Quit(); 
CollectGarbage(); 
} 
</script> 
<html> 
<input type="file" id="upfile" /><input type="button" onclick="readThis();" value="讀取"> 
<br> 
<textarea id="txtArea" cols=50 rows=10></textarea> 
</html>

上一頁 12閱讀全文

您可能感興趣的文章:

EXCEL
js

相關(guān)文章

js style動(dòng)態(tài)設(shè)置table高度
設(shè)置table高度想必大家都會(huì)，直接在table標(biāo)簽中設(shè)置下不就行了嗎？這是靜態(tài)的，如果要?jiǎng)討B(tài)設(shè)置你會(huì)嗎？下面的實(shí)例將教會(huì)大家
2014-10-10
微信小程序調(diào)用微信授權(quán)窗口相關(guān)問題解決
這篇文章主要介紹了微信小程序調(diào)用微信授權(quán)窗口相關(guān)問題解決,文中通過示例代碼介紹的非常詳細(xì)，對(duì)大家的學(xué)習(xí)或者工作具有一定的參考學(xué)習(xí)價(jià)值,需要的朋友可以參考下
2019-07-07
這篇文章主要介紹了javascript中的面向?qū)ο缶幊讨R(shí)點(diǎn)，對(duì)面向?qū)ο缶幊踢M(jìn)行概述，以及各種方法進(jìn)行整理，感興趣的小伙伴們可以參考一下
2015-11-11

jquery中l(wèi)ive()方法和bind()方法區(qū)別分析

這篇文章主要介紹了jquery中l(wèi)ive()方法和bind()方法區(qū)別,結(jié)合實(shí)例形式簡單分析了live()方法和bind()方法的功能、使用方法與用法區(qū)別,需要的朋友可以參考下

2016-06-06

js出生日期年月日級(jí)聯(lián)菜單示例代碼

本篇文章主要介紹了js出生日期年月日級(jí)聯(lián)菜單的示例代碼。需要的朋友可以過來參考下，希望對(duì)大家有所幫助

2014-01-01

js的2種繼承方式詳解

這篇文章主要介紹了javascript的2種繼承方式,分析對(duì)象冒充和原型鏈方式的不同,需要的朋友可以參考下

2014-03-03

Three.js的使用及繪制基礎(chǔ)3D圖形詳解

這篇文章主要介紹了Three.js的使用及繪制基礎(chǔ)3D圖形的相關(guān)資料，文中介紹的非常詳細(xì)，對(duì)大家學(xué)習(xí)或者使用three.js具有一定的參考價(jià)值，需要的朋友們下面來一起看看吧。

2017-04-04

原生js實(shí)現(xiàn)類似彈窗抖動(dòng)效果

這篇文章主要介紹了原生js實(shí)現(xiàn)類似彈窗抖動(dòng)效果的相關(guān)資料,推薦給大家，需要的朋友可以參考下

2015-04-04

JS設(shè)計(jì)模式之單例模式（一）

這篇文章主要為大家詳細(xì)介紹了JS設(shè)計(jì)模式之單例模式的相關(guān)資料，具有一定的參考價(jià)值，感興趣的小伙伴們可以參考一下

2017-09-09

ES6中Set和Map數(shù)據(jù)結(jié)構(gòu)，Map與其它數(shù)據(jù)結(jié)構(gòu)互相轉(zhuǎn)換操作實(shí)例詳解

這篇文章主要介紹了ES6中Set和Map數(shù)據(jù)結(jié)構(gòu)，Map與其它數(shù)據(jù)結(jié)構(gòu)互相轉(zhuǎn)換操作,結(jié)合實(shí)例形式詳細(xì)分析了ES6中的Set和Map數(shù)據(jù)結(jié)構(gòu)的概念、原理、遍歷、去重等操作,以及Map與其它數(shù)據(jù)結(jié)構(gòu)互相轉(zhuǎn)換操作,需要的朋友可以參考下

2019-02-02

欧美bbbwbbbw肥妇,免费乱码人妻系列日韩,一级黄片

軟件下載

源碼下載

軟件編程

網(wǎng)絡(luò)編程

在線工具

數(shù)據(jù)庫

CMS

常用工具

可以讀取EXCEL文件的js代碼第2/2頁

相關(guān)文章

最新評(píng)論

大家感興趣的內(nèi)容

最近更新的內(nèi)容

常用在線小工具