WindowsApps 加载 Python 安装而不是用户安装的 Python

Question

由于公司政策，用户不能编辑他们的路径，不能改变环境变量。

我想通过 VBA 来改变 USER 路径。

有一个问题。所有安装都有，在 SYSTEM 环境变量中：

%USERPROFILE%\AppData\Local\Microsoft\WindowsApps

脚本会话的 PATH 将采用 SYSTEM 路径并将 USER 路径附加到它。非常正常的 Windows 行为。

我在设置路径后遇到的问题是 ORDER 导致问题。 WindowsApps 将 Python 作为安装包，因此如果它在 PATH 语句中首先出现，则在某些 PC 上它会尝试加载 Python 安装，而不是用户安装的 Python。

我拥有开发人员权限，因此我可以控制我的笔记本电脑，但我的最终用户没有。如果没有公司锁定，我会让用户从他们的 SYSTEM PATH 中删除 WindowsApps。

正常的完整目录路径：

%USERPROFILE%\Anaconda3\;
%USERPROFILE%\Anaconda3\Library;
%USERPROFILE%\Anaconda3\Library\bin;
%USERPROFILE%\Anaconda3\Scripts\;

代码：

Sub RunPythonScript()

    Dim objShell As Object
    Dim PythonExePath, PythonScript As String

    Set objShell = VBA.CreateObject("Wscript.Shell")
      
    Dim WaitOnReturn As Boolean
    Dim WindowStyle As Integer

    WindowStyle = 1
    WaitOnReturn = True

' find the Python Path in the workbook
    PythonPath_Row = ThisWorkbook.Sheets(ActiveSheet.Name).Columns(1).Find(What:="Python Path", LookIn:=xlValues).Row + 1
    PythonPath = ThisWorkbook.Sheets(ActiveSheet.Name).Cells(PythonPath_Row, 1)

' set only the User environment settings since no admin permission required
    Set colUserEnvVars = objShell.Environment("User")

' save the original PATH
    originalPATH = colUserEnvVars.Item("Path")

' add the needed Python directories to the PATH
    colUserEnvVars.Item("PATH") = PythonPath & ";" & PythonPath & "Library" & ";" & PythonPath & "Library\bin" & ";" & PythonPath & "Scripts" & ";" & colUserEnvVars.Item("Path")

    PythonScript = """" & ThisWorkbook.Path & "\MyScript.py" & """"

    PythonEXE = PythonPath & "python.exe"

' run Python script
    objShell.Run PythonEXE & " " & PythonScript, WindowStyle, WaitOnReturn

' put path back to normal
    colUserEnvVars.Item("PATH") = originalPATH

End Sub

我明确地从它的安装目录调用 Python。
我单步执行 VBA 代码并验证传递给 shell 的命令行。
我在设置路径后打开了一个CMD提示，都正确修改了。

为什么有些电脑会从 WindowsApps 中打开 Python？

Answer 1

请尝试下一个函数来获取打开特定扩展的任何（已安装）应用程序的安装路径（默认）：

Private Function GetExePath(ext As String) As String
    Dim strAppl As String, strPathExe As String, strExeFile As String
    Dim WSHShell As Object

    Set WSHShell = CreateObject("WScript.Shell")
    On Error Resume Next
    strAppl = WSHShell.RegRead("HKEY_CLASSES_ROOT\" & WSHShell.RegRead("HKEY_CLASSES_ROOT\" & ext & "\") & _
                                                                                  "\shell\open\command\")
    If err.Number <> 0 Then
        err.Clear: On Error GoTo 0
        GetExePath = ""
        MsgBox "No program installed for extension """ & ext & """"
        Exit Function
    End If
    On Error GoTo 0
    strExeFile = Split(strAppl, """ """)(0)
    strExeFile = Right(strExeFile, Len(strExeFile) - 1)
    GetExePath = strExeFile
End Function

你可以通过下面的方式测试它：

Private Sub testGetExeP()
   Debug.Print GetExePath(".xls")
   Debug.Print GetExePath(".pdf")
   Debug.Print GetExePath(".py")
End Sub

请尝试将使用的工作簿中的路径与返回的 exe 路径进行比较。首先，检查我的假设（来自上述评论）是否得到证实，其次使用该函数而不是从任何工作簿中提取的路径。