VB中讀寫EXCEL文件

1、XlsSheet.Range(A3:A9) =運行EXCEL宏VB中讀寫EXCEL文件在VB中要想調(diào)用Excel,需要打開VB編程環(huán)境“工程”菜單中的“引用”項目, 并選取項目中的“Microsoft Excel 11.0 object library”項。由于你的Excel版本不同,所以這個選項的版本號可能不同。定義EXCE對象Dim XlsObj As Excel.ApplicationDim XlsBook As Excel.WorkbookDim XlsSheet As Excel.WorksheetExcel對象工作簿工作表。打開或創(chuàng)建EXCELSet XIsObj = Create

2、Object(Excel.Application)創(chuàng)建EXCEL對象XIsObj.Visible = True 設置EXCElM象可見(或不可見)打開已經(jīng)存在的test.xls工件簿文件Set xlbook = xlapp.Workbooks.Open(App.Path & test.xls)創(chuàng)建有一個工作表的工作簿XlsObj.SheetsInNewWorkbook = 1Set XlsBook = XlsObj.Workbooks.Add。設置活動工作表或者Set XlsSheet = XlsObj.Worksheets(1) SetXlsSheet = XlsObj.Worksh

3、eets(代表第1個Sheet給單元格(row,col)賦值XlsSheet.Cells(row, col) =給合并的單元格賦值，如(A3：A9)表名)插入一行XlsSheet.Rows(1:1).Insert Shift:=xlDownXlsBook.RunAutoMacros (宏名)保存EXCEl文件XlsBook.Save另存為XlsBook.SaveAs(文件名)關閉工作簿XlsBook.Close (True)結(jié)束EXCEl對象XlsObj.Quit釋放XlsObj對象Set XlsObj = Nothing如果要求在退出應用程序后EXCEL不提示用戶是否保存已修改的 文件,則可

4、使用如下語句：XlsObj.DisplayAlerts = FalseXlsObj.QuitXlsObj.DisplayAlerts = True網(wǎng)上實例下面就是簡單的在一些單元格內(nèi)寫入數(shù)字For i = 7 To 15For j = 1 To 10 xlsheet.Cells(i, j) = j Next jNext i xlapp.Quit結(jié)束EXCElM象xlapp.Workbooks.CloseSet xlapp = Nothing 釋放xlApp對象End Sub這樣，我們就可以簡單的對excel文件進行操作了。 下面再放一些我從網(wǎng)上查到 的資料吧，還挺有用的：當前工作簿第一頁的第I

5、行第J列1創(chuàng)建Excel對象eole=CREATEOBJECT(Excel.application)2添加新工作簿eole.Workbooks.add3設置第3個工作表為激活工作表eole.Worksheets(sheet3).Activate4打開指定工作簿eole.Workbooks.Open(c:templl.xls) 5顯示Excel eole.visible=.t.6更改Exceleole.Caption=7給單元格賦值eole.cells(1,4).value=XM(XM為數(shù)據(jù)庫字段名) 8設置指定列的寬度(單位：字符個數(shù)) eole.ActiveSheet.Columns(1).

6、ColumnWidth=5 9設置指定行的高度(單位：磅) eole.ActiveSheet.Rows(1).RowHeight=1/0.035(設定行高為1厘米，1磅=0.035厘米) 10在第18行之前插入分頁符eole.Worksheets(Sheet1).Rows(18).pageBreak=1 11在第4列之前刪除分頁符eole.ActiveSheet.Columns(4).pageBreak=012指定邊框線寬度(Borders參數(shù)如下)ole.ActiveSheet.Range(b3:d3).Borders(2).Weight=3 13設置四個邊框線條的類型eole.Active

7、Sheet.Range(其中Borders參數(shù)：1左、2右、3頂、4底、5斜、6斜/；LineStyle值：1與7細實、2細虛、4點虛、9雙細實線)14設置頁眉eole.ActiveSheet.pageSetup.CenterHeader=15設置頁腳eole.ActiveSheet.pageSetup.CenterFooter=16設置頁眉到頂端邊距為2厘米eole.ActiveSheet.pageSetup.HeaderMargin=2/0.035 17設置頁腳到底邊距為3厘米eole.ActiveSheet.pageSetup.FooterMargin=3/0.035 18設置頂邊距為2

8、厘米eole.ActiveSheet.pageSetup.TopMargin=2/0.035 19設置底邊距為4厘米eole.ActiveSheet.pageSetup.BottomMargin=4/0.035 20設置左邊距為2厘米veole.ActiveSheet.pageSetup.LeftMargin=2/0.035窗口標題欄VB應用程序調(diào)用Microsoft Excelb3:d3).Borders(2).LineStyle=1報表1第&p頁21設置右邊距為2厘米eole.ActiveSheet.PageSetup.RightMargin=2/0.035 22設置頁面水平居中e

9、ole.ActiveSheet.PageSetup.CenterHorizontally=.t. 23設置頁面垂直居中eole.ActiveSheet.PageSetup.CenterVertically=.t. 24設置頁面紙張大小(1窄行8 5 11 39寬行14 11) eole.ActiveSheet.PageSetup.PaperSize=1 25打印單元格網(wǎng)線eole.ActiveSheet.PageSetup.PrintGridlines=.t. 26拷貝整個工作表eole.ActiveSheet.UsedRange.Copy 27 拷貝指定區(qū)域eole.ActiveSheet.

10、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設置字體eole.ActiveSheet.Cells(2,1).Font.Name= 32設置字體大小eole.ActiveSheet.Cells(1,1).Font.Size=25 33設置字體為斜體eole.ActiveSheet.Cells(1,1).Font.Italic=.t. 34設置整列字體為粗體eole.ActiveSheet.Columns(1).Font.Bold=.t. 35清除單元格公式eole.ActiveSheet.Cells(1,4).ClearContents 36打印預覽工作表eole.ActiveSheet.PrintPreview 37 打