以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  CELL帮助里的怎么用啊[已解决]  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=33561)
--  作者：gsnake
--  发布时间：2013/5/20 22:14:00
--  CELL帮助里的怎么用啊[已解决]

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编辑过]
--  作者：sunsenfeng
--  发布时间：2013/5/20 22:27:00
--  

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

如果是这样

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

    Messagebox.Show(c.Value)

Next

那么你就会体会到Cell对象是什么
--  作者：fjlclxj
--  发布时间：2013/5/20 22:31:00
--  
相当于
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()
--  作者：gsnake
--  发布时间：2013/5/20 22:41:00
--  
不明白你写的什么意思！如果你有时间，来一个简单的例子！
您发得快！我再理解一下
[此贴子已经被作者于2013-5-21 6:20:05编辑过]
--  作者：gsnake
--  发布时间：2013/5/21 6:50:00
--  
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是最小的单位，可以写成红色的那样，好像就明白了