你好！安按照你上次写给我的代码写的，可dos提示语法错误，请高人帮我看看呢，谢谢！！
Private Sub CommandButton1_Click()
Dim add As String, cmd As String
add = ThisWorkbook.Path & "\" & "222.pdf "
cmd = "cmd.exe /k ren " & add & "222.dwg"
Shell (cmd), vbMinimizedFocus
End Sub
关于VBA调用DOS命令的问题！
答案:2 悬赏:0 手机版
解决时间 2021-02-27 20:07
- 提问者网友：浩歌待明月
- 2021-02-27 17:14
最佳答案
- 五星知识达人网友：鱼芗
- 2021-02-27 18:07
XP+excel2003 测试通过没有问题.
你注意一下你的操作系统版本.
cmd命令可能会有区别.
你注意一下你的操作系统版本.
cmd命令可能会有区别.
全部回答
- 1楼网友：底特律间谍
- 2021-02-27 19:35
在vba中使用dos命令
下面的代码将存放在f盘“我的文件”文件夹中的文件复制到c盘“我的xls文件备份”文件夹中。
sub test()
dim retval
retval = shell("xcopy f:\我的文件\*.* c:\我的xls文件备份/e", 0)
end sub
我要举报
如以上问答信息为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！
大家都在看
推荐资讯