我欲封天耳根小说,欢乐颂第二季,天下高月小说

新聞中心

這里有您想知道的互聯(lián)網(wǎng)營銷解決方案

ASP教程之導(dǎo)出Excel數(shù)據(jù)的四種方法

我們有時(shí)候需要把數(shù)據(jù)導(dǎo)出來，作為參考等等。下面就為你介紹，ASP導(dǎo)出Excel書籍的四種方法。

一、使用OWC

什么是OWC？

OWC是office Web Compent的縮寫，即Microsoft的office Web組件，它為在Web中繪制圖形提供了靈活的同時(shí)也是最基本的機(jī)制。在一個(gè)intranet環(huán)境中，如果可以假設(shè)客戶機(jī)上存在特定的瀏覽器和一些功能強(qiáng)大的軟件（如IE5和office 2000），那么就有能力利用office Web組件提供一個(gè)交互式圖形開發(fā)環(huán)境。這種模式下，客戶端工作站將在整個(gè)任務(wù)中分擔(dān)很大的比重。

以下為引用的內(nèi)容：

 
 
 
  
  
  <%Option Explicit  
  
  
  Class ExcelGen  
  
  
  Private obJSPreadsheet  
  
  
  Private iColOffset 
  
  
  
  
  
  Private iRowOffset  
  
  
  Sub Class_Initialize()  
  
  
  Set obJSPreadsheet = Server.CreateObject("OWC.Spreadsheet")  
  
  
  iRowOffset = 2  
  
  
  iColOffset = 2  
  
  
  End Sub 
  
  
  
  
  
  Sub Class_Terminate()  
  
  
  Set obJSPreadsheet = Nothing 'Clean up  
  
  
  End Sub 
  
  
  
  
  
  Public Property Let ColumnOffset(iColOff)  
  
  
  If iColOff > 0 then  
  
  
  iColOffiColOffset = iColOff  
  
  
  Else  
  
  
  iColOffset = 2  
  
  
  End If  
  
  
  End Property 
  
  
  
  
  
  Public Property Let RowOffset(iRowOff)  
  
  
  If iRowOff > 0 then  
  
  
  iRowOffiRowOffset = iRowOff  
  
  
  Else  
  
  
  iRowOffset = 2  
  
  
  End If  
  
  
  End Property Sub GenerateWorksheet(objRS)  
  
  
  'Populates the Excel worksheet based on a Recordset's contents  
  
  
  'Start by displaying the titles  
  
  
  If objRS.EOF then Exit Sub  
  
  
  Dim objField, iCol, iRow  
  
  
  iCol = iColOffset  
  
  
  iRow = iRowOffset  
  
  
  For Each objField in objRS.Fields  
  
  
  obJSPreadsheet.Cells(iRow, iCol).Value = objField.Name  
  
  
  obJSPreadsheet.Columns(iCol).AutoFitColumns  
  
  
  '設(shè)置Excel表里的字體  
  
  
  obJSPreadsheet.Cells(iRow, iCol).Font.Bold = True  
  
  
  obJSPreadsheet.Cells(iRow, iCol).Font.Italic = False  
  
  
  obJSPreadsheet.Cells(iRow, iCol).Font.Size = 10  
  
  
  obJSPreadsheet.Cells(iRow, iCol).Halignment = 2 '居中  
  
  
  iColiCol = iCol + 1  
  
  
  Next 'objField  
  
  
  'Display all of the data  
  
  
  Do While Not objRS.EOF  
  
  
  iRowiRow = iRow + 1  
  
  
  iCol = iColOffset  
  
  
  For Each objField in objRS.Fields  
  
  
  If IsNull(objField.Value) then  
  
  
  obJSPreadsheet.Cells(iRow, iCol).Value = ""  
  
  
  Else  
  
  
  obJSPreadsheet.Cells(iRow, iCol).Value = objField.Value  
  
  
  obJSPreadsheet.Columns(iCol).AutoFitColumns  
  
  
  obJSPreadsheet.Cells(iRow, iCol).Font.Bold = False  
  
  
  obJSPreadsheet.Cells(iRow, iCol).Font.Italic = False  
  
  
  obJSPreadsheet.Cells(iRow, iCol).Font.Size = 10  
  
  
  End If  
  
  
  iColiCol = iCol + 1  
  
  
  Next 'objField  
  
  
  objRS.MoveNext  
  
  
  Loop  
  
  
  End Sub Function SaveWorksheet(strFileName) 
  
  
  
  
  
  'Save the worksheet to a specified filename  
  
  
  On Error Resume Next  
  
  
  Call obJSPreadsheet.ActiveSheet.Export(strFileName, 0)  
  
  
  SaveWorksheet = (Err.Number = 0)  
  
  
  End Function  
  
  
  End Class 
  
  
  
  
  
  Dim objRS  
  
  
  Set objRS = Server.CreateObject("ADODB.Recordset")  
  
  
  objRS.Open "SELECT * FROM xxxx", "Provider=SQLOLEDB.1;Persist Security 
  
  
  
  
  
  Info=True;User ID=xxxx;Password=xxxx;Initial Catalog=xxxx;Data source=xxxx;"  
  
  
  Dim SaveName  
  
  
  SaveName = Request.Cookies("savename")("name")  
  
  
  Dim objExcel  
  
  
  Dim ExcelPath  
  
  
  ExcelPath = "Excel\" & SaveName & ".xls"  
  
  
  Set objExcel = New ExcelGen  
  
  
  objExcel.RowOffset = 1  
  
  
  objExcel.ColumnOffset = 1  
  
  
  objExcel.GenerateWorksheet(objRS)  
  
  
  If objExcel.SaveWorksheet(Server.MapPath(ExcelPath)) then  
  
  
  'Response.Write "已保存為Excel文件. 
  
  
  下載"  
  
  
  Else  
  
  
  Response.Write "在保存過程中有錯(cuò)誤!"  
  
  
  End If  
  
  
  Set objExcel = Nothing  
  
  
  objRS.Close  
  
  
  Set objRS = Nothing  
  
  
  %>

