欢迎来到天天文库
浏览记录
ID:49870897
大小:76.50 KB
页数:12页
时间:2020-03-05
《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启动宏
此文档下载收益归作者所有