pythonによるマクロの起動

Question

前提・実現したいこと

pythonから入力した数値を元にエクセル上で計算を行う。
エクセルのシートを開いた状態では入力できないので、エクセルを
閉じた状態で計算を行い、結果を読み取りたいです。

発生している問題・エラーメッセージ

pythonからエクセルに数値を入力し、マクロで計算を実行させようとすると以下のエラーが出ます。

Traceback (most recent call last):
  File "C:\Temp\python\macro_test\macro_test3.py", line 40, in <module>
    app.Application.Run(excel_path + '!test()')
  File "<COMObject <unknown>>", line 8, in Run
  File "C:\Temp\anaconda\lib\site-packages\win32com\client\dynamic.py", line 287, in _ApplyTypes_
    result = self._oleobj_.InvokeTypes(*(dispid, LCID, wFlags, retType, argTypes) + args)
pywintypes.com_error: (-2147352567, '例外が発生しました。', (0, 'Microsoft Excel', "マクロ 'C:\Temp\python\macro_test\Book1.xlsm!test()' を実行できません。このブックでマクロが使用できないか、またはすべてのマクロが無効になっている可能性 があります。", 'xlmain11.chm', 0, -2146827284), None)

該当のソースコード

python3.8.3

import win32com.client
import xlwings
import pprint
import os
import openpyxl
from openpyxl import load_workbook
import sys

cwd = os.getcwd()
file_name = "Book1.xlsm"
excel_path = '%s\%s'%(cwd, file_name)
print("excel_path=", excel_path)
wb = openpyxl.load_workbook(excel_path, keep_vba=True)
print(type(wb))
print(wb.sheetnames)
sheet = wb['Sheet1']
result = sheet.cell(row=2, column=1).value
calc = sheet.cell(row=2, column=2).value
print("result=", result)
print("calc=", calc)
sheet.cell(row=2, column=3, value= 1)
plus = sheet.cell(row=2, column=3).value
print("result=", result)
print("plus=", plus)
wb.save(excel_path)
app = win32com.client.Dispatch('Excel.Application')
app.Visible = False
app.DisplayAlerts = False
macro = app.Workbooks.Open(Filename='%s'%(excel_path))
app.Application.Run(excel_path + '!test()')
calc2 = sheet.cell(row=2, column=2).value
print("calc2=", calc2)
macro.SaveAs(excel_path)
macro.Close()
Excel.Application.Quit()

マクロ

Sub test()
   Dim result As Single
   Dim calc As Single
   Dim i As Single
   result = Cells(2, 1).Value
   i = Cells(2, 3).Value
   calc = result + i
   Cells(2, 2) = calc
End Sub

試したこと

pythonで上記のコードを使ってエクセルに数値を入力することはできましたが、
エクセルを閉じた状態ではマクロを有効にできないのでエラーが出ます。

補足情報（FW/ツールのバージョンなど）

python3.8.3

Answer 1

COM (オートメーション) でエクセルのマクロを実行する場合、Run("ファイル名!マクロ名") となりますが、ファル名にはパスはいらなかったと思います。
また、マクロ名 に "()" も必要無いです。

- app.Application.Run(excel_path + '!test()')
---
+ app.Application.Run(file_name + '!test')

とすれば、当方の環境 (Windows10, Python 3.8.7) でマクロを実行できました。

余談ですが、Excelも未定義のエラーになりますね。

- Excel.Application.Quit()
---
+ app.Application.Quit()

でしょうか。

Comments

[jetfly]

ありがとうございます。エラー無く処理を行うことができました。