1、你说的批注指什么？

2、往excel里面添加批注，参考代码

Dim App As New MSExcel.Application
Dim Wb As MSExcel.Workbook = App.WorkBooks.Open("d:\\test.xls")
Dim Ws As MSExcel.WorkSheet = Wb.WorkSheets(1)
Ws.Range("1:5").ClearComments \'清除原有批注
Ws.Range("B2").AddComment("批注测试,20140514添加")  \'B2单元格添加批注,注意批注内容在园括号内
app.visible = True

坛主帮忙看看，想实现导出狐表单元格的批注、颜色到excle表

打勾号、多表头也一并导出

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:fxz颜色和批注.foxdb

Dim t As Table = Tables("表A")
Dim file As String = "d:\\test123.xls"
Dim flg As New SaveExcelFlags
flg.CellStyle = True
t.SaveExcel(file,t.name,flg)

Dim App As New MSExcel.Application
Dim Wb As MSExcel.Workbook = App.WorkBooks.Open(file)
Dim Ws As MSExcel.WorkSheet = Wb.WorkSheets(1)
Dim Rg As MSExcel.Range = Ws.UsedRange
For Each c As Col In t.Cols
    If c.IsBoolean Then
        For i As Integer = t.HeaderRows+1 To rg.Rows.count
            If ws.cells(i, c.Index+1).value = "false" Then
                ws.cells(i, c.Index+1).value = ""
            Else
                ws.cells(i, c.Index+1).value = "√"
            End If
        Next
    End If
Next
rg.ClearComments \'清除原有批注
For Each r As Row In t.Rows
    Dim Beizhu As String = r("批注列")
    If beizhu > "" Then
        Dim BZs() As String
        BZs = Beizhu.split("|")
        For Index As Integer = 0 To BZs.Length - 1
            Dim BZInfo() As String
            BZInfo =  BZs(Index).split(",")
            Ws.cells(r.index+t.HeaderRows+1, t.Cols(bzinfo(0)).Index+1).AddComment(bzinfo(1))  \'B2单元格添加批注,注意批注内容在园括号内Next
        Next
    End If
    Dim bj As String = r("背景列")
    If bj > "" Then
        Dim BZs() As String
        BZs = bj.split("|")
        For Index As Integer = 0 To BZs.Length - 1
            Dim BZInfo() As String
            BZInfo =  BZs(Index).split(",")
            Dim clr As Color = Color.FromARGB(bzinfo(1))
            Ws.cells(r.index+t.HeaderRows+1, t.Cols(bzinfo(0)).Index+1).Interior.Color = RGB(clr.r, clr.g, clr.b)
        Next
    End If
   
Next
app.visible = True

实例发上来测试。