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

• VBA • 14 条评论 • •10,824 次查阅

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

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