在asp中利用excel的一个方法是将excel文件作为一个数据库进行链接,然后的操作和对access数据库操作类似.但是这个方法不是总能有用的，应为excel不是关系型的数据库。对于一个固定格式,这个格式里有复杂的单元格合并,边框线条样式,还有图案,单元格之间还有公式关系等等的,我想最容易理解的就是在后台打开一个已有设定好模板的文件,然后在需要的地方插入数据,保存,输出... ...
这里提到的这种方法是直接建立一个excel对象,在后台可以更方便的对excel文档进行各种操作.文中一段
服务器端还必须要设置的一点是COM组件的操作权限。在命令行键入“DCOMCNFG”，则进入COM组件配置界面，选择MicrosoftExcel后点击属性按钮，将三个单选项一律选择自定义，编辑中将Everyone加入所有权限。保存完毕后重新启动服务器。
很重要.不设置的话,别的电脑将无法完成excel对象的建立.
但是这种方法也有一个缺憾,在我实际操作中,如果服务器上已有打开的excel文件,再执行同一文件,就会出错.暂时还搞不明白为何.可能还有一些地方没设置好吧.
另外,上面引用的文章中实例代码格式不太完整,其中很多换行和空格格式不准确,如果代码完整,只要复制代码,就可以运行成功,然后再慢慢进行研究修改,就很容易上手了.现把修改后的代码如下(删去了其中画图表的部分):
程序代码:
<%
On Error Resume Next
strAddr=Server.MapPath(".")
set objExcelApp=CreateObject("Excel.Application")
objExcelApp.DisplayAlerts=false
objExcelApp.Application.Visible=false
objExcelApp.WorkBooks.Open(strAddr&"TempletNull.xls")
set objExcelBook=objExcelApp.ActiveWorkBook
set objExcelSheets=objExcelBook.Worksheets
set objExcelSheet=objExcelBook.Sheets(1)
objExcelSheet.Range("B2:k2").Value=Array("Week1","Week2","Week3","Week4","Week5","Week6","Week7")
objExcelSheet.Range("B3:k3").Value=Array("67","87","5","9","7","45","45","54","54","10")
objExcelSheet.Range("B4:k4").Value=Array("10","10","8","27","33","37","50","54","10","10")
objExcelSheet.Range("B5:k5").Value=Array("23","3","86","64","60","18","5","1","36","80")
objExcelSheet.Cells(3,1).Value="InternetExplorer"
objExcelSheet.Cells(4,1).Value="Netscape"
objExcelSheet.Cells(5,1).Value="Other"
objExcelSheet.Range("b2:k5").Select
SaveAs(strAddr&"TempExcel.xls")
objExcelApp.Quit
set objExcelApp=Nothing
%>
<!DOCTYPEHTMLPUBLIC"-//W3C//DTDHTML4.0Transitional//EN">
<HTML>
<HEAD>
<TITLE>NewDocument</TITLE>
<METANAME="Generator"COnTENT="MicrosoftFrontPage5.0">
<METANAME="Author"COnTENT="">
<METANAME="Keywords"COnTENT="">
<METANAME="Description"COnTENT="">
</HEAD>
<BODY>
</BODY>
</HTML>
操作完excel文件需要将文件进行输出,实际弄一下,用ASP的redirect到excel方法,有时候是在IE中直接打开,有时候是弹出"下载 打开 保存"窗口.如果需要直接在IE中打开,不放用FSO载入excel文件,然后在IE中输出.
程序代码:
<%
Dim Fso,FileExt,strFilePath,Mime
strFilePath = "f:aspxuexi.doc"
Set Fso=Server.CreateObject("Scripting.FileSystemObject")
FileExt = Fso.GetExtensionName(strFilePath)
Set fso=Nothing
Select Case FileExt
Case "doc"
Mime="Application/msword"
Case "xls"
Mime="Application/msexcel"
End Select
Call OutPut(strFilePath,Mime)
"######################################################
Function OutPut(strFilePath,Mime)
Response.COntentType= Mime
Const adTypeBinary = 1
Set objStream = Server.CreateObject("ADODB.Stream")
objStream.Open
objStream.Type = adTypeBinary
objStream.LoadFromFile strFilePath
Response.BinaryWrite objStream.Read
objStream.Close
Set objStream = Nothing
End Function
"######################################################
%>
在实际应用中.当服务器端正在运行excel或ACCESS程序时,客户端提交建立excel.application对象无法成功.另一种情况,当一个客户端提交请求时,并没有结束时,另一个客户端提交的请求也无法成功!或许这个问题有别的解决方案,但是至少这是不稳定的.
正好我们部门内部网上有相关成功的例子,挖出来看,原来是在客户端建立excel.application的.这样,服务器端不会再冲突.对于客户端,因为是在局域网内运行,客户IE安全级别可以设低,并允许运行相关activeX(就是在IE工具选项中把各类涉及安全的东西都设为允许,具体的哪一项没有去追究),即使没有设置,IE也会弹出警告窗口:"是否允许运行activeX?"
实现的代码和上篇日志差不多,简单的如下:
程序代码:
<script language="Vbscript">
set objExcelApp=CreateObject("Excel.Application")
objExcelApp.DisplayAlerts=true
objExcelApp.WorkBooks.Open("https://XXX.XXX.XXX/XXX.xls")
"完整网路地址的xls文件,这个文件已经设置好格式及打印样式,保存在服务器上
set objExcelBook=objExcelApp.ActiveWorkBook
set objExcelSheets=objExcelBook.Worksheets
set objExcelSheet=objExcelBook.Sheets(1)
"====此处为对excel单元格进行填写数据的语句,如果是从数据库提取数据,可由后台程序生成这些语句,ASP中的示列:
"如:response.write "objExcelSheet.Range(""B2"").Value="""&rs("XXX")&""""
"或 objExcelSheet.Range("B2").Value="<%=rs("XXX")%>"
objExcelSheet.Range("B2:k2").Value=Array("Week1","Week2","Week3","Week4","Week5","Week6","Week7")
objExcelSheet.Range("B3:k3").Value=Array("67","87","5","9","7","45","45","54","54","10")
objExcelSheet.Range("B4:k4").Value=Array("10","10","8","27","33","37","50","54","10","10")
objExcelSheet.Range("B5:k5").Value=Array("23","3","86","64","60","18","5","1","36","80")
objExcelSheet.Cells(3,1).Value="InternetExplorer"
objExcelSheet.Cells(4,1).Value="Netscape"
objExcelSheet.Cells(5,1).Value="Other"
"==================
"objExcelApp.Quit
"set objExcelApp=Nothing
</script>
上述代码中
"objExcelApp.Quit
"set objExcelApp=Nothing
作为取消执行,因为此处不要关闭excel.applicaition,不然数据填完后,excel会关闭掉.这时在客户端打开的excel文件需要由客户进行修改或打印等操作.
同时objexcelapp对象还有打印设置及进入打印预览界面等方法,可参考相关excel相关资料.
| 相关下载 |
哈喽哈喽，大家周三好啊~又到了新的一期的非酋的愤怒啦！阴阳师与死神的联动第一弹活动已经暂告一个段落，相信大家或多或少都获得了这次的联动SSR式神黑崎一护了吧？想要了解黑崎详情>>
《重装战姬》新人用什么输出武器好？重装战姬作为新上线的二次元机甲娘的手游，吸引了一大批新玩家加入，那么新手前期用什么输出武器好呢？这里小编带来了武器输出排行梯度，一起来详情>>
原标题：王者荣耀：英雄输出榜前4被法师包揽！全是上分热门，输出爆炸 不知不觉，王者荣耀新赛季过去了也快一个月时间了。赛季已过三分之一，还没达到满意段位详情>>
![一起来捉妖输出妖灵哪个厉害？最强输出妖灵推荐[多图]](/e/data/images/notimg.gif)
一起来捉妖输出类型的妖灵要怎么选？最厉害的输出妖灵师哪一个？最为游戏最核心的输出妖灵，大家一定要多多了解各位输出妖灵的能力，在输出系妖灵中，有不少都非常厉害，下面推荐几个详情>>
BIOS是英文"Basic Input Output System"的缩略语，直译过来后中文名称就是"基本输入输出系统"。它的全称应该是ROM－BIOS，意思是只读存储器基本输入输出系统。其实，它是一组固化详情>>
![梦幻模拟战手游输出最高的角色是哪个？最强物理输出排名[视频][多图]](https://img.61sou.com/zz/2019/06/25/ce67a5d8b133510e7b440387a39b74b6_5d11a3062e170a11e80654f4.jpg)
梦幻模拟战手游物理输出排名是怎么样的？在当前版本，新增了很多角色，也有不少角色进行了更改，想要知道哪一个角色的物理输出最厉害吗？下面小编将目前物理输出最高的角色分享给大详情>>
DNF怎么查看自己的输出伤害统计？大家跟着我一起学一下！攻略对象wegame步骤分解1首先，我们登录wegame。然后根据箭头提示，点击DNF专区。2在DNF专区，点击红色箭头所指的战绩。3进入详情>>
在一起来捉妖中各个妖灵的属性定位是不同的，那么在其中输出伤害能力比较强的妖灵是哪些呢？步骤分解1狐公子狐公子是青丘录中的妖灵，但是其有着很强的战斗力，其在输出能力上是首详情>>
英雄联盟中，ADC是队伍极其重要的一环，前期发育，后期承担团队物理输出的重任，一般团队中ADC发育好便可奠定优势，而团战中哪一方的ADC活到最后，哪一方就能取得团战的胜利。 本次详情>>
随着科技的发展和网络的发达，手机的更新换代，手机功能是越来越强大。我们可以用手机来进行办公。 现在我们就来看看这样一个操作——手机WPS 怎样将输出的长图详情>>
有时候我们在CAD上画好的图形想用word文件打开怎么办，然后在打印出来，下面是本人亲自编写的教程，一起来看看吧攻略对象电脑CAD软件word软件步骤分解1打开CAD画好的图形，在打开一详情>>
英雄联盟逆羽霞是英雄联盟游戏退出的情侣英雄中的一员，在游戏中属于ADC位置，作为一个ADC英雄，英雄联盟逆羽霞的持续输出能力很强，并且配合被动以及其他技能，英雄联盟逆羽霞非常适详情>>
导 读 详情>>
大家好,本期为玩家们带来的是关于纯C中的隐藏大BOSS剑魔的攻略。剑魔也算是一个老职业了,小编认为她的技能强度是四个女鬼剑中最高的一个,但因为没有持续输出... 详情>>
地下城与勇士2019输出职业最强是哪个?以下是2019超一线输出职业排名,一起来了解一下吧。 【职业推荐】 1、圣骑士:输出手感非常好的一个职业,一二觉的伤害非常高... 详情>>
输出妖灵排行榜一起来捉妖最厉害的输出妖灵是谁？想要知道妖怪们的输出能力，这个还要从面板值以及技能等各方面来分析。一起来捉妖妖灵属性排行输出方面在计算了技能和面板值之后，整体输出能力排名详情>>
一起来捉妖最厉害的输出妖灵是谁？想要知道妖怪们的输出能力，这个还要从面板值以及技能等各方面来分析，关于妖怪们的输出能力以及坦克属性的妖灵，小编都做了一个简单的排名，大家可以了解一下最强输出以及坦克的妖详情>>
《一起来捉妖》中有着300多种妖灵等着玩家去收集，那么在这些妖灵中，什么物理输出的妖灵比较强呢？下面是物理输出强度排行榜。物理输出排行榜《一起来捉妖》里的妖灵有五种资质属性分别是：物攻资质、物防资质、详情>>
相信有不少的LOL玩家们最近在提到烬和羊刀的爆炸输出之时都啧啧称奇,毕竟这输出看起来简直超级变态,然而国外设计师听闻这个消息之后,表示将会砍一刀,具体详情一... 详情>>
《天谕》玩家分享流光副本输出手法以及循环,属性什么的大家暂且忘记,只讨论技能输出循环手法,如何打出最高伤害。起手魂珠,然后是魂爆接魂域,结尾引魂离殇(无双技能... 详情>>
Game234问答中心有网友提出了一个比较有代表性的问题【英雄联盟里的输出是什么意思！？】，小编觉得可能对其他网友也有帮助，所以将此问答整理出来了,希望对您有帮助。小编为您搜罗的答案1说通俗点就是对敌详情>>
导读详情>>
导读详情>>
《全境封锁2》中，很多玩家都非常享受使用狙击枪决胜千里的快感，但有时会输出不够，今天为大家带来“羊君的说”分享的《全境封锁2》栓狙输出及玩法心得分享，希望对大家详情>>
逆水寒的游戏中,九灵是一个非常强大的门派,有三个宝宝的设定让九灵的输出技能循环非常复杂,需要合理安排自己的技能循环才能打出输出。下面就给大家带来逆水寒九灵输出技 详情>>
完美世界手游装备的打造是属性提升最快的途径，对于输出职业来说打造装备是必不可少的，那么输出职业怎么打造装备提升最快呢，下面小编就为大家详细介绍一下。装备打造技巧首先，武器的精炼能够大额的增加物理法术详情>>
大家好，本期为玩家们带来的是关于纯C中的隐藏大BOSS剑魔的攻略。剑魔也算是一个老职业了，小编认为她的技能强度是四个女鬼剑中最高的一个，但因为没有持续输出，以及详情>>
dnf3.7职业平衡后输出排名是什么?每次详情>>
在完美世界手游中不同的职业往往有着不同的精灵需求，那么，大家知道完美世界手游输出职业精灵怎么选择吗？本期，小编就给大家带来了完美世界手游输出职业精灵选择推荐详情>>
《炉石传说》3月14日又到了一周一度的乱斗更新时间，本周乱斗名为炎魔之王的恩赐，每回合所有手牌法力值消耗会少一点，是一个非常有趣的乱斗。下面就为大家带来3详情>>
阴阳师是一款已经出了两年多的回合制卡牌游戏了,游戏中有大量的式神可供玩家选择,在游戏里最受欢迎的式神应该就是单体攻击最强的式神了,接下来我们就来看看新版本... 详情>>
由韩国EyedentityGames联合盛大游戏倾力打造的3D嗨萌乱斗手游《超级地城之光》即将于下周二迎来嗨萌测试（不删档）之旅！在以往的测试中，作为游戏中的远距离输出职业，法师和游侠详情>>
《魔界统一战OL》最多允许六名英雄同时出阵，三个前排，三个后排，队形看起来很简单，但具体到选择哪个英雄站在哪个位置，就需要玩家仔细斟酌了。游戏中英雄的普攻和技能种类五花八门，有打前排详情>>
输出流加里奥出装s9-ap加里奥天赋2019，加里奥在刚刚重做之后都是作为坦克出现，但早在7.13版本时，其Q技能基础伤害降低，ap加成提高，我便开始尝试输出加里奥的打法了，而详情>>
输出与辅助 画影未升150级技能天书加点, 四重: 1、大衍化形:过渡 2、坐忘:加满,配合天书加爆伤攻击 3... 详情>>
在DNF游戏中，很多玩家都会有一种惯性思维，就是25仔伤害不如纯C的想法，首先我们要了解，25仔分为两种，一种是25C，除了帮队友增伤外，输出非常高，还有一种就是真正意详情>>
玩游戏什么最开心？赢了？得到好装备？好皮肤？（╯'-')╯┻━┻都不是！玩游戏最开心的事情当然是和基♂友们互相开黑啦！当详情>>
弓箭手大作战 更新了很多新武器,很多玩家在玩弓箭手的时候,都会有不同的战斗理念,有的喜欢爆发输出,有的... 详情>>
怪物猎人ol中的大锤不少玩家都不太精通。即使熟悉了技能也不知道应该怎么输出。来看看99单机小编的怪物猎人... 详情>>
我叫MT4哪个职业输出高？我叫MT4中输出最高的职业是谁？现在的游戏中有这么多职业，但是输出最高的是谁呢？让人不意外的人选有法师和猎人，大家是不是很好奇为什么刺客没有上榜，下面就来看看为什么没...详情>>
7.35王座开放,大家都知道生存的T21效果总体评价不...上一篇:7.32燃烧王座 暗牧4T21稳定输出循环55层 ... 详情>>
梦幻诛仙输出仙侣鬼厉怎么样？输出系仙侣就是输出伤害能力比较强的，但是虽然输出很重要，速度也是不能忽略的一点，在刺激的战场上与其他玩家进行对战的过程中，如果速度上不占优势，就容易被对手出手更快...详情>>
仙剑奇侠传4手游鬼炼是一个拥有超高爆发能力和输出能力的门派，在江湖上可是大名鼎鼎的秒人专业户~也正是因为这样，鬼炼是靠暴击与暴伤吃饭，所以堆详情>>
这里说的是在有一定包养下,能发挥最极限的输出能力,细数三国杀十大输出武将... 新输出型武将,也是不依赖手牌系的强者,稳定一血是肯定的。楼主见过一回合内诸葛珞... 详情>>
魔龙之魂中,男贼是游戏中物理dps之一,有着很高的爆发输出,那么游戏中男贼的输出能力怎么样,又该怎么提高男贼的能力呢,下面一起来看看男贼输出能力分析吧。 详情>>