ASP直接调用EXCEL数据

合集下载

在ASP-NET中读写Excel文件有四种解决方案

在中读写Excel文件有四种解决方案

在应用程序常常会遇到需要从Excel 文件中读取数据或将数据写入Excel的需求。一般来讲，在中读写Excel文件有四种解决方案。

1.1.1 使用OLE DB

使用OLE DB可以以查询数据库的方式来读取Excel文件，因为在某种程度上Excel表格可以看成是一张一张的数据表。其二者的主要区别在于所使用的数据引擎不一样。使用OLE DB访问Excel的要点是计算机上必须具有Microsoft Access Data Component 2.6(MADC2.6)以上版本，同时在连接字符串上必须声明“Extended Properties=Excel 8.0”，这里的指定Excel 版本号如果高于8.0可能会出错，所以一般来讲必须使用Excel 8.0。

然后其它的写法就和一般的访问数据库一样了，打开连接，填充数据集，再关闭连接即可。例如下面的实现代码：

//创建一个数据链接

string strCon = " Provider = Microsoft.Jet.OLEDB.4.0 ; Data Source =

c:\\sample.xls;Extended Properties=Excel 8.0" ; OleDbConnection myConn = new OleDbConnection ( strCon ) ;

string strCom = " SELECT * FROM [Sheet1$] " ;

myConn.Open ( ) ;

ASP操作EXCEL文件

最近实战ASP操作excel文件.在网上收集了一番资料. 以前找过一篇教程,是将excel文件作为一个数据库进行链接,然后的操作和对access数据库操作类似.但是这种方式对于我现在需要的方式,操作比较麻烦,甚至不能完成,所以作罢.

对于一个固定格式,这个格式里有复杂的单元格合并,边框线

条样式,还有图案,单元格之间还有公式关系等等的,我想最容易理解的就是在后台打开一个已有设定好模板的文件,然后

在需要的地方插入数据,保存,输出... ...

最后由关键字"ASP 操作excel"在google搜到在BLUEIDEA的教程(同时有很多网址有相同内容的教程,但是我相信还是blueidea是最早原创的)

这种方法是直接建立一个excel对象,在后台可以更方便的对excel文档进行各种操作.文中一段服务器端还必须要设置的一点是COM组件的操作权限。在命令行键入“DCOMCNFG”，则进入COM组件配置界面，选择MicrosoftExcel后点击属性按钮，将三个单选项一律选择自定义，编辑中将Everyone 加入所有权限。保存完毕后重新启动服务器。很重要.不设置的话,别的电脑将无法完成excel对象的建立.

但是这种方法也有一个缺憾,在我实际操作中,如果服务器上

已有打开的excel文件,再执行同一文件,就会出错.暂时还搞

不明白为何.可能还有一些地方没设置好吧.

另外,上面引用的文章中实例代码格式不太完整,其中很多换行和空格格式不准确,如果代码完整,只要复制代码,就可以运行成功,然后再慢慢进行研究修改,就很容易上手了.现把修改后的代码如下(删去了其中画图表的部分):

ASP实例代码 asp操作Excel类

ASP实例代码asp操作Excel类

asp操作Excel类：

'*******************************************************************

'使用说明

'Dim a

'Set a=new CreateExcel

'a.SavePath="x" '保存路径

'a.SheetName="工作簿名称" '多个工作表 a.SheetName=array("工作簿名称一","工作簿名称二")

'a.SheetTitle="表名称" '可以为空多个工作表a.SheetName=array("表名称一","表名称二")

'a.Data =d '二维数组'多个工作表array(b,c) b与c为二维数组

'Dim rs

'Set rs=server.CreateObject("Adodb.RecordSet")

'rs.open "Select id, classid, className from [class] ",conn, 1, 1

'a.AddDBData rs, "字段名一，字段名二", "工作簿名称", "表名称", true 'true自动获取表字段名

'a.AddData c, true , "工作簿名称", "表名称" 'c二维数组true 第一行是否为标题行

'a.AddtData e, "Sheet1" '按模板生成c=array(array("AA1", "内容"), array("AA2", "内容2"))

'a.Create()

'edTime 生成时间，毫秒数

'a.SavePath 保存路径

'Set a=nothing

'设置COM组件的操作权限。在命令行键入“DCOMCNFG”，则进入COM组件配置界面，选择MicrosoftExcel后点击属性按钮，将三个单选项一律选择自定义，编辑中将Everyone 加入所有权限

'*******************************************************************

Class CreateExcel

Private CreateType_

Private savePath_

Private readPath_

Private AuthorStr Rem 设置作者

