天天看點

js實作excel資料導入

< DOCTYPE html PUBLIC -WCDTD XHTML StrictEN httpwwwworgTRxhtmlDTDxhtml-strictdtd>

<head>

     <title>Untitled Page</title>

</head>

<script language="javascript" type="text/javascript">

function importXLS(fileName)

{  

     objCon = new ActiveXObject("ADODB.Connection");

     objCon.Provider = "Microsoft.Jet.OLEDB.4.0";

     objCon.ConnectionString = "Data Source=" + fileName + ";Extended Properties=Excel 8.0;";

     objCon.CursorLocation = 1;

     objCon.Open;

     var strQuery;

     //Get the SheetName

     var strSheetName = "Sheet1$";

     var rsTemp =   new ActiveXObject("ADODB.Recordset");

     rsTemp = objCon.OpenSchema(20);

     if(!rsTemp.EOF)

     strSheetName = rsTemp.Fields("Table_Name").Value;     rsTemp = null     rsExcel =   new ActiveXObject("ADODB.Recordset");

     strQuery = "SELECT * FROM [" + strSheetName + "]";

     rsExcel.ActiveConnection = objCon;

     rsExcel.Open(strQuery);

     while(!rsExcel.EOF)

     {

     for(i = 0;i<rsExcel.Fields.Count;++i)

     alert(rsExcel.Fields(i).value);

     }

     rsExcel.MoveNext;

     // Close the connection and dispose the file

     objCon.Close;

     objCon =null;

     rsExcel = null;

}

</script>

<body>

<input type="file" id="f" />

<input type="button" id="b" value="import" onclick="if(f.value=='')alert('請選擇xls檔案');else importXLS(f.value)" />

</body>

</html>

本文轉自 netcorner 部落格園部落格,原文連結:http://www.cnblogs.com/netcorner/archive/2007/05/21/2912378.html  ,如需轉載請自行聯系原作者

繼續閱讀