将openoffice注释复制到单元格的功能

我试图将电子表格数据导入到CMS中，但在我们想要导入的4000+行电子表格的各个单元格上也有大约100条注释。有没有将评论内容复制到单元格中的函数或宏？（不像评论，只是纯文本）将openoffice注释复制到单元格的功能

2017-02-25 Eric Wenger

请更具体。 “...将评论内容复制到单元格中？”进入什么细胞？同一个单元被评论？那么细胞内容呢？该评论只是附加到内容？那么数字单元格内容呢？该行为后，该内容将不是数字。 –

在Openoffice API interface 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

所以，你必须注释（评论）和它们的细胞。

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

来源

2017-02-25 09:54:24

将openoffice注释复制到单元格的功能

回答

相关问题