asp导出excel的四种方法

一、使用OWC

 

  什么是OWC

 

  OWCOffice Web Compent的缩写,即MicrosoftOffice Web组件,它为在Web中绘制图形提供了灵活的同时也是最基本的机制。在一个intranet环境中,如果可以假设客户机上存在特定的浏览器和一些功能强大的软件(如IE5Office 2000),那么就有能力利用Office Web组件提供一个交互式图形开发环境。这种模式下,客户端工作站将在整个任务中分担很大的比重。

 

%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

iColOffset = iColOff

Else

iColOffset = 2

End If

End Property

 

Public Property Let RowOffset(iRowOff)

If iRowOff 0 then

iRowOffset = iRowOff

Else

iRowOffset = 2

End If

End Property Sub GenerateWorksheet(objRS)

'Populates the Excel worksheet based on aRecordset'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

'设置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 '居中

iCol = iCol + 1

Next 'objField

'Display all of the data

Do While Not objRS.EOF

iRow = 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

iCol = iCol + 1

Next 'objField

objRS.MoveNext

Loop

End Sub Function SaveWorksheet(strFileName)

 

'Save the worksheet to a specified filename

On Error Resume Next

CallobjSpreadsheet.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;UserID=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)

IfobjExcel.SaveWorksheet(Server.MapPath(ExcelPath)) then

'Response.Write "html><bodybgcolor='gainsboro' text='#000000'>已保存为Excel文件.

 

a href='" & server.URLEncode(ExcelPath) & "'>下载</a"

Else

Response.Write "在保存过程中有错误!"

End If

Set objExcel = Nothing

objRS.Close

Set objRS = Nothing

% 

 

 

 

 

  二、用Excelapplication组件在客户端导出到ExcelWord

 

  注意:两个函数中的“data“是网页中要导出的table id

 

input type="hidden" name="out_word" οnclick="vbscript:buildDoc"value="导出到word" class="notPrint"

input type="hidden" name="out_excel"οnclick="AutomateExcel();" value="导出到excel"class="notPrint" 

 

  导出到Excel代码

 

SCRIPT LANGUAGE="javascript"

!--

function AutomateExcel()

{

// Start Excel and get Application object.

var oXL = newActiveXObject("Excel.Application");

// Get a new workbook.

var oWB = oXL.Workbooks.Add();

var oSheet = oWB.ActiveSheet;

var table = document.all.data;

var hang = table.rows.length;

 

var lie = table.rows(0).cells.length;

 

// Add table headers going cell by cell.

for (i=0;ihang;i++)

{

for (j=0;jlie;j++)

{

oSheet.Cells(i+1,j+1).value =table.rows(i).cells(j).innerText;

}

 

}

oXL.Visible = true;

oXL.UserControl = true;

}

//--

/SCRIPT 

 

  导出到Word代码

 

script language="vbscript"

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("综合查询结果集")//显示表格标题

 

objWordDoc.Application.ActiveDocument.Paragraphs.Add.Range.InsertBefore("")

Set rngPara =objWordDoc.Application.ActiveDocument.Paragraphs(1).Range

With rngPara

.Bold = True //将标题设为粗体

.ParagraphFormat.Alignment = 1 //将标题居中

.Font.Name = "隶书" //设定标题字体

.Font.Size = 18 //设定标题字体大小

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.InsertAftertheArray(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.InsertAftertheArray(i,j)

objWordDoc.Application.ActiveDocument.Tables(1).Rows(j).Cells(i).Range.ParagraphFormat.alignment=1

Next

Next

 

End Sub

/SCRIPT 

 

  三、直接在IE中打开,再存为EXCEL文件

 

  把读出的数据用<table>格式,在网页中显示出来,同时,加上下一句即可把EXCEL表在客客户端显示。

 

%response.ContentType ="application/vnd.ms-excel"% 

 

  注意:显示的页面中,只把<table>输出,最好不要输出其他表格以外的信息。

 

  四、导出以半角逗号隔开的csv

 

  用fso方法生成文本文件的方法,生成一个扩展名为csv文件。此文件,一行即为数据表的一行。生成数据表字段用半角逗号隔开。(有关fso生成文本文件的方法,在此就不做介绍了)

 

  CSV文件介绍(逗号分隔文件)

 

  选择该项系统将创建一个可供下载的CSV 文件; CSV是最通用的一种文件格式,它可以非常容易地被导入各种PC表格及数据库中。

 

  请注意即使选择表格作为输出格式,仍然可以将结果下载CSV文件。在表格输出屏幕的底部,显示有 "CSV 文件"选项,点击它即可下载该文件。

 

  如果您把浏览器配置为将您的电子表格软件与文本(TXT/逗号分隔文件(CSV)相关联,当您下载该文件时,该文件将自动打开。下载下来后,如果本地已安装EXCEL,点击此文件,即可自动用EXCEL软件打开此文件。

 

资料引用:http://www.knowsky.com/3116.html

  • 0
    点赞
  • 0
    收藏
    觉得还不错? 一键收藏
  • 0
    评论
评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值