VB代码实现控制EXCEL文字格式化的方法

VB代码实现控制EXCEL文字格式化的方法

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对象

VB问题限制文本框只能输入10个字符并且每输入两个字符就自动

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中文网其他相关文章！