<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 閱讀(508) 評論(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

    主站蜘蛛池模板: 亚洲国产美女精品久久久久| 四虎永久成人免费| 亚洲乱亚洲乱妇无码| 亚洲国产综合在线| 亚洲粉嫩美白在线| 亚洲AV无码男人的天堂 | 最近的免费中文字幕视频| 国产成人精品免费直播 | 99久久国产热无码精品免费 | 国产免费的野战视频| 日本xxwwxxww在线视频免费 | 真实乱视频国产免费观看| 在线播放亚洲第一字幕| 亚洲色一区二区三区四区| 国产免费A∨在线播放| 成年人在线免费观看| 亚洲AV男人的天堂在线观看| 9277手机在线视频观看免费| 亚洲成AV人在线观看天堂无码| 91免费福利视频| 亚洲国产成人精品女人久久久| 亚洲熟伦熟女专区hd高清| 久久久久久夜精品精品免费啦| 亚洲第一福利网站| 91精品手机国产免费| 亚洲网站在线免费观看| 免费看污成人午夜网站| 亚洲乱码国产乱码精华| 亚洲AV无码乱码在线观看性色扶| 四虎影视在线看免费观看| 在线观看亚洲精品国产| 99久久99久久精品免费观看| 亚洲av极品无码专区在线观看| 四虎免费久久影院| 一个人免费观看www视频| 亚洲人成无码网WWW| 美女被吸屁股免费网站| 久久久亚洲精品蜜桃臀| a毛片在线免费观看| 亚洲综合精品香蕉久久网97| 亚洲免费精彩视频在线观看|