vb操作excel

1、1VB操作操作Excel在工程中引用MicrosoftExcel類型庫(kù)從“工程“菜單中選擇“引用“欄；選擇MicrosoftExcel9.0ObjectLibrary（EXCEL2000），然’后選擇“確定“?！蜷_Excel文件DimxlAppAsExcel.Application定義EXCEL類DimxlBookAsExcel.Wkbook定義工件簿類DimxlsheetAsExcel.Wksheet定義工作表類SetxlApp=C

2、reateObject(“Excel.Application“)創(chuàng)建EXCEL應(yīng)用類SetxlBook=xlApp.Wkbooks.Open(App.Path“銀行導(dǎo)出表.xls“)打開EXCEL工作簿Setxlsheet=xlBook.Wksheets(1)打開EXCEL工作表xlsheet.Activate激活工作表‘對(duì)EXCEL的各項(xiàng)操作‘獲得數(shù)據(jù)的行數(shù)xlsheet.UsedRange.Rows.Count‘在第一列前增加一行x

3、lsheet.Columns(1).‘關(guān)閉Excel文件xlBook.Close(True)關(guān)閉EXCEL工作簿xlApp.Quit關(guān)閉EXCELSetxlApp=Nothing釋放EXCEL對(duì)象VB中操作中操作Excel的一般做法（讀取）的一般做法（讀?。?、定義Excel操作變量DimobjExcelFileAsExcel.ApplicationDimobjWkBookAsExcel.WkbookDimobjImptSheetAsE

4、xcel.Wksheet2、打開Excel進(jìn)程，并打開目標(biāo)Excel文件SetobjExcelFile=NewExcel.ApplicationobjExcelFile.DisplayAlerts=FalseSetobjWkBook=objExcelFile.Wkbooks.Open(strFileName)SetobjImptSheet=objWkBook.Sheets(1)3、獲取Excel有效區(qū)域的行和列數(shù)intLastColNu

5、m=objImptSheet.UsedRange.Columns.CountintLastRowNum=objImptSheet.UsedRange.Rows.Count4、逐行讀取Excel中數(shù)據(jù)由于前兩行為Header部分，所以需要從第三行讀取3xlSheet.Cells(55)=“Neok“xlSheet.PrintOut打印工作表xlBook.Close(True)關(guān)閉工作簿xlApp.Quit結(jié)束EXCEL對(duì)象SetxlApp

6、=Nothing釋放xlApp對(duì)象xlBook.RunAutoMacros(xlAutoOpen)運(yùn)行EXCEL啟動(dòng)宏xlBook.RunAutoMacros(xlAutoClose)運(yùn)行EXCEL關(guān)閉宏啟動(dòng)ExcelDimobjExcelAsExcel.ApplicationSetobjExcel=CreateObject(“Excel.Application“)objExcel.Visible=True設(shè)置EXCEL對(duì)象可見（或不可

7、見）創(chuàng)建有一個(gè)工作表的工作簿DimobjWkBookAsExcel.WkBookobjExcel.SheetsInNewWkbook=1SetobjWkbook=objExcel.Wkbooks.Add打開已經(jīng)存在的EXCEL工件簿文件SetobjWkbook=objExcel.Wkbooks.Open(“文件名“)設(shè)置活動(dòng)工作表DimobjSheetAsExcel.WksheetSetobjSheet=objExcel.Wksheet

8、s(“表名“)給單元格（rowcol）賦值objSheet.Cells(rowcol)=值給合并的單元格賦值，如（A3：A9）objSheet.Range(“A3:A9“)=值運(yùn)行EXCEL宏objWkbook.RunAutoMacros(“宏名“)插入一行objSheet.Rows(“1:1“).Shift:=xlDown保存EXCEL文件objWkbook.Save另存為objWkbook.SaveAs(“文件名“)關(guān)閉工作簿obj