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

1、在VB中要想調(diào)用Excel,需要翻開VB編程環(huán)境“工程菜單中的“引用工程,并選取工程中的"Microsoft Excel 11.0 object library 項(xiàng).由于你的 Excel版本不同,所以這個選項(xiàng) 的版本號也是不同的.由于EXCEL是以層次結(jié)構(gòu)組織對象的,其對象模型中含有許多不同的對象元素.第一層：Application對象,即 Excel本身；第二層：workbooks對象集,指 Excel的工作簿文件第三層：worksheets對象集,表示的是 Excel的一個工作表；第四層：Cells和Range對象,指向 Excel工作表中的單元格.新建立一個 VB的工程,先放一

2、個 button,名稱為Excel_Out.先定義好各層：Dim xlapp As Excel.Application 'Excel 對象Dim xlbook As Excel.Workbook '工作簿Dim xlsheet As Excel.Worksheet '工作表我們打算做的是：翻開/新建一個excel,在其中對某工作表的一些單元格修改其值,然 后另存為test.xls文件.Private Sub Excel_Out_Click()Dim i, j As IntegerSet xlapp = CreateObject("Excel.Applicati

3、on")'創(chuàng)立 EXCEL 對象'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 啟動宏'xlbook.RunAutoMacros (xlAutoClose)'運(yùn)行 EXCEL 關(guān)閉宏xlapp.Visibl

4、e = True '設(shè)置EXCEL對象可見(或不可見)Set xlsheet = xlbook.Worksheets(1)'設(shè)置活開工作表''當(dāng)前工作簿的第一頁,這里也可以換成“表名下面就是簡單的在一些單元格內(nèi)寫入數(shù)字For i = 7 To 15Forj = 1 To 10xlsheet.Cells(i, j) = j'當(dāng)前工作簿第一頁的第I行第J列Next jNext iWith xlsheet'設(shè)置邊框?yàn)槭菍?shí)線.Range(.Cells(7, 1), .Cells(28, 29).Borders.LineStyle = xlContinuo

5、usEnd With引用當(dāng)前工作簿的第二頁Set xlsheet = xlapp.Application.Worksheets(2)xlsheet.Cells(7, 2) = 2021'在第二頁的第 7 行第 2 列寫入 2021xlsheet.SaveAs App.Path & "test.xls"'按指定文件名存盤'Set xlbook = xlapp.Application.Workbooks.Add '新建一空白工作簿xlapp.Quit '結(jié)束 EXCEL 對象'xlapp.Workbooks.CloseSe

6、t xlapp = Nothing '釋放 xlApp 對象End Sub這樣,我們就可以簡單的對excel文件進(jìn)行操作了.下面再放一些我從網(wǎng)上查到的資料吧,還挺有用的：1 .創(chuàng)立Excel對象eole=CREATEOBJECT( ' Excel.application ')2 .添加新工作簿eole.Workbooks.add3 .設(shè)置第3個工作表為激活工作表eole.Worksheets( sheet3 ).Activate4 .翻開指定工作簿eole.Workbooks.Open( c:templl.xls )5 .顯示Excel窗口eole.visible=.t

7、.6 .更改Excel標(biāo)題欄eole.Caption= VB 應(yīng)用程序調(diào)用 Microsoft Excel 7 .給單元格賦值eole.cells(1,4).value=XM(XM 為數(shù)據(jù)庫字段名)8 .設(shè)置指定列的寬度(單位：字符個數(shù))eole.ActiveSheet.Columns(1).ColumnWidth=59 .設(shè)置指定行的高度(單位：磅)eole.ActiveSheet.Rows(1).RowHeight回/0.035(設(shè)定行高為1厘米,1磅=0.035厘米)10 .在第18行之前插入分頁符eole.Worksheets( Sheet1 ).Rows(18).PageBreak=

8、111 .在第4列之前刪除分頁符eole.ActiveSheet.Columns(4).PageBreak=012 .指定邊框線寬度(Borders參數(shù)如下)ole.ActiveSheet.Range( b3:d3 ).Borders(2).Weight=313 .設(shè)置四個邊框線條的類型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.PageS

9、etup.CenterHeader= 報(bào)表 1 15 .設(shè)置頁腳eole.ActiveSheet.PageSetup.CenterFooter= 第& P 頁16 .設(shè)置頁眉到頂端邊距為2厘米eole.ActiveSheet.PageSetup.HeaderMargin=2/0.03517 .設(shè)置頁腳到底邊距為3厘米eole.ActiveSheet.PageSetup.FooterMargin=3/0.03518 .設(shè)置頂邊距為 2厘米eole.ActiveSheet.PageSetup.TopMargin=2/0.03519 .設(shè)置底邊距為 4厘米eole.ActiveSheet.P

10、ageSetup.BottomMargin=4/0.03520 .設(shè)置左邊距為2厘米veole.ActiveSheet.PageSetup.LeftMargin=2/0.03521 .設(shè)置右邊距為2厘米eole.ActiveSheet.PageSetup.RightMargin=2/0.03522 .設(shè)置頁面水平居中eole.ActiveSheet.PageSetup.CenterHorizontally=.t.23 .設(shè)置頁面垂直居中eole.ActiveSheet.PageSetup.CenterVertically=.t.24 .設(shè)置頁面紙張大小(1窄行851139寬行1411)eole

11、.ActiveSheet.PageSetup.PaperSize=125 .打印單元格網(wǎng)線eole.ActiveSheet.PageSetup.PrintGridlines=.t.26 .拷貝整個工作表eole.ActiveSheet.UsedRange.Copy27 .拷貝指定區(qū)域eole.ActiveSheet.Range( A1:E2 ).Copy28 .粘貼eole.WorkSheet( Sheet2).Range( A1 ).PasteSpecial29 .在第2行之前插入一行eole.ActiveSheet.Rows(2).Insert30 .在第2列之前插入一列eole.Acti

12、veSheet.Columns(2).Insert31 .設(shè)置字體eole.ActiveSheet.Cells(2,1).Font.Name= 黑體32 .設(shè)置字體大小eole.ActiveSheet.Cells(1,1).Font.Size=2533 .設(shè)置字體為斜體eole.ActiveSheet.Cells(1,1).Font.Italic=.t.34 .設(shè)置整列字體為粗體eole.ActiveSheet.Columns(1).Font.Bold=.t.35 .去除單元格公式eole.ActiveSheet.Cells(1,4).ClearContents36 .打印預(yù)覽工作表eole.ActiveShee