大家好, 我是 python 初學者, 目前使用 python 正在寫一個 xls2xlsx 程式, 但忽然想到有些 xls 裡有巨集存在, 不知道 python 要如何判斷 xls 裡有巨集?? 若 xls 有巨集則自動轉存成 xlsm

目前我是使用 win32com
我曾參考過這個文章 (Python win32com模块操作Excel：VBA模块读写)

會出現: 不信任以程式設計方式存取 Visual Basic 專案
不知道我錯在哪了

1.我是 office 2007
2.python 3.8.10, 模組全部更新到最新
3.已開啟信任中心的巨集設定: "啟用所有巨集"及勾選"信任存取VBA專案物件模型"

懇請各位幫忙

錯誤訊息:

R->D:\prg_python\test\test.xls
Traceback (most recent call last):
  File "D:\prg_python\xlsVba.py", line 27, in <module>
    vba = wb.VBProject.VBComponents.Count
  File "C:\Users\user\AppData\Roaming\Python\Python38\site-packages\win32com\client\dynamic.py", line 628, in __getattr__
    ret = self._oleobj_.Invoke(retEntry.dispid, 0, invoke_type, 1)
pywintypes.com_error: (-2147352567, '發生例外狀況。', (0, 'Microsoft Office Excel', '不信任以程式設計方式存取 Visual Basic 專案\n', 'C:\\Program Files (x86)\\Microsoft Office\\Office12\\1028\\XLMAIN11.CHM', 0, -2146827284), None)

測試用程式碼如下:

# python 3.8.1
#
# 自動版
#
#
import os
import sys
import win32com.client
from win32com.client import Dispatch
# 搜尋條件
import fnmatch

readDir =r"D:\prg_python\test"
writeDir = readDir
fileType = ["*.xls"]
xlsFile = "test.xls"

readFile = readDir + "\\" + xlsFile
w = win32com.client.Dispatch('Excel.Application')
w.Visible = 0
w.DisplayAlerts = 0
origin_val = w.Application.AutomationSecurity
w.Application.AutomationSecurity = 1
print("R->" + readFile )
wb = w.Workbooks.Open(readFile)       
vba = 0                   
vba = wb.VBProject.VBComponents.Count

if vba == 0:
   writeFile = readFile + "x"
   wb.SaveAs(writeFile,FileFormat = 51)
   print("W>>"+  writeFile)
else:
   writeFile = readFile + "m"
   wb.SaveAs(writeFile,FileFormat = 52)

wb.Close()
w.Application.AutomationSecurity = origin_val
w.Quit()# 退出
# 刪除舊檔
try:
   if vba == 0:
      os.remove(readFile)
except OSError as e:
   print(e)
else:
   print("File is deleted successfully")
                
sys.exit(0)