vb調(diào)用excel方法大全

1、在 vb 中要想調(diào)用excel，需要打開vb 編程環(huán)境“工程”菜單中的“引用”項(xiàng)目，并選取項(xiàng)目中的“ microsoft excel 11.0 object library”項(xiàng)。由于你的excel 版本不同，所以這個(gè)選項(xiàng)的版本號(hào)也是不同的。因?yàn)?excel 是以層次結(jié)構(gòu)組織對(duì)象的，其對(duì)象模型中含有許多不同的對(duì)象元素。第一層： application 對(duì)象，即excel 本身；第二層： workbooks 對(duì)象集，指excel 的工作簿文件第三層： worksheets 對(duì)象集，表示的是excel 的一個(gè)工作表；第四層： cells 和 range對(duì)象，指向excel 工作表中的單元格。新建立一

2、個(gè)vb 的工程，先放一個(gè)button，名稱為excel_out。先定義好各層：dim xlapp as excel.application excel對(duì)象dim xlbook as excel.workbook 工作簿dim xlsheet as excel.worksheet 工作表我們打算做的是：打開/新建一個(gè)excel，在其中對(duì)某工作表的一些單元格修改其值，然后另存為test.xls 文件。private sub excel_out_click() dim i, j as integer set xlapp = createobject(excel.application) 創(chuàng)建 exc

3、el 對(duì)象set xlbook = xlapp.workbooks.open(app.path & test.xls) 打開已經(jīng)存在的test.xls 工件簿文件set xlbook = xlapp.workbooks.add 新建 excel 工件簿文件xlbook.runautomacros (xlautoopen) 運(yùn)行 excel 啟動(dòng)宏xlbook.runautomacros (xlautoclose) 運(yùn)行 excel 關(guān)閉宏xlapp.visible = true 設(shè)置 excel 對(duì)象可見（或不可見）set xlsheet = xlbook.worksheets(1)

4、設(shè)置活動(dòng)工作表 當(dāng)前工作簿的第一頁,這里也可以換成“表名”下面就是簡單的在一些單元格內(nèi)寫入數(shù)字for i = 7 to 15 for j = 1 to 10 xlsheet.cells(i, j) = j 當(dāng)前工作簿第一頁的第i 行第 j列next j next i with xlsheet 設(shè)置邊框?yàn)槭菍?shí)線.range(.cells(7, 1), .cells(28, 29).borders.linestyle = xlcontinuous end with 引用當(dāng)前工作簿的第二頁set xlsheet = xlapp.application.worksheets(2) xlsheet.ce

5、lls(7, 2) = 2008 在第二頁的第7 行第 2列寫入 2008 xlsheet.saveas app.path & test.xls 按指定文件名存盤set xlbook = xlapp.application.workbooks.add 新建一空白工作簿xlapp.quit 結(jié)束 excel 對(duì)象 xlapp.workbooks.close set xlapp = nothing 釋放 xlapp 對(duì)象end sub 這樣，我們就可以簡單的對(duì)excel 文件進(jìn)行操作了。下面再放一些我從網(wǎng)上查到的資料吧，還挺有用的：1創(chuàng)建 excel 對(duì)象eole=createobject

6、( excel.application ) 2添加新工作簿eole.workbooks.add 3設(shè)置第3 個(gè)工作表為激活工作表eole.worksheets(sheet3).activate 4打開指定工作簿eole.workbooks.open(c:templl.xls ) 5顯示 excel 窗口eole.visible=.t. 6更改 excel 標(biāo)題欄eole.caption=vb 應(yīng)用程序調(diào)用microsoft excel7給單元格賦值eole.cells(1,4).value=xm(xm為數(shù)據(jù)庫字段名) 8設(shè)置指定列的寬度(單位：字符個(gè)數(shù)) eole.activesheet.co

7、lumns(1).columnwidth=5 9設(shè)置指定行的高度(單位：磅 ) eole.activesheet.rows(1).rowheight=1/0.035 (設(shè)定行高為1 厘米， 1 磅=0.035 厘米 ) 10在第 18 行之前插入分頁符eole.worksheets(sheet1).rows(18).pagebreak=1 11在第 4 列之前刪除分頁符eole.activesheet.columns(4).pagebreak=0 12指定邊框線寬度(borders 參數(shù)如下 ) ole.activesheet.range( b3:d3).borders(2).weight=3

8、 13設(shè)置四個(gè)邊框線條的類型eole.activesheet.range(b3:d3).borders(2).linestyle=1 (其中borders 參數(shù)： 1左、 2右、 3頂、 4底、 5斜、 6斜 /；linestyle 值： 1與 7細(xì)實(shí)、 2細(xì)虛、 4點(diǎn)虛、 9雙細(xì)實(shí)線 ) 14設(shè)置頁眉eole.activesheet.pagesetup.centerheader=報(bào)表 115設(shè)置頁腳eole.activesheet.pagesetup.centerfooter=第 p 頁16設(shè)置頁眉到頂端邊距為2 厘米eole.activesheet.pagesetup.headermarg

9、in=2/0.035 17設(shè)置頁腳到底邊距為3厘米eole.activesheet.pagesetup.footermargin=3/0.035 18設(shè)置頂邊距為2 厘米eole.activesheet.pagesetup.topmargin=2/0.035 19設(shè)置底邊距為4 厘米eole.activesheet.pagesetup.bottommargin=4/0.035 20設(shè)置左邊距為2 厘米veole.activesheet.pagesetup.leftmargin=2/0.035 21設(shè)置右邊距為2 厘米eole.activesheet.pagesetup.rightmargin=

10、2/0.035 22設(shè)置頁面水平居中eole.activesheet.pagesetup.centerhorizontally=.t. 23設(shè)置頁面垂直居中eole.activesheet.pagesetup.centervertically=.t. 24設(shè)置頁面紙張大小(1窄行 8511 39寬行 1411) eole.activesheet.pagesetup.papersize=1 25打印單元格網(wǎng)線eole.activesheet.pagesetup.printgridlines=.t. 26拷貝整個(gè)工作表eole.activesheet.usedrange.copy 27拷貝指定區(qū)域

11、eole.activesheet.range(a1:e2 ).copy 28粘貼eole.worksheet(sheet2).range(a1).pastespecial 29在第 2 行之前插入一行eole.activesheet.rows(2).insert 30在第 2 列之前插入一列eole.activesheet.columns(2).insert 31設(shè)置字體eole.activesheet.cells(2,1).font.name= 黑體32設(shè)置字體大小eole.activesheet.cells(1,1).font.size=25 33設(shè)置字體為斜體eole.activesheet.cells(1,1).font.italic=.t. 34設(shè)置整列字體為粗體eole.activesheet.columns(1).font.bold=.t. 35清除單元格公式eole.activesheet.cells(1,4).clearcontents 36打印預(yù)覽工作表eole.activesheet.p