如何仅使用Python批量删除Excel文件中的所有超链接

完全可以仅使用Python实现删除Excel文件全量超链接的需求，同时支持多文件批量自动化处理，和你提供的VBA逻辑对齐，不需要手动打开文件执行宏。下面提供两种经过验证的可落地方案，按需选择即可。

运行代码前请关闭所有待处理的Excel文件，避免文件锁定导致保存失败；首次使用建议不要覆盖原文件，确认处理效果符合预期后再替换源文件。

方案1：基于openpyxl（跨平台，无需安装Office） #

该方案不依赖本地Microsoft Office环境，支持Windows/macOS/Linux全平台运行，适合处理.xlsx/.xlsm格式文件，处理速度快。

• 先安装依赖库

  pip install openpyxl
  

• 可直接运行的实现代码

  import os
  from openpyxl import load_workbook
  
  def process_single_file(file_path: str, output_path: str = None):
      # 加载工作簿，保留原有VBA代码、单元格格式
      wb = load_workbook(file_path, keep_vba=True)
      # 遍历所有工作表，和VBA逻辑一致
      for ws in wb.worksheets:
          # 清除所有单元格超链接，保留单元格原有显示文本
          for row in ws.iter_rows():
              for cell in row:
                  cell.hyperlink = None
          # 清空工作表超链接对象残留
          ws.hyperlinks.clear()
      save_path = output_path if output_path else file_path
      wb.save(save_path)
      wb.close()
      print(f"处理完成：{save_path}")
  
  def batch_process(folder_path: str, cover_original: bool = True):
      """批量处理指定文件夹下所有xlsx/xlsm文件"""
      support_suffix = (".xlsx", ".xlsm")
      for root, _, files in os.walk(folder_path):
          for file in files:
              if file.lower().endswith(support_suffix):
                  full_path = os.path.join(root, file)
                  if cover_original:
                      process_single_file(full_path)
                  else:
                      new_path = os.path.splitext(full_path)[0] + "_移除超链接" + os.path.splitext(full_path)[1]
                      process_single_file(full_path, new_path)
  
  if __name__ == "__main__":
      # 示例：批量处理当前脚本所在文件夹下的所有Excel文件，不覆盖原文件
      batch_process(folder_path="./", cover_original=False)
  

• 方案限制：不支持.xls格式的旧版Excel文件，有这类文件需求请使用方案2。

方案2：基于pywin32（和VBA逻辑完全一致，全格式兼容） #

该方案通过Python调用本地Excel组件执行操作，逻辑和你提供的VBA代码100%对齐，不会出现格式错乱、内容丢失问题，支持.xls/.xlsx/.xlsm等所有Excel格式，仅支持Windows系统，要求本地安装Microsoft Excel。

• 先安装依赖库

  pip install pywin32
  

• 可直接运行的实现代码

  import os
  import win32com.client as win32
  
  def process_single_file(file_path: str, output_path: str = None, excel_app = None):
      own_app = False
      if not excel_app:
          excel_app = win32.gencache.EnsureDispatch("Excel.Application")
          excel_app.Visible = False
          excel_app.DisplayAlerts = False
          own_app = True
      try:
          abs_path = os.path.abspath(file_path)
          wb = excel_app.Workbooks.Open(abs_path)
          # 完全复刻VBA删除超链接逻辑
          for ws in wb.Worksheets:
              ws.Hyperlinks.Delete()
          save_path = os.path.abspath(output_path) if output_path else abs_path
          if save_path == abs_path:
              wb.Save()
          else:
              wb.SaveAs(save_path)
          wb.Close()
          print(f"处理完成：{save_path}")
      except Exception as e:
          print(f"处理{file_path}失败：{str(e)}")
      finally:
          if own_app:
              excel_app.Quit()
  
  def batch_process(folder_path: str, cover_original: bool = True):
      """批量处理指定文件夹下所有xls/xlsx/xlsm文件"""
      support_suffix = (".xls", ".xlsx", ".xlsm")
      # 批量处理时复用同一个Excel进程，大幅提升速度
      excel_app = win32.gencache.EnsureDispatch("Excel.Application")
      excel_app.Visible = False
      excel_app.DisplayAlerts = False
      try:
          for root, _, files in os.walk(folder_path):
              for file in files:
                  if file.lower().endswith(support_suffix):
                      full_path = os.path.join(root, file)
                      if cover_original:
                          process_single_file(full_path, excel_app=excel_app)
                      else:
                          new_path = os.path.splitext(full_path)[0] + "_移除超链接" + os.path.splitext(full_path)[1]
                          process_single_file(full_path, new_path, excel_app)
      finally:
          excel_app.Quit()
  
  if __name__ == "__main__":
      # 示例：批量处理当前脚本所在文件夹下的所有Excel文件，不覆盖原文件
      batch_process(folder_path="./", cover_original=False)
  

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