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.WorksheetDim 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物件
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中文網其他相關文章!