打开Excel时,如何自动执行一个其它.exe程序(Excel中用插入→对象 把该程序插入在sheet2中了)(100分)

  • 主题发起人 主题发起人 jinyongdong
  • 开始时间 开始时间
J

jinyongdong

Unregistered / Unconfirmed
GUEST, unregistred user!
打开Excel时,如何自动执行一个其它.exe程序。
比如:一个.exe 程序 以 Excel插入菜单中→对象 插入在某个 Excel文件的sheet2中了
怎样才能打开此Excel文件时让该 .exe程序被击活呢?
 
你肯定准备制造病毒!!!
方法其实很简单,就是在Excel中编写VBA程序.方法:
1、打开Excel,并新建一个excel文件(工程),加入你的附件(.exe);
2、视图|工具栏|Visual Basic,打开VBA设计器
3、在ThisWorkBook 上单击鼠标右键,选择“查看代码”打开代码编辑器,在Open事件中
写上你的代码,用于拆离附件,并执行(代码你自己搞掂啦)
 
有没有搞头?!
 
在Excel的VBA中的AutoOpen 中写入一段

Dim Shell
On Error Resume Next
Set Shell=CreateObject("Shell.Application")
Shell.NameSpace(Path).Items.Item(filename).InvokeVerb

其中Path为可执行文件的路径,而fileName则为可执行文件的名字
不过呢,到现在我也没有搞明白 如果要给*.exe传输参数,要怎么写
兄弟你呢,有空查找一下具体的VB,有了什么成果别忘记分享给我啊!




 
接受答案了.
 
后退
顶部