主题：[分享] Excel查看器（20131014改）

只对2003的Excel,其他没试过。

工作簿不能为空，先保存

 
此主题相关图片如下：jdfw.gif

20131007更新，上个版本少加一个变量释放，产生错误。

20131013更新，修改打开空表（或未保存）时的错误。

20131013再更新，增加对数据的修改功能。（只对数据，不能修改格式。）

20131014更新，消除 实话实说 所说的错误。

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

点击浏览该文件:excel查看器.table

如果只是查看，还是webbrowser好。

因为1、单元格的边框只有4边同时设置，所以Excel的边框反映不出来。

      2、字体过大之后，显示不出来，要调整行高。

     3、同一个单元格只能有一种字体格式，不能完全模仿Excel

我拿这个是想直接用表格定制数据行明细的浏览窗口，可以少用很多控件，界面也会为熟悉Excel界面的人所接受。

QQ在家是不用的，清净

明天上班去加。（密码和账号忘了，只有单位的电脑能上）

            Dim rng As C1.Win.C1FlexGrid.CellRange = tables(表名).Grid.GetCellRange(起始行, 起始列, 终止行, 终止列)
             tables(表名).Grid.MergedRanges.Add(rng)

1、有BUG告诉我好吗,我再改。

2、显示效果：因为单元格边框只能四边同时设定，而单元格只能有一种样式，不用绘制好像没有办法解决。

我这个，是国庆放假闲的没事做的，现在就没时间再玩了。

你说的那个目录树，应该就是狐爸的删选树和加载树，已经很完善了，没必要再做。

C1的方法和属性，用对象浏览器看看，就可以了。

我没有加判断

工作簿为空，会出错，你要先保存工作簿，或加上判断。

能否将出错的表发一份给我，数据你可以随意替换掉。

更新了，你再试试。