《VB借助EXCEL实现表格设计.doc》由会员分享,可在线阅读,更多相关《VB借助EXCEL实现表格设计.doc(3页珍藏版)》请在taowenge.com淘文阁网|工程机械CAD图纸|机械工程制图|CAD装配图下载|SolidWorks_CaTia_CAD_UG_PROE_设计图分享下载上搜索。
1、-作者xxxx-日期xxxxVB借助EXCEL实现表格设计【精品文档】1、定义EXCEL对象变量2、VB中,启动EXCELset x=createobject(excel.application)3、新建一个EXCEL工作簿4、选定工作表1set xsheet=xbook.worksheets(1)5、指定单元格,并赋值xsheet.cell(1,1)=ret.fields(0)6、指定EXCEL列宽xsheet.column(1).columnwidth=107、RANGE()函数,选定单元格区域range(cells(1,1),cells(10,20)8、设置EXCEL字体xsheet.r
2、ange(cells(1,1),cells(10,20).font.name=黑体9、设置EXCEL为粗体xsheet.range(cells(1,1),cells(10,20).fontbold=true10、设置EXCEL表格边框xsheet.range(cells(1,1),cells(10,20).borders.linestyle=xlcontinuous11、运行时,显示EXCEL或隐藏EXCELx.visible=true12、保存工作簿xbook save13、退出EXCEL14、交还控制权给EXCELset x=nothing15、打印EXCEL表x.active.windo
3、w.selectedsheets.printout copies=numcopies16、退出EXCEL时,不出现保存提示。x.displayalerts=false17、怎样运用EXCEL公式?x.range(A3).formula= =max(A1,A2)18、EXCEL代码获取技巧打开EXCEL中的工具-宏-录制新宏,然后进行手工操作,结束后把所录的宏代码贴进你的VB程序就行。19、合并单元格代码x.range(A2:A5).inergecells=true20、自动调整列宽代码x.column(A:I).autofit a到 I列自动调整列宽21、文本自动换行代码x.rows(3).wraptext=true22、设置字体颜色ex=423、打印预览代码24、打开EXCEL文件x.workbooks.open filename:=c:my documentsmy vb lgx dy.xls【精品文档】