得到EXCEL批注.txt

   Dim I As Integer
        If CurSheet.Comments.Count < 1 Then
            Exit Sub
        End If
        Dim CurRange As Excel.Range
        For I = 1 To CurSheet.Comments.Count
            Dim TempComment As String = ""
            TempComment = CurSheet.Comments.Item(I).Text
            If TempComment.Trim <> "" Then
                CurSheet.Comments.Item(I).Parent.Select()
                CurRange = CurExcel.ActiveCell
                CheckComment(TempComment, CurSheet, CurRange)
            End If
        Next

转载于:https://www.cnblogs.com/sanle/archive/2006/07/04/442675.html