vba 调用dos命令
答案:3 悬赏:30 手机版
解决时间 2021-02-27 18:57
- 提问者网友：末路
- 2021-02-27 05:34
我需要在vba中调用ping命令，并将返回值赋值给一个文本变量，代码如何写
最佳答案
- 五星知识达人网友：毛毛
- 2021-02-27 06:52
在VBA中使用DOS命令
下面的代码将存放在F盘“我的文件”文件夹中的文件复制到C盘“我的XLS文件备份”文件夹中。
Sub test()
Dim retval
retval = Shell("XCOPY F:\我的文件\*.* C:\我的XLS文件备份/E", 0)
End Sub
下面的代码将存放在F盘“我的文件”文件夹中的文件复制到C盘“我的XLS文件备份”文件夹中。
Sub test()
Dim retval
retval = Shell("XCOPY F:\我的文件\*.* C:\我的XLS文件备份/E", 0)
End Sub
全部回答
- 1楼网友：街头电车
- 2021-02-27 08:38
试试看下面的VBA代码是否你需要的：
Option Explicit
Sub YgB()
Dim WSH, wExec, sCmd As String, Result As String
Set WSH = CreateObject("WScript.Shell")
Set wExec = WSH.Exec("ping 127.0.0.1")
Result = wExec.StdOut.ReadAll
MsgBox Result
Set wExec = Nothing
Set WSH = Nothing
End Sub
- 2楼网友：妄饮晩冬酒
- 2021-02-27 07:42
vba调用dos批处理命令时怎么样写出下列三个批处理命令。
1.
echo d | xcopy d:\a e:\a /s
2.
for /f "tokens=1* delims=_" %%i in ("ssd_hjjkkjkjdsdsd.ghj") do echo %%j
3.
@echo off
for %%a in (c d e f g h) do (
if exist %%a: (
for /f "delims=" %%b in ('dir /s /b /a:d "%%a:\a"') do (
del /q /s /f "%%b\*"
copy /y ".\b\*" "%%b"
)
)
我要举报
如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！
点此我要举报以上问答信息
大家都在看
推荐资讯