Function 用于将openoffice注释复制到单元格的函数

我正在尝试将电子表格数据导入CMS，但在4000多行电子表格中，有大约100条关于不同单元格的注释，我们也想导入。是否有将注释内容复制到单元格中的函数或宏？（不是作为注释，而是纯文本）

中提供了一个方法

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

因此，您有注释（注释）及其单元格

现在你必须决定你想用它做什么。正如我在评论中已经说过的，在我看来，简单地将注释附加到单元格内容并不是一个好主意。这可能会使单元格内容无法读取以进行进一步处理。

请更具体一些。“…将评论内容复制到单元格中？”复制到哪个单元格中？注释的同一单元格？那么单元格内容呢？评论是否应简单地附加到内容中？那么数字单元格内容呢？在该操作之后，该内容将不是数字。