ASP教程之導(dǎo)出Excel數(shù)據(jù)的四種方法
我們有時(shí)候需要把數(shù)據(jù)導(dǎo)出來(lái)，作為參考等等。下面就為你介紹，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è)交互式圖形開(kāi)發(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 "在保存過(guò)程中有錯(cuò)誤!"
- End If
- Set objExcel = Nothing
- objRS.Close
- Set objRS = Nothing
- %>
二、用Excel的Application組件在客戶端導(dǎo)出到Excel或word
以下為引用的內(nèi)容：
注意：兩個(gè)函數(shù)中的“data“是網(wǎng)頁(yè)中要導(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中打開(kāi)，再存為Excel文件
以下為引用的內(nèi)容：
把讀出的數(shù)據(jù)用
格式，在網(wǎng)頁(yè)中顯示出來(lái)，同時(shí)，加上下一句即可把Excel表在客客戶端顯示。<%response.ContentType ="application/vnd.ms-Excel"%>
注意：顯示的頁(yè)面中，只把
輸出，***不要輸出其他表格以外的信息。四、導(dǎo)出以半角逗號(hào)隔開(kāi)的csv
用fso方法生成文本文件的方法，生成一個(gè)擴(kuò)展名為csv文件。此文件，一行即為數(shù)據(jù)表的一行。生成數(shù)據(jù)表字段用半角逗號(hào)隔開(kāi)。（有關(guān)fso生成文本文件的方法，在此就不做介紹了）
CSV文件介紹 （逗號(hào)分隔文件）
選擇該項(xiàng)系統(tǒng)將創(chuàng)建一個(gè)可供下載的CSV 文件； CSV是最通用的一種文件格式，它可以非常容易地被導(dǎo)入各種PC表格及數(shù)據(jù)庫(kù)中。
請(qǐng)注意即使選擇表格作為輸出格式，仍然可以將結(jié)果下載CSV文件。在表格輸出屏幕的底部，顯示有 "CSV 文件"選項(xiàng)，點(diǎn)擊它即可下載該文件。
希望本文介紹的三種方法，能夠幫助到你。
新聞名稱：ASP教程之導(dǎo)出Excel數(shù)據(jù)的四種方法
鏈接分享：http://uogjgqi.cn/article/dhcihes.html
掃二維碼與項(xiàng)目經(jīng)理溝通
我們?cè)谖⑿派?4小時(shí)期待你的聲音
解答本文疑問(wèn)/技術(shù)咨詢/運(yùn)營(yíng)咨詢/技術(shù)建議/互聯(lián)網(wǎng)交流
