通过 vba 宏进行 pip 安装

Mohit 发表于 Dev

莫希特

我创建了一个 .bat 文件来下载 Selenium。但我想通过 VBA 宏来运行它。我可以将以下代码合并到 vba 脚本中吗？我不想运行单独的批处理命令。

@ECHO ON
IF EXIST C:\ProgramData\Miniconda3_64 (
    set root=C:\ProgramData\Miniconda3_64
) ELSE IF EXIST C:\Programs\Miniconda3_64 (
    set root=C:\Programs\Miniconda3_64
) ELSE (
    set root=C:\Programs\Miniconda3_x64
)
cd %root%
IF EXIST %root%\envs\jup369 (
    call %root%\Scripts\activate.bat %root%\envs\jup369
) ELSE (
    call %root%\Scripts\activate.bat %root%
)
pip install selenium

法尼杜鲁

请试试这个代码行：

Shell "pathToTheBatFile\test.bat", vbNormalFocus

或者在隐藏窗口中创建并运行 bat 文件：

Sub createRunBatFile()
   Dim strCode As String, batName As String
   strCode = "@ECHO ON" & vbCrLf & _
            "IF EXIST C:\ProgramData\Miniconda3_64 (" & vbCrLf & _
            "set root=C:\ProgramData\Miniconda3_64" & vbCrLf & _
            ") ELSE IF EXIST C:\Programs\Miniconda3_64 (" & vbCrLf & _
            "set root=C:\Programs\Miniconda3_64" & vbCrLf & _
            ") ELSE (" & vbCrLf & _
            "set root=C:\Programs\Miniconda3_x64" & vbCrLf & _
            ")" & vbCrLf & _
            "cd %root%" & vbCrLf & _
            "IF EXIST %root%\envs\jup369 (" & vbCrLf & _
            "call %root%\Scripts\activate.bat %root%\envs\jup369" & vbCrLf & _
            ") ELSE (" & vbCrLf & _
            "call %root%\Scripts\activate.bat %root%" & vbCrLf & _
            ")" & vbCrLf & _
            "pip install selenium"
            
   batName = ThisWorkbook.Path & "\test.bat"
   Open batName For Output As 1#
        Print #1, strCode
   Close 1#
   CreateObject("WScript.Shell").Popup "Selenium is going to be installed...", 1, "Installation Confirmation", 0
   Shell batName, 0
   MsgBox "Selenium installed.", vbInformation, "Installation done"
End Sub

本文收集自互联网，转载请注明来源。

如有侵权，请联系 [email protected] 删除。