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对象
private sub text1_onchange()
if len(text1.text)>14 '10个字符+4个星号 then text1.text=left(text1.text,14)
netstring=replace(text1.text,"*","") ' 去掉加的星号
while len(netstring)>2 then
display=display & "*" & left(netstring,2)
netstring = mid(netstring,3)
wend
display = display & "*" & left(netstring,2)
text1.text=display
end sub
以上是VB代码实现控制EXCEL文字格式化的方法的详细内容。更多信息请关注PHP中文网其他相关文章!