Foxtable(狐表)用户栏目专家坐堂 → [求助]单元格的批注怎么导出excle?


  共有287人关注过本帖树形打印复制链接

主题:[求助]单元格的批注怎么导出excle?

帅哥哟,离线,有人找我吗?
湛江智
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:一尾狐 帖子:464 积分:3718 威望:0 精华:0 注册:2014/11/26 12:32:00
[求助]单元格的批注怎么导出excle?  发帖心情 Post By:2018/5/17 8:00:00 [只看该作者]

如题

 回到顶部
帅哥,在线噢!
有点甜
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:67123 积分:336713 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2018/5/17 8:51:00 [只看该作者]

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

 


 回到顶部
帅哥哟,离线,有人找我吗?
湛江智
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:一尾狐 帖子:464 积分:3718 威望:0 精华:0 注册:2014/11/26 12:32:00
回复:(有点甜)1、你说的批注指什么? 2、...  发帖心情 Post By:2018/5/17 9:31:00 [只看该作者]

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

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

 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:fxz颜色和批注.foxdb


 回到顶部
帅哥,在线噢!
有点甜
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:67123 积分:336713 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2018/5/17 9:58:00 [只看该作者]

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


 回到顶部
帅哥哟,离线,有人找我吗?
湛江智
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:一尾狐 帖子:464 积分:3718 威望:0 精华:0 注册:2014/11/26 12:32:00
  发帖心情 Post By:2018/5/17 10:13:00 [只看该作者]

可以了,谢谢坛主

 回到顶部