二、用Excel的Application組件在客戶端導(dǎo)出到Excel或word

以下為引用的內(nèi)容：

注意：兩個(gè)函數(shù)中的“data“是網(wǎng)頁中要導(dǎo)出的table的 id

導(dǎo)出到Excel代碼

 
 
 
  
  
    
  
  
    
  
  
   
  
  
  
  
  
  　　導(dǎo)出到word代碼 
  
  
  
  
  
    
  
  
  Sub buildDoc  
  
  
  set table = document.all.data  
  
  
  row = table.rows.length  
  
  
  column = table.rows(1).cells.length 
  
  
  
  
  
  Set objwordDoc = CreateObject("word.Document") 
  
  
  
  
  
  objwordDoc.Application.Documents.Add theTemplate, False  
  
  
  objwordDoc.Application.Visible=True
  
  
  
  
  
  Dim theArray(20,10000)  
  
  
  for i=0 to row-1  
  
  
  for j=0 to column-1  
  
  
  theArray(j+1,i+1) = table.rows(i).cells(j).innerTEXT  
  
  
  next  
  
  
  next  
  
  
  objwordDoc.Application.ActiveDocument.Paragraphs.Add.Range.InsertBefore("綜合查詢結(jié)果集") //顯示表格標(biāo)題 
  
  
  
  
  
  objwordDoc.Application.ActiveDocument.Paragraphs.Add.Range.InsertBefore("")  
  
  
  Set rngPara = objwordDoc.Application.ActiveDocument.Paragraphs(1).Range  
  
  
  With rngPara  
  
  
  .Bold = True //將標(biāo)題設(shè)為粗體  
  
  
  .ParagraphFormat.Alignment = 1 //將標(biāo)題居中  
  
  
  .Font.Name = "隸書" //設(shè)定標(biāo)題字體  
  
  
  .Font.Size = 18 //設(shè)定標(biāo)題字體大小  
  
  
  End With  
  
  
  Set rngCurrent = objwordDoc.Application.ActiveDocument.Paragraphs(3).Range  
  
  
  Set tabCurrent = ObjwordDoc.Application.ActiveDocument.Tables.Add(rngCurrent,row,column) 
  
  
  
  
  
  for i = 1 to column 
  
  
  
  
  
  objwordDoc.Application.ActiveDocument.Tables(1).Rows(1).Cells(i).Range.InsertAfter theArray(i,1)  
  
  
  objwordDoc.Application.ActiveDocument.Tables(1).Rows(1).Cells(i).Range.ParagraphFormat.alignment=1  
  
  
  next  
  
  
  For i =1 to column  
  
  
  For j = 2 to row  
  
  
  objwordDoc.Application.ActiveDocument.Tables(1).Rows(j).Cells(i).Range.InsertAfter theArray(i,j)  
  
  
  objwordDoc.Application.ActiveDocument.Tables(1).Rows(j).Cells(i).Range.ParagraphFormat.alignment=1  
  
  
  Next  
  
  
  Next
  
  
  
  
  
  End Sub

