添加新的环境变量名称和值

Question

我想将新的环境变量名称“Sample”和值“E:\Sample”设置到用户变量而不是系统变量上。

如何使用 VBA excel 执行此操作？

谢谢您和亲切的问候，

Answer 1

Sub addEnvironVariables()

    Dim WSS: Set WSS = CreateObject("WScript.Shell")
    Set System = WSS.Environment("User")
    System.Item("Sample") = System.Item("Sample") & ";C:\Sample"

End Sub

在 youtube 上找到的

Answer 2

对我来说以下步骤有效（Excel 2019）

创建/设置环境变量：

Dim objUserEnvVars As Object
Set objUserEnvVars = CreateObject("WScript.Shell").Environment("User")
objUserEnvVars.item("Test") = "Blah"

读取环境变量：

Dim objUserEnvVars As Object
Dim strVar As String
Set objUserEnvVars = CreateObject("WScript.Shell").Environment("User")
strVar = objUserEnvVars.item("Test")
MsgBox strVar

我的参考是：https://eileenslounge.com/viewtopic.php?t=4857

您可以使用

.Environment()

来保存变量：

• "System"

  ：返回系统环境变量。

• "User"

  ：返回当前用户的环境变量。

• "Process"

  ：返回当前进程的环境变量。

• "Volatile"

  ：返回当前用户的易失性环境变量。