VB可以读出Excel表的结构吗(每个列的宽度 每个行的高度 那些表格是合并的 等等信息)

[luoyiming]

VB可以读出Excel表的结构吗

不只是读数据，包括 每个列的宽度 每个行的高度 那些表格是合并的

等等 ，这些都弄出来？

还有，在用DAO的Jet引擎访问Excel的时候，合并的表格的数据好象得不到啊

有相关的代码吗？

[gc801]

你说的问题不好解决，如果不再加些附加条件的话，是很难解决这个问题的。
我说一下思路：
1、如果没有指定活动工作表的数量，首先要打开文件后取得工作表的总数量。
2、循环打开每个工作表，做以下内容：
1）、统计总列数（如果你不指定一共有多少列）
2）、统计总行数（同上）
3）、从A1开始，读取每一个单元格，看它是否与同列的B1合并
如果是，再看是否与C1合并，如此循环下去，直到全部列
从A1开始，读取每一个单元格，看它是否与同行的A2合并
如果是，再看是否与A3合并，如此循环下去，直到全部行
循环读取每个单元格。。。。。
4）、将结果输出，再循环读取每个工作表。

所以，你给定的条件太少了。做这个程序难度还是有一点。

如果你给定一些条件会容易得多：
1、最多会有几个工作表
2、最多会有多少行多少列
3、只可能表格的哪些单元格是合并的。

提供你一些函数，用于读取这些信息的
'引用Excel Library
Dim MyExcel As New Excel.Application
Dim MyBook As New Excel.Workbook
Dim MySheet As New Excel.Worksheet
列1宽度=MySheet.Columns(1).ColumnWidth '列1的宽度,长整型
行1高度=MySheet.Rows(1).RowHeight '行1的高度,长整型
是否合并=MySheet.Range(MySheet.Cells(1, 1), MySheet.Cells(1, 2)).MergeCells '布尔型
另外还有其它信息,如对齐方式,单元格颜色,字体,格式等等,可以看VBA For Excel 2002 资料.CHM

[vansoft]

都可以讀到，看你水平夠不夠。

我就是做OFFICE二次開發的。

[gc801]

----------------------------
........................
我就是做OFFICE二次開發的。
----------------------------

失敬失敬.