asp連接excel的方法與代碼

          Posted on 2007-11-08 23:27 yukui 閱讀(509) 評論(0)  編輯  收藏 所屬分類: 技術

          <% dim connxls,connstrxls
          connstrxls="DBQ=d:\newexcel.xls;DefaultDir=;DRIVER={Microsoft Excel Driver (*.xls)};"
          set connxls=server.createobject("ADODB.CONNECTION")
          connxls.open connstrxls
          Set rsxls=Server.CreateObject("ADODB.Recordset")
          SQLxls = "select * from [new$]"
          %>

          注意: 寫法和連接ACCESS基本相同,不同的是,在調用工作表的時候,不能直接用表名,工作表名后要加$,而且要用“[]”括起來。

          asp操作excel的總結:

          1、建立Excel對象
          setobjExcelApp=CreateObject("Excel.Application")
          objExcelApp.DisplayAlerts=false不顯示警告
          objExcelApp.Application.Visible=false不顯示界面
          2、新建Excel文件
          objExcelApp.WorkBooks.add
          setobjExcelBook=objExcelApp.ActiveWorkBook
          setobjExcelSheets=objExcelBook.Worksheets
          setobjExcelSheet=objExcelBook.Sheets(1)
          3、讀取已有Excel文件
          strAddr=Server.MapPath(".")
          objExcelApp.WorkBooks.Open(strAddr&"\Templet\Table.xls")
          setobjExcelBook=objExcelApp.ActiveWorkBook
          setobjExcelSheets=objExcelBook.Worksheets
          setobjExcelSheet=objExcelBook.Sheets(1)
          4、另存Excel文件
          objExcelBook.SaveAsstrAddr&"\Temp\Table.xls"
          5、保存Excel文件
          objExcelBook.Save(筆者測試時保存成功,頁面報錯。)
          6、退出Excel操作
          objExcelApp.Quit一定要退出
          setobjExcelApp=Nothing三、ASP操作Excel生成數據表
          1、在一個范圍內插入數據
          objExcelSheet.Range("B3:k3").Value=Array("67","87","5","9","7","45","45","54","54","10")
          2、在一個單元格內插入數據
          objExcelSheet.Cells(3,1).Value="InternetExplorer"
          3、選中一個范圍
          4、單元格左邊畫粗線條
          5、單元格右邊畫粗線條
          6、單元格上邊畫粗線條
          7、單元格下邊畫粗線條
          8、單元格設定背景色
          9、合并單元格
          10、插入行
          11、插入列四、ASP操作Excel生成Chart圖
          1、創建Chart圖
          objExcelApp.Charts.Add
          2、設定Chart圖種類
          objExcelApp.ActiveChart.ChartType=97
          注:二維折線圖,4;二維餅圖,5;二維柱形圖,51
          3、設定Chart圖標題
          objExcelApp.ActiveChart.HasTitle=True
          objExcelApp.ActiveChart.ChartTitle.Text="AtestChart"
          4、通過表格數據設定圖形
          objExcelApp.ActiveChart.SetSourceDataobjExcelSheet.Range("A1:k5"),1
          5、直接設定圖形數據(推薦)
          objExcelApp.ActiveChart.SeriesCollection.NewSeries
          objExcelApp.ActiveChart.SeriesCollection(1).Name="=""333"""
          objExcelApp.ActiveChart.SeriesCollection(1).Values="="
          6、綁定Chart圖
          objExcelApp.ActiveChart.Location1
          7、顯示數據表
          objExcelApp.ActiveChart.HasDataTable=True
          8
          objExcelApp.ActiveChart.DataTable.ShowLegendKey=True五、服務器端Excel文件瀏覽、下載、刪除方案
          瀏覽的解決方法很多,“Location.href=”,“Navigate”,“Response.Redirect”都可以實現,建議用客戶端的方法,原因是給服務器更多的時間生成Excel文件。

          posts - 131, comments - 12, trackbacks - 0, articles - 32

          Copyright © yukui

          主站蜘蛛池模板: 延寿县| 来凤县| 建德市| 黄梅县| 金门县| 天全县| 河间市| 科技| 含山县| 天柱县| 隆德县| 观塘区| 简阳市| 光泽县| 芦溪县| 平邑县| 白沙| 疏勒县| 广州市| 辽宁省| 浙江省| 鄂温| 临高县| 元氏县| 金华市| 隆尧县| 册亨县| 南和县| 萝北县| 温宿县| 尼勒克县| 遂平县| 凌云县| 葵青区| 淳化县| 油尖旺区| 安平县| 峨山| 涿州市| 高台县| 镇江市|