【よく分かる】xlwings でExcelマクロを実行しよう by Python

2024年12月29日

当ページのリンクには広告が含まれています。

xlwingsを使えば、PytonからExcelブックを編集することが可能ですが、文字色や背景色、罫線などの属性をプログラムから設定するのは面倒です。

対策としては、Excel側でレイアウトを作成し、それをテンプレートとしてPythonからデータを流し込むという方法がよく使われます。

まれにですが、データを流し込む前後にExcelのマクロを実行したいことが発生します。

例えば、マクロが含まれているExcelブックがあって、そのマクロを流用したいとか、xlwings では記述が複雑なため、マクロ側で処理した方が都合が良いといった場合です。

ということで、今回は xlwings でマクロを実行する方法について解説します。
xlwings で Excelを読み書きしたり、グラフを描画したい方は、下記の記事をご覧ください。

Excelマクロを呼び出す手順

サンプルプログラム

シート上のグラフを jpg 出力するマクロを、Pythonから呼び出す場合を例に具体的なコードを紹介していきます。

Excelマクロは、 "SaveChart"　という名前が付けられており、マクロへの引数としてイメージ保存用のフォルダを渡す仕様になっています。

Python側のソースコード

xw.app(visible=False) と記述することで、Excelアプリケーションを非表示にして起動しています。

また、マクロを呼び出す際の引数に　"d:\\" と記述していますが、これはマクロ側（VBA側）が￥文字を特殊文字として扱う仕様であるため、エスケープする必要があるからです。

マクロにファイル名、フォルダ、パス等を渡す場合は、この点にご注意ください。

import xlwings as xw

#マクロの実行
excel = xw.App(visible=False)
wb = excel.books.open('d:/scatter.xlsm')
macro= wb.macro('SaveChart')
macro('d:\\')
wb.close()
excel.quit()

Excel側のコード

Pythonから呼び出されるマクロは以下の通りです。

引数で渡されたフォルダに対して、グラフのタイトルと拡張子(jpg) を付加してパスを作成し、ファイル出力（Export）するようになっています。

Option Explicit

Sub SaveChart(folder As String)
    Dim i As Integer
    Dim title As String
    
    'シート内のグラフを全て取り出してファイル出力する
    For i = 1 To ActiveSheet.ChartObjects.Count
        title = ActiveSheet.ChartObjects(i).Chart.ChartTitle.Text
        ActiveSheet.ChartObjects(i).Chart.Export (folder & title & ".jpg")
    Next
    
End Sub

このマクロが搭載されているシートは次の様になっています。