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

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

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

wuyunpeng888 · 发表于 2009-5-11 19:06:00

直接用shell函数，第二个参数用vbHide

wuyunpeng888 · 发表于 2009-5-11 19:21:00

Shell "CMD /C COPY c:\CONFIG.SYS D:\CONFIG.SYS", vbHide

执行DOS内命令将c:\CONFIG.SYS复制到D盘

ohohyo · 发表于 2009-5-12 09:03:00

Shell "CMD /C 所以就是这里写要运行的dos程序就是了吧？", vbHide

ohohyo · 发表于 2009-5-13 09:22:00

那如果我想要到一个路径名下==>在dos 界面下就输入cd c:\Document and Settings\Documents\New Folder就能变成c:\Document and Settings\Documents\New Folder》那在这里要怎么弄呢？

雪山飞狐_lzh · 发表于 2009-5-13 09:41:00

编辑为Bat文件

然后shell

ohohyo · 发表于 2009-5-13 10:21:00

请教怎么弄成bat啊？

账号		自动登录	找回密码
密码			注册