[轉帖]如何用asp讀取Excel文件
當前位置：點晴教程→知識管理交流
→『 技術文檔交流 』
 ：如何用asp讀取Excel文件 如何用asp讀取Excel文件https://www.cnblogs.com/athrun/articles/1036454.html1.ASP對Excel的基本操作 2 讀取Excel文件的實例
<% set xlApp = server.createObject("Excel.Application") strsource = server.MapPath("xl.xls") set xlbook = xlApp.WorkBooks.Open(strsource) set xlsheet = xlbook.Worksheets(1) i = 1 response.write "<table>" while xlsheet.cells(i,1) <> "" response.write "<tr>" response.write "<td>" & xlsheet.Cells(i,1) & "</td>" response.write "<td>" & xlsheet.Cells(i,2) & "</td>" response.write "<td>" & xlsheet.Cells(i,3) & "</td>" response.write "<tr>" i = i + 1 wend response.write "</table>" set xlsheet = nothing set xlbook = nothing xlApp.quit '千萬記住要加這一句，否則每運行一次你的機器里就增加一個Excel進程，而且無法釋放 'set xlApp = nothing 是不行的 %> ================================================================
3. 怎樣將數(shù)據(jù)從Excel導入到SQL Server中
(1)
<% sub dataIntoSqlServer_ceritificate(strFileName,strSheetName,myConn) '定義 dim myConnection dim strName dim rsXsl,rsSql dim myConn_Xsl dim cmd dim i,j dim maxId strName = strFileName set myConnection = Server.createObject("ADODB.Connection") set rsXsl = Server.createObject("ADODB.Recordset") set rsSql = Server.createObject("ADODB.Recordset") set cmd = server.createObject("ADODB.Command") cmd.ActiveConnection = myConn myConn_Xsl = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & strName & _ ";Extended Properties=Excel 8.0" '打開連接 myconnection.open myConn_Xsl '打開表 str_Xsl = "select * from [" & strSheetName & "$]" rsXsl.open str_Xsl,myconnection,1,1 j = 1 Do while not rsXsl.eof '取出最大值 str_sql = "select Max(id) as maxId from exceltosql" rsSql.open str_Sql,myConn,1,3 if Not rsSql.eof then if not isNull(rsSql("maxId")) then maxId=CLng(rsSql("maxId")) + 1 else maxId = 1 end if else maxId = 1 end if rsSql.close '//關閉對象 '加入數(shù)據(jù)庫 str_Sql = "insert into exceltosql values(" & maxId&",'"&rsXsl(1)&"','" & rsXsl(2)&"')" cmd.CommandText = str_Sql cmd.Excute() '''''''''''''''''''''''''''''''''''''''''' j = j + 1 rsXsl.moveNext loop response.write "共導入 " & j_1 & " 條記錄.<br>" response.write "<a href=# onclick='self.close();'>關閉窗口</a>" set rsXsl = nothing set rsSql = nothing set myconnection = nothing set cmd = nothing end sub (2) '調用方法 <% file1 = "c:excelexample.xls" myconn = "DRIVER={SQL SERVER};SERVER=(local);uid=sa;pwd=sa;DATABASE=aspbook" dataIntoSqlServer_ceritificate file1,"sheet1",myconn %> ======================================================== 4.ASP操作Excel技術總結 目錄 一、 環(huán)境配置 二、 ASP對Excel的基本操作 三、 ASP操作Excel生成數(shù)據(jù)表 四、 ASP操作Excel生成Chart圖 五、 服務器端Excel文件瀏覽、下載、刪除方案 六、 附錄 正文 一、 環(huán)境配置 服務器端的環(huán)境配置從參考資料上看，微軟系列的配置應該都行，即： 1．Win9x+PWS+Office 2．Win2000 Professional+PWS+Office 3．Win2000 Server+IIS+Office 目前筆者測試成功的環(huán)境是后二者。Office的版本沒有特殊要求，考慮到客戶機配置的不確定性和下兼容特性，建議服務器端Office版本不要太高，以防止客戶機下載后無法正確顯示。 服務器端環(huán)境配置還有兩個偶然的發(fā)現(xiàn)是： 1． 筆者開發(fā)機器上原來裝有金山的WPS2002，結果Excel對象創(chuàng)建始終出現(xiàn)問題，卸載WPS2002后，錯誤消失。 2． 筆者開發(fā)ASP代碼喜歡用FrontPage，結果發(fā)現(xiàn)如果FrontPage打開（服務器端），對象創(chuàng)建出現(xiàn)不穩(wěn)定現(xiàn)象，時而成功時而不成功。擴展考察后發(fā)現(xiàn)，Office系列的軟件如果在服務器端運行，則Excel對象的創(chuàng)建很難成功。 服務器端還必須要設置的一點是COM組件的操作權限。在命令行鍵入“DCOMCNFG”，則進入COM組件配置界面，選擇Microsoft Excel后點擊屬性按鈕，將三個單選項一律選擇自定義，編輯中將Everyone加入所有權限。保存完畢后重新啟動服務器。 客戶端的環(huán)境配置沒發(fā)現(xiàn)什么特別講究的地方，只要裝有Office和IE即可，版本通用的好象都可以。 二、 ASP對Excel的基本操作 1、 建立Excel對象 set objExcelApp = createObject("Excel.Application") objExcelApp.DisplayAlerts = false 不顯示警告 objExcelApp.Application.Visible = false 不顯示界面 2、 新建Excel文件 objExcelApp.WorkBooks.add set objExcelBook = objExcelApp.ActiveWorkBook set objExcelSheets = objExcelBook.Worksheets set objExcelSheet = objExcelBook.Sheets(1) 3、 讀取已有Excel文件 strAddr = Server.MapPath(".") objExcelApp.WorkBooks.Open(strAddr & "TempletTable.xls") set objExcelBook = objExcelApp.ActiveWorkBook set objExcelSheets = objExcelBook.Worksheets set objExcelSheet = objExcelBook.Sheets(1) 4、 另存Excel文件 objExcelBook.SaveAs strAddr & "TempTable.xls" 5、 保存Excel文件 objExcelBook.Save （筆者測試時保存成功，頁面報錯。） 6、 退出Excel操作 objExcelApp.Quit 一定要退出 set objExcelApp = Nothing 三、 ASP操作Excel生成數(shù)據(jù)表 1、 在一個范圍內(nèi)插入數(shù)據(jù) objExcelSheet.Range("B3:k3").Value = Array("67", "87", "5", "9", "7", "45", "45", "54", "54", "10") 2、 在一個單元格內(nèi)插入數(shù)據(jù) objExcelSheet.Cells(3,1).Value="Internet Explorer" 3、 選中一個范圍 4、 單元格左邊畫粗線條 5、 單元格右邊畫粗線條 6、 單元格上邊畫粗線條 7、 單元格下邊畫粗線條 8、 單元格設定背景色 9、 合并單元格 10、 插入行 11、 插入列 四、 ASP操作Excel生成Chart圖 1、 創(chuàng)建Chart圖 objExcelApp.Charts.Add 2、 設定Chart圖種類 objExcelApp.ActiveChart.ChartType = 97 注：二維折線圖，4；二維餅圖，5；二維柱形圖，51 3、 設定Chart圖標題 objExcelApp.ActiveChart.HasTitle = True objExcelApp.ActiveChart.ChartTitle.Text = "A test Chart" 4、 通過表格數(shù)據(jù)設定圖形 objExcelApp.ActiveChart.SetSourceData objExcelSheet.Range("A1:k5"),1 5、 直接設定圖形數(shù)據(jù)（推薦） objExcelApp.ActiveChart.SeriesCollection.NewSeries objExcelApp.ActiveChart.SeriesCollection(1).Name = "=""333""" objExcelApp.ActiveChart.SeriesCollection(1).Values = "={1,4,5,6,2}" 6、 綁定Chart圖 objExcelApp.ActiveChart.Location 1 7、 顯示數(shù)據(jù)表 objExcelApp.ActiveChart.HasDataTable = True 8、 顯示圖例 objExcelApp.ActiveChart.DataTable.ShowLegendKey = True 五、 服務器端Excel文件瀏覽、下載、刪除方案 瀏覽的解決方法很多，“Location.href=”，“Navigate”，“Response.Redirect”都可以實現(xiàn)，建議用客戶端的方法，原因是給服務器更多的時間生成Excel文件。 下載的實現(xiàn)要麻煩一些。用網(wǎng)上現(xiàn)成的服務器端下載組件或自己定制開發(fā)一個組件是比較好的方案。另外一種方法是在客戶端操作Excel組件，由客戶端操作服務器端Excel文件另存至客戶端。這種方法要求客戶端開放不安全ActiveX控件的操作權限，考慮到通知每個客戶將服務器設置為可信站點的麻煩程度建議還是用第一個方法比較省事。 刪除方案由三部分組成： A： 同一用戶生成的Excel文件用同一個文件名，文件名可用用戶ID號或SessionID號等可確信不重復字符串組成。這樣新文件生成時自動覆蓋上一文件。 B： 在Global.asa文件中設置Session_onEnd事件激發(fā)時，刪除這個用戶的Excel暫存文件。 C： 在Global.asa文件中設置Application_onStart事件激發(fā)時，刪除暫存目錄下的所有文件。 注：建議目錄結構 Src 代碼目錄 Templet 模板目錄 Temp 暫存目錄 六、 附錄 出錯時Excel出現(xiàn)的死進程出現(xiàn)是一件很頭疼的事情。在每個文件前加上“On Error Resume Next”將有助于改善這種情況，因為它會不管文件是否產(chǎn)生錯誤都堅持執(zhí)行到“Application.Quit”，保證每次程序執(zhí)行完不留下死進程。 5.ASP讀EXCEL2000的文章！！
<% '=====================ASP讀取EXCEL注事項=========================== 'i)將Excel97或Excel2000生成的XLS文件（book）看成一個數(shù)據(jù)庫，其中的每一個工作表(sheet)看成數(shù)據(jù)庫表 'ii)ADO假設Excel中的第一行為字段名.所以你定義的范圍中必須要包括第一行的內(nèi)容 'iii)Excel中的行標題（即字段名）不能夠包含數(shù)字. Excel的驅動在遇到這種問題時就會出錯的。例如你的行標題名為“F1” 'iiii)如果你的Excel電子表格中某一列同時包含了文本和數(shù)字的話,那么Excel的ODBC驅動將不能夠正常, 處理這一行的數(shù)據(jù)類型，你必須要保證該列的數(shù)據(jù)類型一致 Dim Conn,Driver,DBPath,Rs ' 建立Connection對象 Set Conn = Server.createObject("ADODB.Connection") Driver = "Driver={Microsoft Excel Driver (*.xls)};" DBPath = "DBQ=" & Server.MapPath( "test.xls" ) '調用Open 方法打開數(shù)據(jù)庫 Conn.Open Driver & DBPath 'DSN連接方式 'Conn.Open "Dsn=test" '注意 表名一定要以下邊這種格試 "[表名$]" 書寫 Sql="select * from [Sheet1$] where 序號=0" Set Rs=Conn.execute(Sql) IF Rs.Eof And Rs.Bof Then Response.write "沒有找到您需要的數(shù)據(jù)!!" Else Do While Not Rs.EOF Response.write Rs("姓名") Rs.MoveNext Loop End IF Rs.Close Set Rs=nothing Conn.Close Set Conn=Nothing 'Response.Write "成功！" %> ======================================================== 6.ASP與電子表格EXCEL的交互操作
Here we go again with another sample for Excel, this time we will be using ASP to create a chart. You all asked me for it, now here is the solution. Thanks again for all your nice comments :) First we set the type of script <%@ LANGUAGE="VBscript" %> Make the object, and set the object to an Excelsheet Dim MyExcelChart Set MyExcelChart = createObject("Excel.Sheet") Now lets write the rest of the script, see the comments ' show or dont show excel to user, TRUE or FALSE MyExcelChart.Application.Visible = True ' populate the cells MyExcelChart.ActiveSheet.Range("B2:k2").Value = Array ("Week1", "Week2", "Week3", "Week4", "Week5", "Week6", "Week7", "Week8", "Week9", "Week10") MyExcelChart.ActiveSheet.Range("B3:k3").Value = Array ("67", "87", "5", "9", "7", "45", "45", "54", "54", "10") MyExcelChart.ActiveSheet.Range("B4:k4").Value = Array ("10", "10", "8", "27", "33", "37", "50", "54", "10", "10") MyExcelChart.ActiveSheet.Range("B5:k5").Value = Array ("23", "3", "86", "64", "60", "18", "5", "1", "36", "80") MyExcelChart.ActiveSheet.Cells(3,1).Value="Internet Explorer" MyExcelChart.ActiveSheet.Cells(4,1).Value="Netscape" MyExcelChart.ActiveSheet.Cells(5,1).Value="Other" ' select the contents that need to be in the chart MyExcelChart.ActiveSheet.Range("b2:k5").select ' Add the chart MyExcelChart.Charts.Add ' Format the chart, set type of chart, shape of the bars, show title, get the data for the chart, show datatable, show legend MyExcelChart.activechart.ChartType = 97 MyExcelChart.activechart.BarShape =3 MyExcelChart.activechart.HasTitle = True MyExcelChart.activechart.ChartTitle.Text = "Visitors log for each week shown in browsers percentage" MyExcelChart.activechart.SetSourceData MyExcelChart.Sheets("Sheet1").Range("A1:k5"),1 MyExcelChart.activechart.Location 1 MyExcelChart.activechart.HasDataTable = True MyExcelChart.activechart.DataTable.ShowLegendKey = True ' Save the the excelsheet to excelface MyExcelChart.SaveAs "c:chart.xls" %> Now lets complete the HTML tags. <HTML> <HEAD> <TITLE>MyExcelChart</TITLE> </HEAD> <BODY> </BODY> </HTML> This completes yer ASP page, look below for the complete code of myexcelchart.asp <%@ LANGUAGE="VBscript" %> <% ' create Object Set MyExcelChart = createObject("Excel.Sheet") ' show or dont show excel to user, TRUE or FALSE MyExcelChart.Application.Visible = True ' populate the cells MyExcelChart.ActiveSheet.Range("B2:k2").Value = Array ("Week1", "Week2", "Week3", "Week4", "Week5", "Week6", "Week7", "Week8", "Week9", "Week10") MyExcelChart.ActiveSheet.Range("B3:k3").Value = Array ("67", "87", "5", "9", "7", "45", "45", "54", "54", "10") MyExcelChart.ActiveSheet.Range("B4:k4").Value = Array ("10", "10", "8", "27", "33", "37", "50", "54", "10", "10") MyExcelChart.ActiveSheet.Range("B5:k5").Value = Array ("23", "3", "86", "64", "60", "18", "5", "1", "36", "80") MyExcelChart.ActiveSheet.Cells(3,1).Value="Internet Explorer" MyExcelChart.ActiveSheet.Cells(4,1).Value="Netscape" MyExcelChart.ActiveSheet.Cells(5,1).Value="Other" ' select the contents that need to be in the chart MyExcelChart.ActiveSheet.Range("b2:k5").select ' Add the chart MyExcelChart.Charts.Add ' Format the chart, set type of chart, shape of the bars, show title, get the data for the chart, show datatable, show legend MyExcelChart.activechart.ChartType = 97 MyExcelChart.activechart.BarShape =3 MyExcelChart.activechart.HasTitle = True MyExcelChart.activechart.ChartTitle.Text = "Visitors log for each week shown in browsers percentage" MyExcelChart.activechart.SetSourceData MyExcelChart.Sheets("Sheet1").Range("A1:k5"),1 MyExcelChart.activechart.Location 1 MyExcelChart.activechart.HasDataTable = True MyExcelChart.activechart.DataTable.ShowLegendKey = True ' Save the the excelsheet to chart.xls MyExcelChart.SaveAs "c:chart.xls" %> <HTML> <HEAD> <TITLE>MyExcelChart</TITLE> </HEAD> <BODY> </BODY> </HTML> ======================================================= 6.asp實現(xiàn)在web中顯示電子表格數(shù)據(jù)（一） 顯示數(shù)據(jù)表格的應用 在用ASP語言開發(fā)的Web數(shù)據(jù)庫應用程序中，ADO (ActiveX Data Objects) 已經(jīng)成為非常流行的工具，而且對于真正的關系型數(shù)據(jù)庫，比如Oracle、SQL Server，它都不會有局限性。ADO能夠存取多種不同的數(shù)據(jù)格式，MS Excel電子數(shù)據(jù)表格就是其中之一。 關于這個應用 可供下載的例程代碼中包括一個ASP文件ReadX1.asp，一個Excel文件TheWorkbook.xls。你也可以另外加入一些電子數(shù)據(jù)表文件。 執(zhí)行ReadXl.asp頁面，將顯示出可用的電子數(shù)據(jù)表文件列表。選擇好一個文件，并提交表單后，你將會看到： 一個下拉菜單，其中是工作表名稱 一個下拉菜單，其中是命名的范圍 一個單元格范圍輸入框 第一個工作表的全部內(nèi)容 可以選擇工作簿文件中的另外一個工作表，或者輸入符合Excel格式的單元格范圍數(shù)值，比如：D20:E21 或者 Sheet3!F12:J22。注意：在ADO和ODBC驅動程序中，要用＄符合替換分界符號！。 實現(xiàn)步驟 現(xiàn)在對這個應用程序已經(jīng)有了初步的認識，下面開始討論ASP代碼，看看如何讀取電子數(shù)據(jù)表的數(shù)據(jù)，如何找到電子數(shù)據(jù)簿 （workbook）文件中可用的電子數(shù)據(jù)表（worksheet）和范圍，并看看實現(xiàn)文件列表選擇的技術。這里假設你已經(jīng)熟悉了編寫HTML表單的技術，所以對此不做詳細介紹。 基本條件 下面將涉及到ADO對象、方法、屬性、收集和常量。在服務器上安裝IIS后，ADO就存在了，并且還有相關文檔，地址是http://YourServer/IisHelp/ado210.chm （版本2.1），或者http://YourServer/IisHelp/ado/docs/（老版本1.5）。如果需要升級ADO，可以從http://www.microsoft.com/Data/download.htm下載最新版本的MDAC工具包進行安裝。 實現(xiàn)“文件列表選擇”使用到了內(nèi)建的VBscript腳本對象，相關文檔可以查看http://YourServer/IisHelp/vbscript/htm/vbstoc.htm，如果想查看最新的文檔，請訪問http://msdn.microsoft.com/scripting （版本5）。當然，在服務器端和客戶端，你都不需要安裝MS Excel。 讀取電子數(shù)據(jù)表（Worksheet）數(shù)據(jù) 通過ADO讀取電子數(shù)據(jù)表與讀取數(shù)據(jù)庫表的方法基本是一樣的。從下圖可以看到，電子數(shù)據(jù)表的行被稱作記錄Records，列被稱作字段Fields。電子數(shù)據(jù)表或者單元格的范圍可以被看成表Tables，并按照記錄集recordsets進行存取。 Spreadsheet Database HTML < table > < tr > < th >NameA< /th > < th >NameB< /th > < th >NameC< /th > < /tr >< tr > < td >1< /td > < td >2< /td > < td >3< /td > < /tr >< tr > < td >11< /td > < td >12< /td > < td >13< /td > < /tr > < /table > 執(zhí)行下面的步驟，從數(shù)據(jù)庫表中讀取數(shù)據(jù)并顯示： 連接數(shù)據(jù)庫（同樣：打開數(shù)據(jù)簿文件） 讀取記錄集recordset（同樣：讀取一定范圍的單元格） 循環(huán)每一個記錄（同樣：每一行），經(jīng)過格式化，顯示 建立ADO連接 在連接數(shù)據(jù)庫或者打開文件前，需要了解一些信息。其中只要是設置名叫DSN的ODBC驅動，但為每一個數(shù)據(jù)表都建立這樣的ODBC驅動，是非常麻煩的，因為這需要在服務器的控制臺上通過“控制面板/ODBC設置”手工完成。 幸好，ASP提供了替代DSN的其他方法，它可以非常容易地在運行時建立連接。比如，字符串“DRIVER={Microsoft Excel Driver?*.xls)};ReadOnly=1;DBQ=C:dirfile.xls"，表示了替代DSN打開文件c:dirfile.xls，因此通過這種方法僅僅需要提供給ASP程序一個文件名即可。執(zhí)行下面的代碼，將從表單中讀取文件名，然后轉換為全路徑，接著生成連接字符串，最后建立并打開這個連接。 vXlFile = Request("XlBook") vXlFilePath = Server.MapPath(vXlFile) ' assumes file in current directory vConnString = "DRIVER={Microsoft Excel Driver (*.xls)};ReadOnly=1;DBQ=" & _ vXlFilePath Set oConn = Server.createObject("ADODB.Connection") oConn.Open vConnString 如果想查看更多的非DSN連接信息，請打開Windows或者NT System目錄下的幫助文件Odbcjet.hlp。 讀取記錄集 連接上電子數(shù)據(jù)簿文件后，讀取一定范圍的單元格數(shù)據(jù)就很簡單了。盡管不是必須的，但還是建議：用符合“[” 和 “]”包含住單元格的范圍定義。只所以這么做，是以防在數(shù)據(jù)庫的操作中產(chǎn)生非法的符合。 vXlRange = Request("XlRange") Set oRs = oConn.execute("[" & vXlRange & "]") 執(zhí)行上面的語句，將返回記錄集對象，其中包括范圍內(nèi)單元格的所有可用信息， 記錄集的數(shù)值和描述數(shù)據(jù)的元數(shù)據(jù)。 該文章在 2023/11/28 9:45:40 編輯過 |
關鍵字查詢
相關文章
正在查詢... 
|
400 186 1886
