Excel精英培训网

 找回密码
 注册
数据透视表40+个常用小技巧,让你一次学会!
查看: 3443|回复: 12

[已解决]再求助(关于shell)

[复制链接]
发表于 2012-12-9 21:13 | 显示全部楼层 |阅读模式
本帖最后由 ztccsj 于 2012-12-10 12:32 编辑

如果大家有时间,请点击下面这个大富翁地址,下载安装后,看能否在excel中建立一个超级链接,然后点击超级链接,看可否启动这个大富翁4程序。谢谢了

#迅雷下载分享# 我以1.40 MB/s的速度已下载[rich4.exe][93.86 MB]  http://url.cn/8gpM9R
//////////////////////////////////////////////////////////////////////////////////////////////////////////////////

描述:推箱子代码,机器可以调用执行
Sub 推箱子()
Dim game
game = Shell("D:\txz\推箱子.exe", 1)
End Sub

但是同样的代码,调用大富翁程序时就出现错误,出现一个不知道的繁体错误窗口,我确定在目录中直接点击rich4是可以运行的。
Sub 游戏2()
Dim game
game = Shell("D:\txz\rich4\rich42.exe", 1)
End Sub

为何一样的代码,不一样的结果呢?难道是大富翁本身有问题?

最佳答案
2012-12-11 22:54
  1. Option Explicit

  2. Private Declare Function ShellExecute _
  3.                             Lib "shell32.dll" _
  4.                             Alias "ShellExecuteA" ( _
  5.                             ByVal hwnd As Long, _
  6.                             ByVal lpOperation As String, _
  7.                             ByVal lpFile As String, _
  8.                             ByVal lpParameters As String, _
  9.                             ByVal lpDirectory As String, _
  10.                             ByVal nShowCmd As Long) _
  11.                             As Long

  12. Private Sub Command1_Click()
  13.    Dim r As Long
  14.    r = ShellExecute(0, "open", "D:\txz\rich4\rich42.exe", 0, "D:\txz\rich4", 1)
  15. End Sub
复制代码
发表于 2012-12-9 21:27 | 显示全部楼层
  1. Sub 游戏2()
  2.     Dim game
  3.     ChDir "D:\txz\rich4"
  4.     game = Shell("D:\txz\rich4\rich42.exe", 1)
  5. End Sub
复制代码
回复

使用道具 举报

 楼主| 发表于 2012-12-9 21:35 | 显示全部楼层
可能是大富翁程序就无法在win7系统下从exce下打开,我在excel中建立了一个超链接,也无法打开。
谢谢班长
回复

使用道具 举报

发表于 2012-12-9 22:03 | 显示全部楼层
game = Shell("D:\txz\rich4\rich42.exe", 1
刚又仔细看了下,你上面说是直接点击RICH4可以的,怎么这里是RICH42?
回复

使用道具 举报

 楼主| 发表于 2012-12-10 12:31 | 显示全部楼层
hwc2ycy 发表于 2012-12-9 22:03
game = Shell("D:\txz\rich4\rich42.exe", 1
刚又仔细看了下,你上面说是直接点击RICH4可以的,怎么这里是 ...

谢谢你的细心,两个我都试验了,都不可以。如果您有时间,你点击下面这个大富翁,看能否在excel中建立一个超级链接,然后点击超级链接,看可否启动这个大富翁4程序。谢谢了

#迅雷下载分享# 我以1.40 MB/s的速度已下载[rich4.exe][93.86 MB]  http://url.cn/8gpM9R
回复

使用道具 举报

 楼主| 发表于 2012-12-10 14:00 | 显示全部楼层
顶起来,大家都曾经玩过大富翁吧,即使解决不了我遇到的问题,下载大富翁玩玩,也是不错的选择。
回复

使用道具 举报

发表于 2012-12-10 17:16 | 显示全部楼层
你在桌面上创建一个RICH4的快捷方式,然后SHELL调用桌面的快捷方式。
先得保证桌面的快捷方式能正常运行。
回复

使用道具 举报

 楼主| 发表于 2012-12-11 11:18 | 显示全部楼层
hwc2ycy 发表于 2012-12-10 17:16
你在桌面上创建一个RICH4的快捷方式,然后SHELL调用桌面的快捷方式。
先得保证桌面的快捷方式能正常运行。

按照你说的做了,没反应
回复

使用道具 举报

发表于 2012-12-11 13:16 | 显示全部楼层
双击桌面快捷方式无响应?
回复

使用道具 举报

 楼主| 发表于 2012-12-11 16:00 | 显示全部楼层
hwc2ycy 发表于 2012-12-11 13:16
双击桌面快捷方式无响应?

点击快捷方式是可以运行的。
ps:直接在硬盘中点击可执行程序也是可以运行的。

回复

使用道具 举报

您需要登录后才可以回帖 登录 | 注册

本版积分规则

小黑屋|手机版|Archiver|Excel精英培训 ( 豫ICP备11015029号 )

GMT+8, 2024-3-29 21:29 , Processed in 4.506983 second(s), 8 queries , Gzip On, Yac On.

Powered by Discuz! X3.4

Copyright © 2001-2020, Tencent Cloud.

快速回复 返回顶部 返回列表