想用OLE *** 作WPS的ET请进来.该怎么解决

想用OLE *** 作WPS的ET请进来.该怎么解决,第1张

ps和et是wps程序的文档文件后缀名和表格工作簿未见后缀名;doc或docx、xls是office程序的文件后缀名;wps与office格式不兼容。ET格式文件是金山office软件WPS中的电子表格,用EXCEL也可以打开,但是可能会有乱码。新建wps表格默认的后缀是et,

1、创建连接到excel应用的ole对象
OleObject ole_excel
ole_excel = create OleObject
If ole_excelConnectToNewObject("ExcelApplication") > 0 Then
MessageBox('连接到Excel错误','请确认是否已经安装了Excel!',Exclamation!)
Destroy old_excel
Return
End If
2、打开指定的excle文件
ole_excelApplicationWorkbooksOpen("excel文件")
3、 *** 作excel单元格
excel单元格有一系列的 *** 作,它们的使用格式一般如下:
ole对象ActiveWorkBookSheets("工作表名") *** 作对象动作或属性

如何从ACCESS数据库中读取Images ?
1、ACCESS数据库中的图形格式
当浏览器遇到一个<IMG>标志时,它会根据你设定的src属性来下载文件。这可能是一个图形文件或则是一个ASP页面。如果是一个返回gif二进制的ASP页面,浏览器需要知道返回的是什么格式的图形文件。因为这个原因,就需要指定content type,为image/gif,image/bmp ,image/jpeg或则其他什么的。
ResponsecontentType = "image/gif"
但这会导致另外一个问题,那就是我们只能够显示gif格式的图象,或则说保存在数据库中的东西只能够是gif格式的了。但是一些数据库是使用gif格式保存的,但是另外一些则是使用jpeg格式保存的,甚至其他是采用OLE方式来保存图形的。所以我们必须根据图形的格式来设置response的content type
注意的是你也可以从一个文件中新建一个位图对象,但使用这样的方式保存在数据库中的图形格式是浏览器不能够识别的。当你往数据库中保存图象时,你应该知道你需要使用什么格式来保存你可以把文件中的每一个字节保存下来,或则通过ACCESS的把图形保存为一个OLE格式。
你使用什么格式保存图象决定了你在ASP中用什么格式来读出图形来。具体来说,如果你在ACCESS中将图形保存为bmp,gif,jpeg(这个必须要使用到ACCESS的OLE对象,即使用ACCESS的插入对象对话框来完成),这是当你使用Image/bmp时浏览器是不能够解释的。
现在假设在数据库中保存的是你所想要的图形格式(GIF, JPEG, BMP, TIFF, 等)现在来看看要怎么把它们从数据库中读出来。在ACCESS中使用了两个关键的技术来保存图形 :
1、使用了bmp格式
2、78个字节的文件头
<%
responseExpires = 0
responseBuffer = True
responseClear
responsecontentType = "image/bmp"
%>
接着你要干的就是去掉那78个字节的OLE对象的文件头。
<%
Const OLEHEADERSIZE = 78
nFieldSize = rs("photo")ActualSize
oleHeader = rs("photo")GetChunk(OLEHEADERSIZE)
imageBytes = rs("photo")GetChunk(nFieldSize - OLEHEADERSIZE)
ResponseBinaryWrite imageBytes
%>
现在举一个例子:
如果你要得到一个职工的信息,这段信息包括一个介绍和他的图象。并且要同时显示文字和图形。代码如下:(其中的theImg是一个代理页面)
theImgasp
<%
responseExpires = 0
responseBuffer = True
responseClear
responsecontentType = Session("ImageType")
responseBinaryWrite Session("ImageBytes")
Session("ImageType") = ""
Session("ImageBytes") = ""
responseEnd
%>
Function SetImageForDisplay(field, contentType)
OLEHEADERSIZE = 78
contentType = LCase(contentType)
select case contentType
case "gif", "jpeg", "bmp"
contentType = "image/" & contentType
bytes = fieldvalue
case "ole"
contentType = "image/bmp"
nFieldSize = fieldActualSize
oleHeader = fieldGetChunk(OLEHEADERSIZE)
bytes = fieldGetChunk(nFieldSize - OLEHEADERSIZE)
end select
Session("imageBytes") = bytes
Session("imageType") = contentType
End Function
'注意的是,程序中只使用了4中格式:gif, jpeg, bmp , ole
<%
sql = "select from Employees"
Set oRS = ServerCreateObject("ADODBRecordset")
oRSCursorLocation = 3
oRSOpen sql, "DSN=NW"
SetImageForDisplay oRS("photo"), "ole"
Set oRSActiveConnection = Nothing
%>
要显示图象的话,只需要在另外一个asp中,假设为getEmpInfoasp中
<img src="theImgasp"</img> 但这还有一个问题,因为对每个职工的图形都使用了同一个"theImgasp" 文件,应该再小小修改一下:
<img src="theImgasptemp=<%= RequestForm("empLastName")%>"</img>
最后再说一点,如何显示多幅图象呢?也就是说如果数据库中有多个字段都保存了图形,怎么办?其实解决办法很简单,只要给SetImageForDisplay多加一个参数,就是用来保存图形的一个session变量。例如:

SetImageForDisplay oRS1("photo"), "ole", "empPhoto"
SetImageForDisplay oRS2("logo"), "gif", "compLogo"
<img src="theImg2aspvarName=empPhoto&temp=<%= RequestForm("empLastName")%>">
<img src="theImg2aspvarName=compLogo&temp=<%= RequestForm("imgCode")%>">
使用这个方法能够完成下面的功能:
1、能够从数据库中取出图形字段。(你唯一需要知道的是数据库中的图形是什么格式 bmpgifjpegole)
2、采用session变量来保存图形的字节数和content type asp需要这些信息来联结到<IMG>中的属性
3、只要把theImg放到你想显示图形的地方,就能够显示图象了

OLE是Object Linking and Embedding的缩写,直译为对象连接与嵌入,学过VB的朋友可能知道VB中有一种控件就叫OLE对象,通过这个控件就可以调用其他格式的数据。其实,OLE技术在办公中的应用就是满足用户在一个文档中加入不同格式数据的需要(如文本、图像、声音等),即解决建立复合文档问题。OO中OLE和上述概念完全一致,只不过是采用更为完善的组件技术,通过OLE这座桥梁可以极为方便实现OO中各个功能模块的相互调用与协同工作来创建复合文档。


欢迎分享,转载请注明来源:内存溢出

原文地址: http://outofmemory.cn/yw/10491516.html

(0)
打赏 微信扫一扫 微信扫一扫 支付宝扫一扫 支付宝扫一扫
上一篇 2023-05-09
下一篇 2023-05-09

发表评论

登录后才能评论

评论列表(0条)

保存