資源描述:
《VB借助EXCEL實(shí)現(xiàn)表格設(shè)計(jì).doc》由會員上傳分享,免費(fèi)在線閱讀,更多相關(guān)內(nèi)容在行業(yè)資料-天天文庫。
1、1、定義EXCEL對象變量dimxasexcel.application2、VB中,啟動EXCELsetx=createobject("excel.application")3、新建一個(gè)EXCEL工作簿x.workbooks.add4、選定工作表1setxsheet=xbook.worksheets(1)5、指定單元格,并賦值xsheet.cell(1,1)=ret.fields(0)6、指定EXCEL列寬xsheet.column(1).columnwidth=107、RANGE()函數(shù),選定單元格區(qū)域range(cells(1,
2、1),cells(10,20))8、設(shè)置EXCEL字體xsheet.range(cells(1,1),cells(10,20)).font.name="黑體"9、設(shè)置EXCEL為粗體xsheet.range(cells(1,1),cells(10,20)).fontbold=true10、設(shè)置EXCEL表格邊框xsheet.range(cells(1,1),cells(10,20)).borders.linestyle=xlcontinuous11、運(yùn)行時(shí),顯示EXCEL或隱藏EXCELx.visible=true12、保存工作簿x
3、booksave13、退出EXCELx.quit14、交還控制權(quán)給EXCELsetx=nothing15、打印EXCEL表x.active.window.selectedsheets.printoutcopies=numcopies16、退出EXCEL時(shí),不出現(xiàn)保存提示。x.displayalerts=false17、怎樣運(yùn)用EXCEL公式?x.range("A3").formula="=max(A1,A2)"18、EXCEL代碼獲取技巧打開EXCEL中的工具----宏----錄制新宏,然后進(jìn)行手工操作,結(jié)束后把所錄的宏代碼貼進(jìn)你的
4、VB程序就行。19、合并單元格代碼x.range("A2:A5").inergecells=true20、自動調(diào)整列寬代碼x.column("A:I").autofit'a到I列自動調(diào)整列寬21、文本自動換行代碼x.rows(3).wraptext=true22、設(shè)置字體顏色x.rows(1).font.colorindex=423、打印預(yù)覽代碼x.worksheets.printpreview24、打開EXCEL文件x.workbooks.openfilename:="c:mydocumentsmyvblgxdy.xls"