Private VersionStr Rem 设置版本

Private SystemStr Rem 设置系统名称

Private SheetName_ Rem 设置表名

Private SheetTitle_ Rem 设置标题

Private ExcelData Rem 设置表数据

Private ExcelApp Rem Excel.Application

Private ExcelBook

Private ExcelSheets

Private UsedTime_ Rem 使用的时间

Public TitleFirstLine Rem 首行是否标题

Private Sub Class_Initialize()

Server.ScriptTimeOut = 99999

UsedTime_ = Timer

SystemStr = "Lc00_CreateExcelServer"

AuthorStr = "Surnfu surnfu@ 31333716"

VersionStr = "1.0"

if not IsObjInstalled("Excel.Application") then

InErr("服务器未安装Excel.Application控件")

end if

set ExcelApp = createObject("Excel.Application")

ExcelApp.DisplayAlerts = false

ExcelApp.Application.Visible = false

CreateType_ = 1

readPath_ = null

End Sub

Private Sub Class_Terminate()

ExcelApp.Quit

If Isobject(ExcelSheets) Then Set ExcelSheets = Nothing

If Isobject(ExcelBook) Then Set ExcelBook = Nothing If Isobject(ExcelApp) Then Set ExcelApp = Nothing End Sub

Public Property Let ReadPath(ByVal Val)

