>>> import pyExcelerator
>>> sheets = pyExcelerator.parse_xls('foo1.xls')
>>> sheets
[(u'test1', {(0, 1): u'B1', (0, 0): u'A1', (2, 1): 20, (2, 0): 10, (2, 2): 30.0, (1, 0): u'A2', (1, 1): u'B2', (4, 0): u'A5'}), (u'test2', {(0, 1): u'\u307f\u304b\u3093', (0, 0): u'\u308a\u3093\u3054', (0, 2): u'\u3070\u306a\u306a'})]

#!/usr/bin/env python
# -*- coding: utf-8 -*-
import pyExcelerator

sheets = pyExcelerator.parse_xls('foo1.xls')
for sheet_name, values in sheets:
    print 'sheet =', sheet_name
    print '------------'
    for row_idx, col_idx in sorted(values.keys()):
        v=values[row_idx,col_idx]
        print row_idx,col_idx,v

>>> 
sheet = test1
------------
0 0 A1
0 1 B1
1 0 A2
1 1 B2
2 0 10
2 1 20
2 2 30.0
4 0 A5
sheet = test2
------------
0 0 りんご
0 1 みかん
0 2 ばなな

大変お手軽なのですが、A1セルとA2セルの値の合計をA3セルに書き込むというような場合はどうすればいいんでしょうか？

srcディレクトリにあるファイルをdestディレクトリにコピーします。

既にdestディレクトリに存在する場合は、最終更新日を確認して一致すれば上書きはしません。

import os,string,shutil

srcdir='C:\Documents and Settings\seko\デスクトップ\src'
destdir='C:\Documents and Settings\seko\デスクトップ\dest'

srcfilelist=os.listdir(srcdir)
srcdict={}
for i in srcfilelist:
    srcdict[i]=os.path.getmtime(os.path.join(srcdir,i))

destfilelist=os.listdir(destdir)
destdict={}
for i in destfilelist:
    destdict[i]=os.path.getmtime(os.path.join(destdir,i))

for i in srcfilelist:
    if i in destfilelist and srcdict[i]==destdict[i]:
        print i,'alredy exist'
    else:
        shutil.copy2 (os.path.join(os.path.normpath(srcdir),i),os.path.join(os.path.normpath(destdir),i))

古川 順平 (著)  仕事に役立つExcelデータベース

一年ぶりくらいにＥＸＣＥＬのマクロを書かされていて、気が狂いそうだ。

どんなふうにオブジェクトを定義したらいいかとか、繰り返しはどうするのかとか、そんな簡単なことがわからない。調べようとしても調べにくいし、一貫性がないような気がする。

美しさにかけるものを使うのは本当に辛くて、肩こりが急激に悪化して息をするのも辛い有様だ。

ところで、EXCELの本の多くは、手動の操作に関する本が多いし、マクロについても見た目を整えるようなものが多いような気がする。

ひとつの使い方として、テーブルを定義してデータベースのように、キーでつき合わせたりすると大変便利なのだが、そういう時に、この本はとても役に立つ。でも、VBAのことはあまり書いてないので、これ一冊というわけにはいかず、別の本も必要。

• Windowsマシン
• Python
• Win32COM
• EXCEL

pythonからNotesのデータが取れるのであれば、EXCELからも当然取れるということにふと気づく。次の例はsheet1に取りたいフィールド名を書いておくと、sheet2にデータが取れるというものである。

実際に使う場合は、EXCELの範囲に名前を付けておき、一行目にフィールド名を書くようにして、列の追加や削除が合った場合でもプログラムの変更が必要ないようにしておくと良い。そうしておけば、ユーザがEXCELの機能だけを使って、フィールドの追加、削除をすれば、ほしいデータが取れるようになる。また、NOTESへのリンクをお尻につけているので、EXCEL上のリンクをダブルクリックするとNOTESに飛ぶこともできる。

Sub getSubject()

    Dim nSs As Object, nDb As Object

    Dim nDocs As Object, nDoc As Object

    

    Application.Visible = True

    DBServer = "CN=hoge/O=hoge"  'Server name

    DBFile = "hoge.nsf"  'Database name

    Set nSs = CreateObject("Notes.NotesSession")

    Set nDb = nSs.GetDataBase(DBServer, DBFile)

    Set nDocs = nDb.GetView("hoge")  'select View

    N = nDocs.EntryCount

    Set nDoc = nDocs.GetFirstDocument

  

    For i = 1 To N

        For j = 1 To 5

            field = Sheet1.Cells(1, j)

            Sheet2.Cells(i, j).Value = nDoc.GetItemValue(field)(0)

        Next

        Sheet2.Cells(i, 6).Value = nDoc.NotesURL

        Set nDoc = nDocs.GetNextDocument(nDoc) ' select next Document

    Next

    

End Sub