Question

如何用VB代码实现往EXCEL中录入文字时，控制文字的格式

我编写了个程序，往空白的EXCEL中录入文字，但是里面的格式都是默认的，我想在里面设置单元格的属性，设置文字的格式。哪位大侠帮忙解答一下啊。

Answer 1

VB访问EXCEL 先需要在工程中引用Microsoft Excel类型库：
从"工程"菜单中选择"引用"栏；选择Microsoft Excel 11.0 Object Library（EXCEL2003），然后选择"确定"。表示培吵在工程中要引用EXCEL类型模中老库。
然后访问和设置字体的代码如下：
Dim xlApp As Excel.Application
Dim xlBook As Excel.WorkBook
Dim xlSheet As Excel.Worksheet
Dim FileName, SheetName As String
FileName = "d:\data.xls" 'excel工作簿路径和名称
SheetName = "sheet1" '需要设置的工作表名称
Set xlApp = CreateObject("Excel.Application") '创建EXCEL对象
Set xlBook = xlApp.Workbooks.Open(FileName) '打开已经存在的EXCEL工件簿文件
xlApp.Visible = True '设置EXCEL对象可见（或不可见）
Set xlSheet = xlBook.Worksheets(SheetName) '设置活动工作表

With xlSheet.Range("C13:D19").Font '选择设置的区域。
.Name = "隶书" '这些具体的赋值旦升根据自己的需要进行设置。
.FontStyle = "加粗"
.Size = 16
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ColorIndex = xlAutomatic
End With

xlBook.Close (True) '关闭工作簿
xlApp.Quit '结束EXCEL对象
Set xlApp = Nothing '释放xlApp对象