VB借助EXCEL实现表格设计(转)

1、定义EXCEL对象变量

dim  x  as excel.application

2、VB中,启动EXCEL

set x=createobject(“excel.application”)

3、新建一个EXCEL工作簿

x.workbooks.add

4、选定工作表1

set xsheet=xbook.worksheets(1)

5、指定单元格,并赋值

xsheet.cell(1,1)=ret.fields(0)

6、指定EXCEL列宽

xsheet.column(1).columnwidth=10

7、RANGE()函数,选定单元格区域

range(cells(1,1),cells(10,20))

8、设置EXCEL字体

xsheet.range(cells(1,1),cells(10,20)).font.name=”黑体”

9、设置EXCEL为粗体

xsheet.range(cells(1,1),cells(10,20)).fontbold=true

10、设置EXCEL表格边框

xsheet.range(cells(1,1),cells(10,20)).borders.linestyle=xlcontinuous

11、运行时,显示EXCEL或隐藏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、怎样运用EXCEL公式?

x.range(“A3”).formula= “=max(A1,A2)”

18、EXCEL代码获取技巧

打开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”

 » 本站地址:http://www.gomoth.com

标签: ,