openpyxlを使用し、エクセルのコメントやメモをコピーして別のファイルに貼り付ける方法

Question

実施していること

２つのエクセルファイルのセルに記入された数値やコメントをopenpyxlを使用して
別の１つのファイルにコピー&ペーストしています。
下記コードであれば、セルの数値はコピー&ペーストできます。

import openpyxl

import_file_path = 'C:\Users\01_test'
export_file_path = 'C:\Users\01_output\2次版_集計済.xlsx'

workbook2 = openpyxl.load_workbook(export_file_path)
worksheet2 = workbook2['sheet1']

for i in range(1,3):
    workbook1 = openpyxl.load_workbook(import_file_path+'\'+'2次版_test_0'+str(i)+ '.xlsx') 
    worksheet1 = workbook1['sheet1']
    for i in range(8,60):
        for j in range(42,153):
            copy = worksheet1_01.cell(row=i,column=j).value
            if copy == None:
                continue
            else:
                worksheet2.cell(row=i,column=j,value=copy)
　　workbook2.save(export_file_path)

困っていること/実施したこと

困っていること：
セルの値はコピー&ペーストできるが、コメントのコピー&ペーストができない。

実施したこと：
コメントのコピー&ペーストのため、

from openpyxl.comments import Comment
・・・
copy_02 = worksheet1_01.cell(row=i,column=j).comment.text
```を挿入

import openpyxl
from openpyxl.comments import Comment

import_file_path = 'C:\Users\01_test'
export_file_path = 'C:\Users\01_output\2次版_集計済.xlsx'

workbook2 = openpyxl.load_workbook(export_file_path)
worksheet2 = workbook2['sheet1']

for i in range(1,3):
workbook1 = openpyxl.load_workbook(import_file_path+''+'2次版_test_0'+str(i)+ '.xlsx')
worksheet1 = workbook1['sheet1']
for i in range(8,60):
for j in range(42,153):
copy_01 = worksheet1_01.cell(row=i,column=j).value
copy_02 = worksheet1_01.cell(row=i,column=j).comment.text
if copy_01 == None:
continue
elif copy_02 == None:
continue
else:
worksheet2.cell(row=i,column=j,value=copy_01,comment=copy_02)
workbook2.save(export_file_path)

結果は、下記の通りでした。
copy_02 = worksheet1_01.cell(row=i,column=j).comment.text
AttributeError: 'NoneType' object has no attribute 'text'

### 実施したいこと
コメントもあわせてコピー&ペーストしたいですが、いろいろ調べてみるものの解決策が見つかりません。
勉強不足で誠に申し訳ありませんが、解決策をアドバイス頂ければありがたいです。

### 環境
Python 3.7  
openpyxl   3.0.4
Anaconda custom (64-bit) 
Excel      office365

Comments

[Daregada]

iとjでループさせる範囲のセルのすべてにコメントが付いているんですか?

[Zhiye]

ご質問ありがとうございます。
すべてにコメントはついていません。このため、コメントのないセルは
copy_02 == None:
continue
で、対応しようと考えています。
（上記の方法は、セルに数値が入っている場合できました）
宜しくお願い致します。

Answer 1

エラーの原因は、「コメントが付いていない場合にはcommentプロパティそのものがNoneになるのに、それを調べる前にcomment.textを読もうとするから」です。実際には、commentプロパティの値をそのままコピーすればよく、comment.textを使う必要はありません。

ほかにも、問題点がいくつかあります。

• 3重のforループで使われる変数名がi, i, jとなっていて、(動作には問題ないが)コードを読むときに混乱する。後の2つは、rowとcolumnにしたほうが読みやすい。
• 提示されたソースのforループの中に、未定義のworksheet1_01が突然出てくる。これはworksheet1の誤り(だよね?)。
• cell(...)のオプション引数としてセルの値を設定することはできるが、コメントを設定することはできない。commentプロパティを使って設定する。
• 末尾のworkbook2.save(export_file_path)は、一番外側のforループが終了した後に書けばいい。
• シート名が「Sheet1」だとエラーになる。コードにsheet1と書いてあり、大文字小文字を区別するため。

内側のforループを以下のように書き換えてください。セルに値だけ書いてある場合、コメントだけ書いてある場合、両方書いてある場合すべてに対応します。

    for row in range(8, 60):
        for column in range(42, 153):
            cell = worksheet1.cell(row=row, column=column)
            if cell.value:
                worksheet2.cell(row=row, column=column, value=cell.value)
            if cell.comment:
                worksheet2.cell(row=row, column=column).comment = cell.comment

補足

最近のExcelで利用できる「スレッド化されたコメント」(名前付きで表示され、返信などが可能)の場合、コピー先のシートにコメント情報はコピーされるものの、スレッド化されたコメントに対応したExcelで開いても、コメントとして表示されない。さらに、Excelで保存操作を行なうと、コメント情報が削除された状態で保存されてしまう。

対策として、古い形式のコメント(スレッド化されたコメントに対応したExcelでは、「メモ」と呼ばれる)を適当なauthor名で作成し、コピー先のシートに書き込むコードを示す。
コメントのテキストに追加される余分な注意書きの行([スレッド化されたコメント」から「コメント:」まで)を正規表現で置換(削除)しているので、コードの先頭付近にimport reを追加すること。

    for row in range(8, 60):
        for column in range(42, 153):
            cell = worksheet1.cell(row=row, column=column)
            if cell.value:
                worksheet2.cell(row=row, column=column, value=cell.value)
            if cell.comment and cell.comment.text:
                comment_text = cell.comment.text
                comment_text = re.sub(r"^[スレッド化されたコメント]$(?:.|\s)+^コメント:$\n {4}", "", comment_text, flags=re.MULTILINE)
                worksheet2.cell(row=row, column=column).comment = Comment(comment_text, "anonymous")

Comments

[Zhiye]

エラーの原因や、プログラムのお作法までもご教示頂き本当にありがとうございました。
Python初心者で勉強不足の私にとっては大変ありがたいです。
未定義の“worksheet1_01”は誤植です。ご迷惑をおかけしました。
ご教示頂いたコードで試したところ、Excel2018以前の“コメント”はコピー&ペーストできたものの、
2018以降（365含む）の“コメント”はコピー&ペーストできませんでした。
新機能の“コメント”のコピー&ペーストをご存じでしたらご教示頂ければありがたいです。
何卒宜しくお願い致します。

[Daregada]

集計済みの文書の中身(zipでまとめられたxmlファイル)を見ると、新しい形式(スレッド化されたコメント)はコピーされていますが、スレッド化されたコメントに対応しているExcelで開いても表示されませんね。そして、上書き保存するとコメント情報が削除されています。

古い形式のコメントに変換するのであればなんとかなるので、回答に補足しておきます。

[Zhiye]

早々にご返信頂きありがとうございました。
Execl365で作成したコメントが、旧コメント（新しいバージョンでいう“メモ”）に変換できました。
非常に勉強になりました。
今後とも宜しくお願い致します。

Answer 2

一個のセルにコメントをつけるサンプルプログラムです。

import openpyxl
from openpyxl.comments import Comment

wb = openpyxl.Workbook()
ws = wb.worksheets[0]
ws.cell(1, 1, value = 42)
ws.cell(1, 1).comment = Comment('Hello SPAM!', 'John')
wb.save('testcomment.xlsx')

これを実行すると、コメントのついたエクセルファイルができていました。

これから考えると、以下で動くと思います。

    for i in range(8,60):
        for j in range(42,153):
            copy_01 = worksheet1_01.cell(row=i,column=j).value
            copy_02 = worksheet1_01.cell(row=i,column=j).comment
            if copy_01 == None:
                continue
            elif copy_02 == None:
                continue
            else:
                worksheet2.cell(row=i,column=j,value=copy_01)
                worksheet2.cell(row=i,column=j).comment=copy_02

Comments

[Zhiye]

早々にご回答頂きありがとうございました。また、サンプルプログラムからどのように変更するかを記載いただき大変勉強になりました。
取り急ぎ、お礼まで。引き続きよろしくお願い致します。