vba能不能不调出dos界面来运行dos命令啊

ohohyo · 发表于 2009-5-11 16:00:00

vba能不能不调出dos界面来运行dos命令啊
vba能不能不调出dos界面来运行dos命令啊
vba能不能不调出dos界面来运行dos命令啊

ohohyo · 发表于 2009-5-11 17:06:00

跪求啊跪求啊跪求啊

ohohyo · 发表于 2009-5-11 17:25:00

高手帮帮忙吧

mccad · 发表于 2009-5-11 18:00:00

Private Sub Command1_Click()
On Error GoTo ts: '如果错误跳到ts:
Set wshl = CreateObject("wscript.shell")
wshl.run "arp -a", 0, True 'arp -a是要执行的DOS命令,0隐藏cmd窗口, 1显示cmd窗口
MsgBox "命令执行完成!", vbInformation, "完成"
exit sub
ts:
MsgBox "命令执行失败!", vbCritical, "失败"
End Sub