以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  EXCEL编程求助!  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=21067)

--  作者:liguichuan
--  发布时间:2012/6/29 14:03:00
--  EXCEL编程求助!

如何设置一个excel单元格的字体呢?在帮助文件里有部分没有举例的代码,怎么引用呀?

 

以下的写法不行哦!

\'\'\'
Dim book As new XLS.Book \'定义工作簿

Dim sheet As XLS.Sheet = book.Sheets(0) \'引用book工作簿的第一个工作表
sheet.Name = "6月份考勤" \'命名工作表的名称
\'-----为单元格赋值-------------------
Dim 行序 As Integer
Dim 列序 As Integer
行序 = 1
列序 = 1
Dim 行号 As Integer = 行序 - 1
Dim 列号 As Integer = 列序 - 1
sheet(行号,列号).Value = "? "
Dim Style As XLS.Style = Book.NewStyle() \'定义新样式
style.F
sheet(行号,列号).Style = style
\'------------------------------------
book.Save("c:\\工作簿.xls")

 

 

 狐爸能否把下面的各个属性给写一行设置的语句呢!

 


图片点击可在新窗口打开查看此主题相关图片如下:其它属性.png
图片点击可在新窗口打开查看

--  作者:狐狸爸爸
--  发布时间:2012/6/29 14:34:00
--  

这里有说明:
http://www.foxtable.com/help/topics/1146.htm


关于字体:

http://www.foxtable.com/help/topics/0494.htm

 

例如:

 

Dim Book As New XLS.Book
Dim Sheet As XLS.Sheet = Book.Sheets(0)
Dim Style As XLS.Style = Book.NewStyle() \'定义新样式
Style.ForeColor = Color.Red \'设置样式的字体颜色
Style.Font = New Font("黑体",12,FontStyle.Underline)
For i As Integer = 0 To 9
    Sheet(i, 0).Value = i
    If i Mod 2 =0 Then \'如果是偶数行
        Sheet(i,0).Style =Style \'设置单元格样式
    End If
Next
Book.Save("c:\\reports\\test.xls")
Dim Proc As New Process
Proc.File = "c:\\reports\\test.xls"
Proc.Start()



 


--  作者:UF
--  发布时间:2012/6/29 17:10:00
--  

foxtable是用VB.NET开发的,自身就支持VBA,如果你想怎么样控制EXCEL。网上搜索点相关VBA或VB的资料,很多的