xlwingsを使うぜ

4910 ワード
python2.7 ExcelVBA xlwings ExcelVBA テキストリンク

まえがき

Excel Advent Calendar 2014
に空きがあったので、
前々からやりたかった「xlwings」の記事を書いた。
ちなみに僕はBlogあるので、Qiitaに何もなかったからいい機会だ。

xlwingsとは？

VBAでマクロなんて書きたくない人用にPythonでマクロが書けるモジュール。

公式サイトはここですね。
xlwings

インストール

pip install xlwings

virtualenvでインストールすると上手く実行できないようだ（多分）。
OSのPythonにインストールした方がいい。

サンプルの実行

ここにクイックスタートが有る。
しかし、僕は少しハマったのでクイックではなくなったが・・。

まず、Excel自体をどこかに保存しておく。
僕はMac OS Xを使ってるので、

/Users/shinriyo/Documentsへ、「ブック1.xlsx」の名前でExcelファイルを保存した。
※日本語でOK！でしたが、怖い人は半角英数字で。

mymodule.py
#!/usr/bin/env python
# -*- coding: utf-8 -*-

import numpy as np
from xlwings import Workbook, Range

def rand_numbers():
    """ produces standard normally distributed random numbers with shape (n,n)"""
    wb = Workbook.caller()  # Creates a reference to the calling Excel file
    n = Range('Sheet1', 'B1').value  # Write desired dimensions into Cell B1
    rand_num = np.random.randn(n, n)
    Range('Sheet1', 'C3').value = rand_num

のように「mymodule.py」を「ブック1.xlsx」と同じ階層に置く。
同じ階層に置くことが重要！（大事なことなので二回言いました。）

/Library/Python/2.7/site-packages/xlwingsにxlwings.basファイルがあるはず。

↓このように。

マクロを作成し、

VBAのコードは

Sub RandomNumbers()
    RunPython ("import mymodule; mymodule.rand_numbers()")
End Sub

そうしましたら、マクロ上でこのようにインポート。

そして、Excel上のB1には任意の数字を記載。

RandomNumbersを実行！

すると先ほどの画像のようになる。
たてよこに5追加される。

Range('Sheet1', 'C3').value = u'日本語'

などで日本語も出来るので実験してみるといい。