CELL帮助里的怎么用啊[已解决] - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Dim Book As New XLS.Book
Dim Sheet As XLS.Sheet = Book.Sheets(0)
Dim Cell As XLS.CEll = Sheet(1,2)

cell 是什么啊？

下面介绍CELL的属性,按常理！！

应该是 cell.value cell.text 或 cell（0，0).value 之类的可是下面的示例一个cell也没有？？

实在不明白了？？？高手解释一下为什么要这样？？我没找到帮助里有更详细的解释啊

Cell的属性有：

Value
返回或设置单元格的值。
　
Formula
返回或设置单元格公式。
　
Text
只读属性，返回单元格的文本内容。
Style
设置单元格的样式。行、列、单元格都可以设置样式，优先顺序是：单元格>行>列
Hyperlink
字符型，设置单元格的超链接。
可以是某个网页，例如“http://www.egrid20000.com”，也可以发送邮件，例如“mailto:joe@foo.com”，还可以指向某个文件，例如“c:\readme.doc”

Cell的方法有：

Save
将单元格中的图片保存为文件。

示例：

Dim Book As New XLS.Book() '定义一个Excel工作簿
Dim Sheet As XLS.Sheet = Book.Sheets(0) '引用工作簿的第一个工作表
Dim Style As XLS.Style = Book.NewStyle() '定义新样式
Style.ForeColor = Color.Red '设置样式的字体颜色
Sheet(0,0).Style = Style
Sheet(0,0).Value = "邮件"
Sheet(0,0).Hyperlink = "Mailto:zjtdr@21cn.net"
Sheet(1,0).Formula = "=1+3"
Book.Save("c:\reports\test.xls")
Dim Proc As New Process
Proc.File = "c:\reports\test.xls"
Proc.Start()

[此贴子已经被作者于2013-5-22 9:42:07编辑过]

Cell就是单元格，为什么不是Cell.Value，而是Sheet(n,n)的调用对单个单元格而言，直接调用方便

如果是这样

For Each c As XLS.Cell in .Range("A1:A10")

Messagebox.Show(c.Value)

那么你就会体会到Cell对象是什么

相当于

Dim Book As New XLS.Book() '定义一个Excel工作簿

Dim Sheet As XLS.Sheet = Book.Sheets(0) '引用工作簿的第一个工作表

Dim Style As XLS.Style = Book.NewStyle() '定义新样式

Style.ForeColor = Color.Red '设置样式的字体颜色

Dim Cell As XLS.CEll

cell=Sheet(0,0) : cell.Style = Style

cell=Sheet(0,0) : cell.Value = "邮件"

cell=Sheet(0,0) : cell.Hyperlink = "Mailto:zjtdr@21cn.net"

cell=Sheet(1,0) : cell.Formula = "=1+3"

Book.Save("c:\reports\test.xls")

Dim Proc As New Process

Proc.File = "c:\reports\test.xls"

Proc.Start()

不明白你写的什么意思！如果你有时间，来一个简单的例子！

您发得快！我再理解一下

[此贴子已经被作者于2013-5-21 6:20:05编辑过]

Dim Book As New XLS.Book() '定义一个Excel工作簿

Dim Sheet As XLS.Sheet = Book.Sheets(0) '引用工作簿的第一个工作表

Dim Style As XLS.Style = Book.NewStyle() '定义新样式

Style.ForeColor = Color.Red '设置样式的字体颜色

Dim Cell As XLS.CEll

cell=Sheet(0,0) : cell.Style = Style : cell.Value = "111邮件" : cell.Hyperlink = "Mailto:zjtdr@21cn.net"

cell=Sheet(1,0) : cell.Style = Style : cell.Formula = "=1+3"

Book.Save("test1.xls")

Dim Proc As New Process

Proc.File = "test1.xls"

Proc.Start()

cell是最小的单位，可以写成红色的那样，好像就明白了

主题：CELL帮助里的怎么用啊[已解决]