<rt id="bn8ez"></rt>
<label id="bn8ez"></label>

  • <span id="bn8ez"></span>

    <label id="bn8ez"><meter id="bn8ez"></meter></label>

    asp連接excel的方法與代碼

    Posted on 2007-11-08 23:27 yukui 閱讀(510) 評論(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

    主站蜘蛛池模板: 日韩免费无砖专区2020狼| 天黑黑影院在线观看视频高清免费| 亚洲综合激情视频| 97亚洲熟妇自偷自拍另类图片 | 日本亚洲中午字幕乱码| 麻豆69堂免费视频| 国精产品一区一区三区免费视频 | 在线观看免费无码视频| 亚洲一区二区三区AV无码| 亚洲AV无码专区电影在线观看| 中文字幕亚洲综合精品一区| 免费A级毛片av无码| 国产精品免费视频网站| 亚洲电影免费在线观看| 国产青草亚洲香蕉精品久久| 少妇太爽了在线观看免费视频| 亚洲AV无码专区日韩| 亚洲综合久久久久久中文字幕| 四虎在线视频免费观看视频| 免费99热在线观看| 亚洲av永久综合在线观看尤物| 无遮挡免费一区二区三区| 亚洲黄色免费网址| 国产亚洲美女精品久久久| 亚洲精品无码av片| 久久久久久AV无码免费网站 | 亚洲精品无码AV人在线播放| 亚洲精品无码永久在线观看男男 | 国产成人精品免费视频网页大全| 亚洲国产精品成人精品小说| 久久免费线看线看| 亚洲国产精品专区在线观看| 最新亚洲成av人免费看| 亚洲国产美女精品久久| 又粗又大又猛又爽免费视频| 免费的全黄一级录像带| 亚洲久悠悠色悠在线播放| 69成人免费视频| 亚洲热妇无码AV在线播放| 在线看片韩国免费人成视频| 免费VA在线观看无码|