VBA实现Excel打开其他应用程序

VBA实现Excel打开其他应用程序

你见过打开Excel的同时打开QQ吗?或者打开其他应用程序或文件!怎么实现?Follow me!

输入如下代码:

 
  1. Private Sub Workbook_Open()   
  2. AppActivate (Shell("D:\Program Files\Tencent\QQ\Bin\QQ.exe")) ‘本例中QQ的安装位置!其他程序位置请自行修改~   
  3. End Sub  

打开指定文件的代码为:

 
  1. Private Sub Workbook_Open()   
  2. Workbooks.Open FileName:="C:\My Documents\Book2.xls"‘文件的路径   
  3. End Sub  

代码很简单,设置这种效果只不过为了要使用一个表格时打开相关表格,再也不用到处翻表格再打开!

很方便吧!

分享到:

14 条评论

注意: 评论者允许使用'@user空格'的方式将自己的评论通知另外评论者。例如, ABC是本文的评论者之一,则使用'@ABC '(不包括单引号)将会自动将您的评论发送给ABC。使用'@all ',将会将评论发送给之前所有其它评论者。请务必注意user必须和评论者名相匹配(大小写一致)。

昵称
  1. 歪SIR

    哥,请教一个问题,excel在复制单元格的时候,我点击了一下需复制的单元格并复制,然后粘贴到QQ窗口,发现是图片格式的,由于我表格是用公式生成的,双击又会出现公式 ,有没有解决方法,怎么直接复制文本?

    1. Kael.Z

      你用的现象应该是飞信出现的,QQ是没有的,貌似飞信就这样,你说带公式,那就把那带公式的数据复制下选择性粘贴为“数值”,这样就没公司了,纯结果~

      1. 歪SIR

        好的,谢谢热情服务~~^^

        1. Kael.Z

          呵呵,我的excel悲剧了,被我折腾成不能粘贴复制了~~我得修复去~

          Notify
  2. 歪SIR

    ~~看了 忽然明白宏木马的为什么存在了!..但是没有飞信的API还是无法实现我想象中的那种偷懒的方式~~哈哈

    1. Kael.Z

      API这东西弄起来没那么简单了~

  3. 太子虹

    边走边看边支持博主

    1. Kael.Z

      你在干什么!!!!

  4. 传奇sf

    我真的很生气!

    1. Kael.Z

      无从解释!

  5. 夏尹沫

    博主的文章真好,支持! http://www.oleoral.com

    1. Kael.Z

      真觉得你的评论都是复制的!!!

  6. 红涛SEO

    呵呵,小小代码能实现大功能啊

    1. Kael.Z

      确实!只要想的出也能折腾的出!