windows - 使用 shell 命令在 vba 中执行批处理文件不起作用

Question

我已经创建了批处理文件来将文件从网络驱动器复制到本地。

.bat文件:

SET username=%1
SET password=%2
net use "\\gesvij\toys\names" %password% /user:shop\%username%
:copy
Xcopy "\\gesvij\toys\names" "%appdata%\Microsoft\Templates" /S /E
IF ERRORLEVEL 0 goto disconnect
goto end
:disconnect 
net use "\\gesvij\toys\names" /delete
goto end
:end

我已尝试使用以下代码在 vba 中执行批处理文件。

sub ok_click
dim un as string
dim pd as string
un = " " + un_text.value
pd = " " + pd_text.value

call shell("\\gesvij\toys\names\test.bat & un & pd")
end sub

现在我有以下问题:

1) 批处理文件未从 vba 代码正常运行。但是当我独立运行时，bat 文件可以正常工作。 2) 一旦文件复制到本地我如何断开批处理文件中的网络路径“\gesvij\toys\names”

有人问这个吗？

Answer 1

您没有正确添加 un 和 pd 变量。他们需要像这样在引号之外:

"\\gesvij\toys\names\test.bat " & un & pd

---

下面是我如何从 VBA 调用 .bat 文件

Sub CreateReleasePart()
    Dim batPath As String: batPath = "C:\Users\sl\Desktop\"

    call Shell(Environ$("COMSPEC") & " /c " & batPath & "\myFile.bat", vbNormalFocus)
End Sub