PyCharm可运行的Python代码在Excel VBA宏调用时chrome_path为None的问题

问题场景 #

以下Python代码在PyCharm中运行正常，但通过Excel VBA宏调用时，os.getenv('chrome_path')返回None，导致代码无法执行：

Python代码 #

import os
import webbrowser
from dotenv import load_dotenv

ComputerName = {
    'Computer1':'ComputerOne.env',
    'Computer2':'ComputerTwo.env'
}  # 电脑名称与对应环境文件的映射

load_dotenv(ComputerName[os.getenv('COMPUTERNAME')]) # 加载对应电脑的环境变量
chrome_path = os.getenv('chrome_path') + ' %s --incognito' # Chrome浏览器路径
url = 'https://www.google.com' # 目标URL
webbrowser.get(chrome_path).open_new(url) # 以无痕模式打开URL

对应的Excel VBA宏代码 #

Sub Open_Chrome_From_Excel()
    ActiveWorkbook.Save
    
    Dim tbl As ListObject
    Dim lrow As Range
    Dim objShell As Object
    Dim PythonExePath, PythonScriptPath As String
    Dim FSO As New FileSystemObject
    Dim FileSavePath As String
    
    Set FSO = CreateObject("Scripting.FileSystemObject")
    FileSavePath = FileSavePath
    FileToCreate.Write ThisWorkbook.FullName
    
    Set objShell = VBA.CreateObject("Wscript.Shell")
    
    PythonExePath = PythonExePath
    PythonScriptPath = "py " & PythonScriptPath
    
    objShell.Run PythonScriptPath
End Sub

原因解析 #

PyCharm运行Python脚本时，会自动将工作目录设为脚本所在路径，并加载项目配置的环境变量（包括.env文件）。但通过Excel VBA调用时，Python进程继承的是Excel的运行环境：

1. Excel的默认工作目录通常不是Python脚本所在目录，导致load_dotenv无法定位到对应的.env文件；
2. 即使.env文件路径正确，Excel环境未加载该文件中的变量，使得os.getenv('chrome_path')无法获取有效值。

现有解决方案整理 #

• 方案1：在Excel环境中配置环境变量
  直接在系统或Excel运行的环境中添加chrome_path变量，或确保.env文件能被Python脚本读取。但该方法操作繁琐，受系统权限限制，灵活性差。

• 方案2：命令行参数传递Chrome路径
  修改Python脚本通过sys.argv接收Chrome路径参数：

  import sys
  import webbrowser
  
  chrome_path = sys.argv[1] + ' %s --incognito'
  url = 'https://www.google.com'
  webbrowser.get(chrome_path).open_new(url)
  

  同时修改VBA代码，传入Chrome的实际路径：

  PythonScriptPath = "py ""C:\path\to\your\script.py"" ""C:\Program Files\Google\Chrome\Application\chrome.exe"""
  objShell.Run PythonScriptPath
  

• 方案3：硬编码Chrome路径
  若Chrome路径在所有运行环境中固定，直接在Python脚本中写死路径：

  import webbrowser
  
  chrome_path = r'C:\Program Files\Google\Chrome\Application\chrome.exe %s --incognito'
  url = 'https://www.google.com'
  webbrowser.get(chrome_path).open_new(url)
  

  优点是无需依赖环境变量，缺陷是路径变更时需手动修改脚本，扩展性差。

更优方案：基于脚本绝对路径加载.env文件 #

该方案保留原有的多电脑环境配置逻辑，同时解决环境变量加载失败的问题，核心是通过Python脚本的绝对路径定位.env文件：

修改后的Python代码 #

import os
import webbrowser
from dotenv import load_dotenv

# 获取脚本自身的绝对目录
script_dir = os.path.dirname(os.path.abspath(__file__))

# 拼接.env文件的绝对路径，确保无论从哪个环境调用都能找到
ComputerName = {
    'Computer1': os.path.join(script_dir, 'ComputerOne.env'),
    'Computer2': os.path.join(script_dir, 'ComputerTwo.env')
}

# 加载对应电脑的环境变量
load_dotenv(ComputerName.get(os.getenv('COMPUTERNAME')))

chrome_path = os.getenv('chrome_path') + ' %s --incognito'
url = 'https://www.google.com'
webbrowser.get(chrome_path).open_new(url)

修正后的VBA代码 #

Sub Open_Chrome_From_Excel()
    ActiveWorkbook.Save
    
    Dim objShell As Object
    Dim PythonExePath As String, PythonScriptPath As String
    
    Set objShell = VBA.CreateObject("Wscript.Shell")
    
    ' 填写实际的Python解释器路径和脚本路径
    PythonExePath = "C:\Python39\python.exe"
    PythonScriptPath = """C:\path\to\your\script.py"""
    
    ' 拼接命令并执行
    objShell.Run PythonExePath & " " & PythonScriptPath
End Sub

此方案无需硬编码路径或传递参数，无论从哪个环境调用，都能正确加载对应电脑的.env文件，兼顾灵活性和稳定性。

内容的提问来源于stack exchange，提问作者user1574881