主题：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

这里有说明：
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()

 

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