If Instr(Val, ":\")<>0 Then

readPath_ = Trim(Val)

else

readPath_=Server.MapPath(Trim(Val))

end if

End Property

Public Property Let SavePath(ByVal Val)

If Instr(Val, ":\")<>0 Then

savePath_ = Trim(Val)

else

savePath_=Server.MapPath(Trim(Val))

end if

End Property

Public Property Let CreateType(ByVal Val)

if Val <> 1 and V al <> 2 then

Asp连接读取excel内容并导入到数据库

Asp连接读取excel内容并导入到数据库asp连接excel

Set connnew = Server.CreateObject("ADODB.Connection")

'hdr取值yes,no ,表示第一行是否为字段名

connStr="Provider=Microsoft.Jet.OLEDB.4.0;Data

Source="&Server.MapPath(“test.xls”)&";Extended Properties='Excel 8.0;HDR=No;IMEX=1';"

connnew.open connstr

Set rsnew=Server.CreateObject("ADODB.Recordset")

'Sheet1为excel里面的表名，表名后面一定要加$

sqlnew = "select * from [Sheet1$]"

rsnew.open sqlnew,connnew,1,1

'rows是读取的excel里面数据的行数

rows=rsnew.recordcount

'cells是读取excel里面数据的列数

cells=rsnew.Fields.Count

输出记录集rsnew里面的数据，规则是这样的：

如果HDR赋值是No的话

rsnew(0)输出的是excel里第一行第一列的内容

如果HDR赋值是Yes的话

rsnew(0)输出的是excel里第二行第一列的内容

如果想输出第二行的内容，只需在语句前加rsnew.movenext

输出就这么简单的完成了！

连接网站数据库，相信各位程序猿都已经会了。要做的就是用sql语句判断要导入的数据是否存在，存在用update修改一下。不存在的话addnew重新插入一条即可。

用ASP访问excel中的数据

1、建立一个链接文件名为conn。

<%db="D:\标件.xlsx" '用的是数据实际路径哈’

set conn =server.CreateObject("adodb.connection")

connStr = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source='" & db + "';Extended Properties='Excel 12.0;HDR=YES;IMEX=1';"

conn.open connstr ’打开excel

2、查询excel表格中的内容。

sqlstr="select * from [标件2010年$] order by 序列desc" ‘查询语句

set rs =server.CreateObject("adodb.recordset")

rs.open sqlstr,conn,0,1

rs.movefirst

do while not rs.eof %>

<%response.write(rs("序列"))%>

<%response.write(rs("标准"))%>

<%response.write(rs("名称"))%>

<%response.write(rs("材质"))%>

<%response.write(rs("规格型号"))%>

<%response.write(rs("单位"))%>

ASP导出Excel数据的四种方法

一、使用OWC

什么是OWC？

OWC是Office Web Compent的缩写，即Microsoft的Office Web组件，它为在Web中绘制图形提供了灵活的同时也是最基本的机制。在一个intranet环境中，如果可以假设客户机上存在特定的浏览器和一些功能强大的软件（如IE5和Office 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

asp连接excel

excel文件也可以作为数据库使用当然前提是它的内容要满足一定的规范简单的做法是可以从数据库文件导出为excel文件

连接字符数

有两种方式 ODBC provider和OLEDB provider

（）ODBC

dim conn

set conn=server createobject( nnection )

conn open Driver={Microsoft Excel Driver (* xls)};DBQ= & server mappath( XX xls ) & ; ReadOnly=False;Provider = MSDASQL

（）OLEDB

dim conn

set conn=server createobject( nnection )

conn open Data Source= & server MapPath( db/lqcx xls ) & ;Extended Properties=Excel ;provider=microsoft jet oledb 访问数据表

语法

strQuery = SELECT * FROM [Sheet $]

或者

strQuery = SELECT * FROM `Sheet $`

lishixinzhi/Article/program/net/201311/13007

如何用asp读取Excel文件（比较全面）

1.ASP对Excel的基本操作

(1) 建立Excel对象

创建Excel对象可以通过下面的代码来实现:

set objExcelApp = CreateObject("Excel.Application")

objExcelApp.DisplayAlerts = false '不显示警告

objExcelApp.Application = false '不显示界面

(2) 新建Excel文件

新建Excel文件可以通过以下代码来实现:

objExcelApp.WorkBooks.add

set objExcelBook = objExcelApp.ActiveWorkBook

set objExcelSheets = objExcelBook.Worksheets

set objExcelSheet = objExcelBook.Sheets(1)

(3) 读取已有的Excel文件

读取已有的Excel文件可以通过下面的代码来实现

strAddr = Server.MapPath(".")

objExcelApp.WorkBooks.Open(strAddr & "TempletTable.xls")

set objExcelBook = objExcelApp.ActiveWorkBook

set objExcelSheets = objExcelBook.Worksheets

set objExcelSheet = objExcelBook.WorkSheets(1)

asp读取excel代码(举了四个excel不同实例应用)

if val <> 1 and val <> 2 thencreatetype_ = 1elsecreatetype_ = valend if end propertypublic property let data(byval val)if not isarray(val) theninerr("表数据设置有误")end ifexceldata = valend propertypublic property get savepath()savepath = savepath_end propertypublic property get usedtime()usedtime = usedtime_end propertypublic property let sheetname(byval val)if not isarray(val) thenif val = "" theninerr("表名设置有误")end iftitlefirstline = trueelseredim titlefirstline(ubound(val))dim ik_for ik_ = 0 to ubound(val)titlefirstline(ik_) = truenextend ifsheetname_ = valend propertypublic property let sheettitle(byval val)if not isarray(val) thenif val = "" theninerr("表标题设置有误")end ifend ifsheettitle_ = valend propertyrem 检查数据private sub checkdata()if savepath_ = "" then inerr("保存路径不能为空")if not isarray(sheetname_) thenif sheetname_ = "" then inerr("表名不能为空")end ifif createtype_ = 2 thenif not isarray(exceldata) theninerr("数据载入错误，或者未载入")end ifexit subend ifif isarray(sheetname_) thenif not isarray(sheettitle_) thenif sheettitle_ <> "" then inerr("表标题设置有误，与表名不对应")end ifend ifif not isarray(exceldata) theninerr("表数据载入有误")end ifif isarray(sheetname_) thenif getarraydim(exceldata) <> 1 then inerr("表数据载入有误，数据格式错误，维度应该为一")elseif getarraydim(exceldata) <> 2 then inerr("表数据载入有误，数据格式错误，维度应该为二")end ifend subrem 生成excelpublic function create()call checkdata()if not isnull(readpath_) thenexcelapp.workbooks.open(readpath_) elseexcelapp.workbooks.addend ifset excelbook = excelapp.activeworkbookset excelsheets = excelbook.worksheetsif createtype_ = 2 thendim ih_for ih_ = 0 to ubound(exceldata)call setsheets(exceldata(ih_), ih_)nextexcelbook.saveas savepath_usedtime_ = formatnumber((timer - usedtime_)*1000, 3)exit functionend ifif is

asp操作Excel的方法

些未知错误的时候，这个excel.exe 就可能无法退出，造成资源占用。
代码复制 - 运行
<% On Error Resume Next SuorceFile=server.mappath("book.xls")
//设置要修改的excel 文件
' 写入xls 文件 set objExcelApp = CreateObject("Excel.Application") objExcelApp.DisplayAlerts=false objExcelApp.Application.Visible=false objExcelApp.WorkBooks.add set objExcelBook = objExcelApp.ActiveWorkBook set objExcelSheets = objExcelBook.Worksheets set objExcelSheet = objExcelBook.Sheets(1) objExcelApp.WorkBooks.Open(SuorceFile) set objExcelBook = objExcelApp.ActiveWorkBook set objExcelSheets = objExcelBook.Worksheets set objExcelSheet = objExcelBook.Sheets(1) ' 存储路径 objExcelBook.SaveAs "F:\web\nBookChinese\userExcel\"&uid&"excel.xls"

asp读取excel代码(举了四个excel不同实例应用)

asp¶ÁÈ¡excel´úÂë(¾ÙÁËËÄ¸öexcel²»Í¬ÊµÀýÓ¦ÓÃ).txt37Õæ³ÏÊÇÃÀ¾Æ£¬Äê·ÝÔ½¾ÃÔ½´¼ÏãÅ¨ÁÒ£»Õæ³ÏÊÇÑæ»ð£¬ÔÚ¸ß´¦ÕÀ·Å²ÅÓúÏÔÃÀÀö£»Õæ³ÏÊÇÏÊ»¨£¬ËÍÖ®ÓÚÈË£¬ÊÖÓÐÓàÏã¡£

public property let createtype(byval val)

if val <> 1 and val <> 2 then

createtype_ = 1

else

createtype_ = val

end if

end property

public property let data(byval val)

if not isarray(val) then

inerr("±íÊý¾ÝÉèÖÃÓÐÎó")

end if

exceldata = val

end property

public property get savepath()

savepath = savepath_

end property

public property get usedtime()

usedtime = usedtime_

end property

public property let sheetname(byval val)

if not isarray(val) then

if val = "" then

inerr("±íÃûÉèÖÃÓÐÎó")

end if

titlefirstline = true

else

redim titlefirstline(ubound(val))

ASP读取EXCEL数据

把EXCEL当成数据库来读要有很严格的格式限制，还会出现很多问题...

'===================

'Ⅰ）将Excel97或Excel2000生成的XLS文件（book）看成一个数据库，其中的每一个工作表(sheet)看成数据库表

'Ⅱ）ADO假设Excel中的第一行为字段名.所以你定义的范围中必须要包括第一行的内容'Ⅲ）Excel中的行标题（即字段名）不能够包含数字. Excel的驱动在遇到这种问题时就会出错的。例如你的行标题名为"F1"

'Ⅳ）如果Excel表中某一列同时包含了文本和数字的话,那么Excel的ODBC驱动将不能够正常处理这一行的数据类型，你必须要保证该列的数据类型一致(加入预设符号强制转成文本，后台再作处理)

'Ⅴ）日期型时，整列不能有空格，否则读不出

'============================攻略：===============

1、通过filefield获得文件

2、验证.xls文件

3、建立连接

'建立excel连接

set excelconn=server.createobject("adodb.connection")

strAddr = Server.MapPath(uploadpath&filename)

'输出源文件名Response.Write "源文件："&strAddr&""

excelconn.open "Provider=Microsoft.Jet.OLEDB.4.0;Extended Properties=Excel 8.0;Data Source=" & strAddr

ASP读取xls格式的Excel文件

2011年6月28日

ASP

12 评论

Excel也是一种数据库，跟Access类似，其读取方法也类似。

这里有一个简单的Excel表，文件名字为Excel.xls：

咱就这个为例子来说明。

创建Excel连接代码：

Dim XlsConn,xrs

Set XlsConn=Server.CreateO bject("Adodb.Connection")

XlsConn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data

Source="&Server.MapPath("Excel.xls")&";Extended Properties=Excel 8.0" 是不是跟连接Access文件很像呢？呵呵~

连接创建好了，就可以创建记录集查询Excel里面的数据了。

Set xrs=XlsConn.Execute("Select * From [Sheet1$]")

跟其他数据库的查询几乎是一样的，要注意的地方就是表名，Excel里面，默认会有三张表，Sheet1、Sheet2、Sheet3，从上面的例子也可以看到，需要注意查询时表名后面要加“$”符；查询结果：xrs(0)="数据列0"

xrs(1)="1"

xrs(2)="2"

xrs(3)="3"

xrs(4)="4"

xrs(5)="5"

这里有一点需要注意，如果一列中有多行，有的行的值是数字，有的行是字符，ASP去取值的时候

数字行会读取出错，是为空的。所以得想办法把数字行也变成字符型，比如加个’号去，读取出来之后再替换回去。

ASP NET读取EXCEL文件的三种经典方法 (其中,64位操作系统上使用第二种com组件方式)

读取EXCEL文件的三种经典方法（其中，64位操作系统上使用第二种com组件方式）最近研究了如何高效读取EXCEL文件，现总结如下：1.方法一：采用OleDB读取EXCEL文件：把EXCEL文件当做一个数据源来进行数据的读取操作，实例如下：public DataSet ExcelToDS(string Path) { string strConn = "Provider=Microsoft.Jet.OLEDB.4.0;" +"Data Source="+ Path +";"+"Extended Properties=Excel 8.0;"; OleDbConnection conn = new OleDbConnection(strConn); conn.Open(); string strExcel = ""; OleDbDataAdapter myCommand = null; DataSet ds = null; strExcel="select * from [sheet1$]"; myCommand = new OleDbDataAdapter(strExcel, strConn); ds = new DataSet(); myCommand.Fill(ds,"table1"); return ds; } 对于EXCEL中的表即sheet([sheet1$])如果不是固定的可以使用下面的方法得到 string strConn = "Provider=Microsoft.Jet.OLEDB.4.0;" +"Data Source="+ Path +";"+"Extended Properties=Excel 8.0;"; OleDbConnection conn = new OleDbConnection(strConn); DataTable schemaTable = objConn.GetOleDbSchemaTable(System.Data.OleDb.OleDbSchemaGuid.Tables,null); string tableName=schemaTable.Rows[0][2].ToString().Trim(); 另外：也可进行写入EXCEL文件，实例如下：public void DSToExcel(string Path,DataSet oldds) { //先得到汇总EXCEL的DataSet 主要目的是获得EXCEL在DataSet中的结构 string strCon = " Provider = Microsoft.Jet.OLEDB.4.0 ; Data Source ="+path1+";Extended Properties=Excel 8.0" ; OleDbConnection myConn = new OleDbConnection(strCon) ; string strCom="select * from [Sheet1$]"; myConn.Open ( ) ; OleDbDataAdapter myCommand = new OleDbDataAdapter ( strCom, myConn ) ; ystem.Data.OleDb.OleDbCommandBuilder builder=new OleDbCommandBuilder(myCommand); //QuotePrefix和QuoteSuffix主要是对builder生成InsertComment命令时使用。 builder.QuotePrefix="["; //获取insert语句中保留字符（起始位置） builder.QuoteSuffix="]"; //获取insert语句中保留字符（结束位置） DataSet newds=new DataSet(); myCommand.Fill(newds ,"Table1") ; for(int i=0;i{ //在这里不能使用ImportRow方法将一行导入到news中，因为ImportRow将保留原来DataRow的所有设置(DataRowState状态不变)。在使用ImportRow后newds内有值，但不能更新到Excel中因为所有导入行的DataRowState!=Added DataRow nrow=aDataSet.Tables["Table1"].NewRow(); for(int j=0;j{ nrow[j]=oldds.Tables[0].Rows[i][j]; } newds.Tables["Table1"].Rows.Add(nrow); } myCommand.Update(newds,"Table1"); myConn.Close(); } 2.方法二：引用的com组件：Microsoft.Office.Interop.Excel.dll 读取EXCEL文件首先是Excel.dll的获取，再在项目中添加引用该dll文件.//读取EXCEL的方法 (用范围区域读取数据)p

ASP连接excel的方法

asp连接Excel的方法

一、asp连接Excel的方法与代码：

<%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)

在ASP网页中访问Excel文件

Excel文件可以作为活动文档（ActiveX Document）在活动文档容器（ActiveX Document Container）中打开，而IE就是一个活动文档容器，所以当页面中的链接指向一个Excel文件时，单击此链接即可启动Excel,最终将文件显示在IE窗口中。这种方法虽然简单，但存在不少缺陷：客户机内必须安装Excel。在企业内部网上还有可能做到，但Internet上就不现实了。访问文档时将启动Excel，速度较慢。若览器不是IE，则可能不是活动文档容器，因此将不能正确显示文件。

下面介绍一种在ASP文件中通过ADO访问Excel文件的方法。----ADO是微软发布的基于OLEDB技术的数据库编程接口，通过ODBC驱动程序可以访问多种不同格式的数据文件，其中包括Excel文件。要获得Excel的ODBC驱动程序，可以通过安装Office97，也可以去微软的站点下载。正确安装后在控制面板中会出现ODBC数据源管理器，打开它确认在驱动程序页中有Excel的驱动程序。

然后编写Brow.ASP程序，如下例所示。例中假设在同一目录下有Excel文件01.xls，且包含名为sheet1的工作表，工作表的第一行为列标题，以后为相应的数据。

Brow.asp:

程序代码:

Const adOpenStatic = 3

Dim conn Dim rs ,dbPath Set conn = erver.CreateObject("ADODB.Connection") ‘ 生成实际路dbPath=server.MapPath("01.xls") ‘ 驱动程序名称必须与ODBC中的驱动程序名完全一致,包括空格