openofficeコメントをセルにコピーする機能

Question

スプレッドシートのデータをCMSにインポートしようとしていますが、インポートする4000以上の行スプレッドシートのさまざまなセルに約100件のコメントがあります。コメントコンテンツをセルにコピーする関数またはマクロはありますか？ （コメントではなくプレーンテキストと同じように）

Answer 1

Openoffice APIinterface XSheetAnnotationsSupplierは、getAnnotationsの方法を提供します。これを使用すると、すべてのシートアノテーションをその位置とともに取得することができます。位置は、アノテーションが配置されているセルのアドレスです。

sub getAnnotations() 

oThisWorkbook = ThisComponent 
oActiveSheet = oThisWorkbook.CurrentController.ActiveSheet 

oAnnotations = oActiveSheet.Annotations 

for each oAnnotation in oAnnotations 
    lColumn = oAnnotation.Position.Column 
    lRow = oAnnotation.Position.Row 
    sText = oAnnotation.String 

    oCell = oActiveSheet.getCellByPosition(lColumn, lRow) 

    msgbox oCell.AbsoluteName & " has annotation: " & sText 
next 

end sub 

アノテーション（コメント）とそのセルがあります。

これで何をしたいのかを決める必要があります。私のコメントですでに述べたように、セルの内容に注釈を単に追加するだけでは、私の意見では良い考えではありません。これにより、さらなる処理のためにセル内容が判読不能になる可能性があります。