VB操作Excel.doc

《VB操作Excel.doc》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。

1、VB操作Excel在工程中引用MicrosoftExcel类型库从"工程"菜单中选择"引用"栏；选择MicrosoftExcel9.0ObjectLibrary（EXCEL2000），然’后选择"确定"。‘打开Excel文件DimxlAppAsExcel.Application'定义EXCEL类DimxlBookAsExcel.Workbook'定义工件簿类DimxlsheetAsExcel.Worksheet'定义工作表类SetxlApp=CreateObject("Excel.Application")'创建EXCEL应用类SetxlBook=xlApp.Workbooks.Open(Ap

2、p.Path+"银行导出表.xls")'打开EXCEL工作簿Setxlsheet=xlBook.Worksheets(1)'打开EXCEL工作表xlsheet.Activate'激活工作表‘对EXCEL的各项操作‘获得数据的行数xlsheet.UsedRange.Rows.Count‘在第一列前增加一行xlsheet.Columns(1).Insert‘关闭Excel文件xlBook.Close(True)'关闭EXCEL工作簿xlApp.Quit'关闭EXCELSetxlApp=Nothing'释放EXCEL对象VB中操作Excel的一般做法（读取）1、定义Excel操作变量DimobjE

3、xcelFileAsExcel.ApplicationDimobjWorkBookAsExcel.WorkbookDimobjImportSheetAsExcel.Worksheet2、打开Excel进程，并打开目标Excel文件SetobjExcelFile=NewExcel.ApplicationobjExcelFile.DisplayAlerts=FalseSetobjWorkBook=objExcelFile.Workbooks.Open(strFileName)SetobjImportSheet=objWorkBook.Sheets(1)3、获取Excel有效区域的行和列数intLa

4、stColNum=objImportSheet.UsedRange.Columns.CountintLastRowNum=objImportSheet.UsedRange.Rows.Count4、逐行读取Excel中数据由于前两行为Header部分，所以需要从第三行读取12如果第1到第10个单元格的值均为空或空格，则视为空行ForintCountI=3TointLastRowNum''CheckifEmptyDataRowblnNullRow=TrueForintI=1To10IfTrim$(objImportSheet.Cells(intCountI,intI).Value)<>""Then

5、blnNullRow=FalseEndIfNextintI若不是空行，则进行读取动作，否则继续向后遍历Excel中的行IfblnNullRow=FalseThen获取单元格中的数据，做有效性Check，并将合法数据创建为实体存入对象数组中objImportSheet.Cells(intCountI,1).Value……EndIfNextintCountI5、退出Excel进程，并关闭Excel相关操作对象objExcelFile.QuitSetobjWorkBook=NothingSetobjImportSheet=NothingSetobjExcelFile=Nothingvb操作Excel

6、*************一个标准的DimxlAppAsExcel.ApplicationDimxlBookAsExcel.WorkbookDimxlSheetAsExcel.WorksheetSetxlApp=CreateObject("Excel.Application")'创建EXCEL对象SetxlBook=xlApp.Workbooks.Open("d:vbExcel.xls")'打开已经存在的EXCEL工件簿文件xlApp.Visible=True'设置EXCEL对象可见（或不可见）SetxlSheet=xlBook.Worksheets("Sheet1")'设置活动工作表'xl

7、Sheet.Cells(Row,Col)=值12'给单元格（row,col）赋值xlSheet.Cells(5,5)="Neok"xlSheet.PrintOut'打印工作表xlBook.Close(True)'关闭工作簿xlApp.Quit'结束EXCEL对象SetxlApp=Nothing'释放xlApp对象xlBook.RunAutoMacros(xlAutoOpen)'运行EXCEL启动宏