如何提取Excel中CommentThreaded的已解决日期？微软API仅提供创建日期

问题概述 #

需要获取Excel中CommentThreaded的已解决日期，但官方文档仅提供创建日期属性；尝试通过导出回复提取“Completed Task”日期作为替代，VBA导出却未捕获到相关记录。

排查与解决思路 #

1. 修正VBA遍历逻辑，覆盖所有评论层级 #

CommentThreaded是层级结构，主评论和回复需分别遍历。如果你的代码只处理了主评论，会漏掉回复中的“Completed Task”标记。试试这段遍历代码：

Sub ExtractThreadedCommentStatus()
    Dim ws As Worksheet
    Dim mainThread As CommentThreaded
    Dim replyCmt As Comment
    
    Set ws = ActiveSheet
    For Each mainThread In ws.CommentsThreaded
        ' 输出主评论基础信息
        Debug.Print "单元格: " & mainThread.Parent.Address
        Debug.Print "主评论创建日期: " & mainThread.CreationDate
        Debug.Print "是否已解决: " & mainThread.Resolved
        
        ' 遍历所有回复
        For Each replyCmt In mainThread.Replies
            Debug.Print "--- 回复内容: " & replyCmt.Text
            Debug.Print "--- 回复创建日期: " & replyCmt.CreationDate
            ' 检查是否包含已解决标记
            If InStr(1, replyCmt.Text, "Completed Task", vbTextCompare) > 0 Then
                Debug.Print "--- 已解决日期候选: " & replyCmt.CreationDate
            End If
        Next replyCmt
    Next mainThread
End Sub

2. 确认“Completed Task”标记的存在性 #

部分Excel版本中，标记评论为“已解决”不会自动生成“Completed Task”文本，仅通过CommentThreaded.Resolved属性（布尔值）标识状态。这种情况下没有原生的已解决日期字段，只能通过主动记录状态变更时间实现：

• 用Worksheet_SelectionChange或Workbook_SheetChange事件监听评论状态变化
• 当CommentThreaded.Resolved从False变为True时，将当前日期写入关联单元格或评论的自定义属性

3. 解析Excel底层XML文件 #

将工作表另存为.xlsm，改后缀为.zip，解压后打开xl/comments1.xml，查看是否存在与评论状态变更相关的时间戳字段。部分版本的Excel会在这里存储隐藏的状态更新信息，可通过VBA解析XML提取该日期。

内容的提问来源于stack exchange，提问作者MzNix