VB借助EXCEL实现表格设计

1、定义EXCE寸象变量
dim x as excel.application
2、VB中，启动EXCEL
set x=createobject("excel.application")
3、新建一个EXCE T L 作簿
x.workbooks.add
4、选定工作表1
set xsheet=xbook.worksheets(1)
5、指定单元格，并赋值xsheet.cell(1,1)=ret.fields(0)
6 指定EXCE S L 宽
xsheet.column(1).columnwidth=10
7、RANGE函数，选定单元格区域range(cells(1,1),cells(10,20))
& 设置EXCEL字体
xsheet.range(cells(1,1),cells(10,20))=" 黑体"
9、设置EXCE S L 粗体
xsheet.range(cells(1,1),cells(10,20)).fontbold=true
10、设置EXCEI表格边框
xsheet.range(cells(1,1),cells(10,20)).borders.linestyle=xlcontinu
ous
11 、运行时，显示EXCE S L 隐藏EXCEL
x.visible=true
12、保存工作簿
xbook save
13、退出EXCEL
x.quit
14、交还控制权给EXCEL
set x=nothing
15、打印EXCEL表
x.active.window.selectedsheets.printout copies=numcopies
16、退出EXCEL寸,不出现保存提示。

x.displayalerts=false
17、怎样运用EXCEI公式？
x.range("A3").formula= "=max(A1,A2)"
18、E XCEL弋码获取技巧
打开EXCEL中的工具----宏----录制新宏，然后进行手工操作，结束后把所的宏代码贴进你的VB程序就行。

19、合并单元格弋码x.range("A2:A5").inergecells=true
20、自动调整列宽代码
x.column("A:I").autofit ' a 到I 列自动调整列宽
21、文本自动换行代码
x.rows(3).wraptext=true
22、设置字体颜色
x.rows(1).font.colorindex=4
23、打印预览代码
x.worksheets.printpreview
24、打开EXCEL文件
x.workbooks.open filename:="c:\my documents\my vb \lgx \dy.xls"
（注：表格素材和资料部分来自网络，供参考。

只是收取少量整理收集费用，请预览后才下载，期待你的好评与关注）。