通过VBA调用Python脚本时出现Errno 13权限拒绝问题求助

一、核心问题排查与修复 #

1. 解除Excel文件锁定 #

Excel打开.xlsm时会独占锁定文件，Python读写时必然触发权限拒绝，两种处理方式：

• 在VBA中先另存文件副本，让Python操作副本：

  ActiveWorkbook.SaveCopyAs "C:\Temp\Data_Copy.xlsx"
  ' 后续调用Python处理该副本路径
  

• 若允许，VBA调用Python前关闭原文件（务必先保存数据）。

2. 修正路径解析问题 #

• Python脚本开头强制设置工作目录，避免因VBA默认路径不一致导致的错误：

  import os
  # 切换到脚本所在目录
  os.chdir(os.path.dirname(os.path.abspath(__file__)))
  

• 所有文件操作都用绝对路径，不要用相对路径。

3. 权限适配 #

• 以管理员身份运行Excel，部分系统目录或受保护文件夹需要管理员权限才能读写。
• 将Python脚本和Excel文件移到用户个人目录（如C:\Users\你的用户名\Documents），避免系统权限限制。

二、优化VBA调用方式 #

用ShellExecute替代原生Shell函数，更稳定处理带空格的路径，减少解析错误：

Declare PtrSafe Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" ( _
    ByVal hwnd As LongPtr, ByVal lpOperation As String, _
    ByVal lpFile As String, ByVal lpParameters As String, _
    ByVal lpDirectory As String, ByVal nShowCmd As Long) As LongPtr

Sub RunPython()
    Dim pythonExe As String, scriptPath As String, targetFile As String
    pythonExe = """C:\Program Files\Python39\python.exe"""
    scriptPath = """C:\Scripts\analysis.py"""
    targetFile = """C:\Data\MyData.xlsm"""
    
    ShellExecute 0, "open", pythonExe, scriptPath & " " & targetFile, vbNullString, 1
End Sub

三、一站式解决方案库推荐 #

1. xlwings #

专门针对Python与Excel交互的库，自带VBA-Python调用机制，自动处理文件锁定和权限问题，配置简单：

• VBA端调用：

  Sub CallPythonAnalysis()
      RunPython ("import my_module; my_module.process_data()")
  End Sub
  

• Python端脚本my_module.py：

  import xlwings as xw
  def process_data():
      # 获取当前调用的Excel工作簿
      wb = xw.Book.caller()
      ws = wb.sheets("Sheet1")
      # 示例：读取A列数据并计算平均值写入C1
      avg_val = ws.range("A:A").options(numbers=True).value
      ws.range("C1").value = sum(avg_val)/len(avg_val)
  

2. pywin32（win32com.client） #

通过COM对象直接操作Excel，相当于在Python里控制Excel程序，无需处理文件锁定：

import win32com.client as win32
excel = win32.gencache.EnsureDispatch('Excel.Application')
# 后台运行Excel（不显示窗口）
excel.Visible = False
wb = excel.Workbooks.Open(r"C:\Data\MyData.xlsm")
ws = wb.Worksheets("Sheet1")
# 读取数据
data = ws.Range("A1:B10").Value
# 处理逻辑...
wb.Save()
wb.Close()
excel.Quit()

3. pandas #

配合openpyxl/xlrd引擎，直接读写Excel文件，适合纯数据处理场景，只要确保文件未被Excel锁定即可：

import pandas as pd
# 读取xlsm文件
df = pd.read_excel(r"C:\Data\MyData.xlsm", sheet_name="Sheet1")
# 数据分析逻辑...
# 保存结果
df.to_excel(r"C:\Data\Result.xlsx", index=False)

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