VB借助EXCEL實(shí)現(xiàn)表格設(shè)計(jì).doc

VB借助EXCEL實(shí)現(xiàn)表格設(shè)計(jì).doc

ID:50138699

大小:21.00 KB

頁數(shù):2頁

時(shí)間:2020-03-04

VB借助EXCEL實(shí)現(xiàn)表格設(shè)計(jì).doc_第1頁
VB借助EXCEL實(shí)現(xiàn)表格設(shè)計(jì).doc_第2頁
資源描述:

《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"

當(dāng)前文檔最多預(yù)覽五頁,下載文檔查看全文

此文檔下載收益歸作者所有

當(dāng)前文檔最多預(yù)覽五頁,下載文檔查看全文
溫馨提示:
1. 部分包含數(shù)學(xué)公式或PPT動畫的文件,查看預(yù)覽時(shí)可能會顯示錯(cuò)亂或異常,文件下載后無此問題,請放心下載。
2. 本文檔由用戶上傳,版權(quán)歸屬用戶,天天文庫負(fù)責(zé)整理代發(fā)布。如果您對本文檔版權(quán)有爭議請及時(shí)聯(lián)系客服。
3. 下載前請仔細(xì)閱讀文檔內(nèi)容,確認(rèn)文檔內(nèi)容符合您的需求后進(jìn)行下載,若出現(xiàn)內(nèi)容與標(biāo)題不符可向本站投訴處理。
4. 下載文檔時(shí)可能由于網(wǎng)絡(luò)波動等原因無法下載或下載錯(cuò)誤,付費(fèi)完成后未能成功下載的用戶請聯(lián)系客服處理。