Question

如何excel的VBA来打开程序

比如当输入A1=10，B1=5，C1=A1-B2，当C1>0时，自动打开C盘目录下 mybook.txt 这个文本文件，

注意：A1和B1都是连接外部程序，都是自己会变动的，不是手工输入A1或B1，触发C1变动，麻烦帮忙做一下，这样VBA代码是什么，谢谢

Answer 1

方法：
open 事件
Private Sub Workbook_Open()

End Sub
在VBE窗口中左边的“thisworkbook" ,双击，就出现左边（通用），把它选为workbook，再选OPEN事件
在这个事件中加入代码，就可以了！
也可以用
Sub auto_open()

End Sub
这个放在任何模块都可以。

Answer 2

Private Sub Worksheet_Calculate()

   If Range("C1") > 0 Then

      Shell "notepad.exe C:\mybook.txt"

   End If

End Sub

追问

http://pan.baidu.com/share/link?shareid=3510581683&uk=2801892038&app=zd

比如上面我这一个附件，E2<D2，自动打开C盘目录下 mybook.txt ，

D列中有任何一个数与同一行E列对比，有一个符合条件时打开，能不能帮我修改这个excel文档

追答

我用的是2003版，如果不能运行就将代码复制到你原来文件里。

如有问题再联系

追问

谢谢你的解答，我再问另一个问题，

如果C盘目录下 mybook.txt 改为 yinpin.mp3 音频文件，在符合条件下如何播放音频？

能不能在 工作表上插入一个Windows Media Player 控件来实现这样的功能，要是能如何实现，

麻烦你解答，最好能做好一个样表，谢谢!

追答

不用控件。
将记事本程序（notepad.exe）改为播放器程序就行了。如果播放器程序不是操作系统自带的，请加上路径。

Answer 3

Private Sub Worksheet_Calculate()
If Range("C1") > 0 Then
Shell "notepad.exe C:\mybook.txt"
End If
End Sub