[已解决]请问可以用Excel里面实现打开电脑其它的应用程序吗

kkExcel

如果可以，
代码应该怎么编写呢
求助啊{:111:}{:111:}

最佳答案

月排行榜 / 总排行榜

hwc2ycy

2012-12-11 22:56

1. Option Explicit
   
2. 
   
3. Private Declare Function ShellExecute _
   
4.                             Lib "shell32.dll" _
   
5.                             Alias "ShellExecuteA" ( _
   
6.                             ByVal hwnd As Long, _
   
7.                             ByVal lpOperation As String, _
   
8.                             ByVal lpFile As String, _
   
9.                             ByVal lpParameters As String, _
   
10.                             ByVal lpDirectory As String, _
    
11.                             ByVal nShowCmd As Long) _
    
12.                             As Long
    
13. 
    
14. Private Sub Command1_Click()
    
15.    Dim r As Long
    
16.    r = ShellExecute(0, "open", "D:\txz\rich4\rich42.exe", 0, 0, 1)
    
17. End Sub

复制代码

同上，还是换你要打开的文件。

跳转到最佳答案楼层

hwc2ycy

看看SHELL函数。
或者用API都可以。

kkExcel

hwc2ycy 发表于 2012-12-11 22:49
看看SHELL函数。
或者用API都可以。

求代码啊{:041:}

hwc2ycy

1. Sub 游戏2()
   
2. Dim game&
   
3. game = Shell("D:\txz\rich4\rich42.exe", 1)
   
4. End Sub

复制代码

把"D:\txz\rich4\rich42.exe"换成你要打开的文件，只限定于可执行文件

hwc2ycy

1. Option Explicit
   
2. 
   
3. Private Declare Function ShellExecute _
   
4.                             Lib "shell32.dll" _
   
5.                             Alias "ShellExecuteA" ( _
   
6.                             ByVal hwnd As Long, _
   
7.                             ByVal lpOperation As String, _
   
8.                             ByVal lpFile As String, _
   
9.                             ByVal lpParameters As String, _
   
10.                             ByVal lpDirectory As String, _
    
11.                             ByVal nShowCmd As Long) _
    
12.                             As Long
    
13. 
    
14. Private Sub Command1_Click()
    
15.    Dim r As Long
    
16.    r = ShellExecute(0, "open", "D:\txz\rich4\rich42.exe", 0, 0, 1)
    
17. End Sub

复制代码

同上，还是换你要打开的文件。

kkExcel

hwc2ycy 发表于 2012-12-11 22:56
同上，还是换你要打开的文件。

就是换成可执行文件（.exe）的是吧
Thank you ！！！very much....

hwc2ycy

记得要加上完整的路径。

kkExcel

hwc2ycy 发表于 2012-12-11 23:18
记得要加上完整的路径。

刚刚试过，两种方法都行！！
班长太给力了[em20]