有办法读取XLS文件单元格的批注吗？ - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 有办法读取XLS文件单元格的批注吗？

共有3607人关注过本帖树形打印复制链接主题：有办法读取XLS文件单元格的批注吗？

有点甜

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2014/5/14 14:15:00 [显示全部帖子]

可以设置，就肯定可以读取啊。

参考下面的代码，获取第一个单元格的批准

Dim App As New MSExcel.Application
Dim Wb As MSExcel.Workbook = App.WorkBooks.Open("e:\test.xls")
Dim Ws As MSExcel.WorkSheet = Wb.WorkSheets(1)

Dim pz As String = ws.cells(1,1).Comment.Text
msgbox(pz)

app.quit

有点甜

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2014/5/14 15:08:00 [显示全部帖子]

回复3楼，代码你都不会改一改？路径都不改，文件都没有？

Dim App As New MSExcel.Application
Dim Wb As MSExcel.Workbook = App.WorkBooks.Open("e:\test.xls")
Dim Ws As MSExcel.WorkSheet = Wb.WorkSheets(1)

Dim pz As String = ws.cells(1,1).Comment.Text
msgbox(pz)

app.quit

有点甜

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2014/5/14 15:38:00 [显示全部帖子]

回复5楼，我测试没有问题。

你上传一个你测试不成功的例子吧。很简单的一个内容。

有点甜

小大 4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2014/5/14 15:42:00 [显示全部帖子]

我再测试了一下。肯定是你的那个单元格没有标注，所以会出错。

Dim App As New MSExcel.Application
Dim Wb As MSExcel.Workbook = App.WorkBooks.Open("e:\test.xls")
Dim Ws As MSExcel.WorkSheet = Wb.WorkSheets(1)

If ws.cells(100,1).Comment Is Nothing Then
    msgbox("没有标注")
Else
    Dim pz As String = ws.cells(1,1).Comment.Text
    msgbox(pz)
End If

app.quit

主题：有办法读取XLS文件单元格的批注吗？