三、直接在IE中打開，再存為Excel文件

以下為引用的內(nèi)容：

把讀出的數(shù)據(jù)用

格式，在網(wǎng)頁中顯示出來，同時(shí)，加上下一句即可把Excel表在客客戶端顯示。

<%response.ContentType ="application/vnd.ms-Excel"%>

注意：顯示的頁面中，只把

輸出，***不要輸出其他表格以外的信息。

四、導(dǎo)出以半角逗號(hào)隔開的csv

用fso方法生成文本文件的方法，生成一個(gè)擴(kuò)展名為csv文件。此文件，一行即為數(shù)據(jù)表的一行。生成數(shù)據(jù)表字段用半角逗號(hào)隔開。（有關(guān)fso生成文本文件的方法，在此就不做介紹了）

CSV文件介紹（逗號(hào)分隔文件）

選擇該項(xiàng)系統(tǒng)將創(chuàng)建一個(gè)可供下載的CSV 文件； CSV是最通用的一種文件格式，它可以非常容易地被導(dǎo)入各種PC表格及數(shù)據(jù)庫中。

請注意即使選擇表格作為輸出格式，仍然可以將結(jié)果下載CSV文件。在表格輸出屏幕的底部，顯示有 "CSV 文件"選項(xiàng)，點(diǎn)擊它即可下載該文件。

希望本文介紹的三種方法，能夠幫助到你。

新聞標(biāo)題：ASP教程之導(dǎo)出Excel數(shù)據(jù)的四種方法
網(wǎng)站網(wǎng)址：http://fisionsoft.com.cn/article/dhcihes.html

其他資訊

快速導(dǎo)航

柴油發(fā)電機(jī)維修
宜賓柴油發(fā)電機(jī)維修
網(wǎng)站建設(shè)
武侯區(qū)工商注冊
scdkgd.com
移動(dòng)手機(jī)網(wǎng)站制作
綿陽電信機(jī)房

友情鏈接

網(wǎng)站建設(shè)

聯(lián)系方式

企業(yè)：四川綿陽平武網(wǎng)站建設(shè)工作室
地址：成都市青羊區(qū)太升南路288號(hào)
電話：18980820575
網(wǎng)址：fisionsoft.com.cn

公司名稱：四川綿陽平武網(wǎng)站建設(shè)工作室聯(lián)系電話：18980820575

網(wǎng)站備案號(hào)：蜀ICP備2024061352號(hào)-3

四川平武建站四川平武網(wǎng)站建設(shè) 四川平武網(wǎng)站設(shè)計(jì) 四川平武網(wǎng)站制作成都做網(wǎng)站