以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  用代码导出EXCEL表，是否有合并单元格的方法  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=128740)
--  作者：13861676007
--  发布时间：2018/12/13 22:59:00
--  用代码导出EXCEL表，是否有合并单元格的方法
请教老师：用代码导出EXCEL表，是否有合并单元格的方法？
--  作者：有点甜
--  发布时间：2018/12/13 23:30:00
--  

参考

 

http://www.foxtable.com/webhelp/scr/0559.htm

 

http://www.foxtable.com/webhelp/scr/1148.htm

 

http://www.foxtable.com/webhelp/scr/1153.htm

 
--  作者：13861676007
--  发布时间：2018/12/14 0:02:00
--  
Dim Book As New XLS.Book
Dim Sheet As XLS.Sheet = Book.Sheets(0)
Dim Style As XLS.Style = Book.NewStyle() \'定义新样式
Sheet.Rows(0).Height = 50 
Sheet.MergeCell(0,0,1,15)
Sheet(0,0).Value = "邮件"
\'sheet(0,0).Style.Font = New Font("宋体", 20, FontStyle.Bold)
Book.Save("d:\\test.xls")
Dim Proc As New Process 
Proc.File = "d:\\test.xls"
Proc.Start()
老师 上述代码中我想将“邮件” 二个字 变成宋体 20 的形态，输入sheet(0,0).Style.Font = New Font("宋体", 20, FontStyle.Bold)，此代码出错，请教如何设置
--  作者：有点甜
--  发布时间：2018/12/14 9:21:00
--  
Dim Book As New XLS.Book
Dim Sheet As XLS.Sheet = Book.Sheets(0)
Dim Style As XLS.Style = Book.NewStyle() \'定义新样式
Sheet.Rows(0).Height = 50
Sheet.MergeCell(0,0,1,15)
Sheet(0,0).Value = "邮件"
style.Font = New Font("宋体", 20, FontStyle.Bold)
sheet(0,0).Style = style
Book.Save("d:\\test.xls")
Dim Proc As New Process
Proc.File = "d:\\test.xls"
Proc.Start()