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

          主站蜘蛛池模板: 邢台市| 甘泉县| 台北市| 香港 | 陇南市| 镇赉县| 瑞金市| 江北区| 互助| 呼图壁县| 隆昌县| 上饶市| 大庆市| 通道| 宜都市| 长阳| 奉化市| 连山| 云和县| 广安市| 绥芬河市| 鹤庆县| 平泉县| 浠水县| 彭州市| 同心县| 阳泉市| 阿拉善左旗| 醴陵市| 白沙| 垣曲县| 彰武县| 如皋市| 绥棱县| 沽源县| 宿州市| 中超| 宽甸| 双牌县| 江山市| 嘉义县|