运行外部命令

时　间:2010-03-02 16:40:14
作　者:王樵民   ID：5203  城市：郑州
摘　要:本文介绍了在Access中执行相应的外部命令的方法，供参考。
正　文:

下面的代码分别在Access中执行相应的外部命令，供网友参考。

点击下载此附件

Private Sub Excel_Click()
Shell "EXCEL.EXE", vbMaximizedFocus  '执行Excel程序
End Sub

Private Sub PowerPoint_Click()
Shell "POWERPNT.EXE", vbMaximizedFocus  '执行POWERPNT程序
End Sub

Private Sub Word_Click()
Shell "WINWORD.EXE", vbMaximizedFocus  '执行Word程序
End Sub

Private Sub 画图_Click()
Shell "mspaint.exe", vbMaximizedFocus  '执行画图程序
End Sub

Private Sub 计算器_Click()
p = Shell("calc.exe", vbMaximizedFocus) '执行计算器程序
End Sub

Private Sub 记事本_Click()
Shell "notepad.exe", vbMaximizedFocus  '执行记事本程序
End Sub

Private Sub 看图_Click()
On Error GoTo err1
Shell "C:\Program Files\ACDSee\ACDSee9.exe", vbMaximizedFocus  '执行看图程序
Exit Sub
err1:
 MsgBox ("文件路径错误或没有安装看图软件")
End Sub