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  

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

很方便吧!

分享到: