VB操作EXCEL大全

VB操纵EXCEL大全

2008-02-2611:07

范例一

Option Explicit

Private Sub Command1_Click()

Dim xlApp As Excel.Application

Dim xlBook As Excel.Workbook

Dim xlChar As New Excel.Chart

Dim xlSheet As New Excel.Worksheet

'建立需要的对象

Set xlApp=New Excel.Application

Set xlApp=CreateObject("Excel.Application")

Set xlBook=xlApp.Workbooks.Open("F:\BOOK1.xls")

Set xlSheet=xlBook.Worksheets(1)

'建立Chart对象

Set xlChar=xlApp.Charts.Add()

xlChar.ChartType=xlLineMarkers

Call xlChar.SetSourceData(xlSheet.Range("A1:E7"),xlColumns)'原数据

ActiveChart.Location Where:=xlLocationAsObject,Name:="Sheet1" ActiveChart.HasLegend=True

ActiveChart.Legend.Select

Selection.Position=xlRight

'选中建立的ChartObjects对象

ActiveSheet.ChartObjects("图表1").Activate

ActiveChart.PlotArea.Select

ActiveChart.Legend.Select

'删除退出(&X)菜单

Dim i As Integer

For i=1To mandBars("File").Controls.Count

Debug.Print mandBars("File").Controls(i).Caption

If Left$(mandBars("File").Controls(i).Caption,2)="关闭" Then

mandBars("File").Controls(i).Visible=False'Delete

Exit For

End If

Next

'显示EXCEL

xlApp.Visible=True

End Sub

范例二

RichTextBox1

Dim xlApp As Excel.Application

Set xlApp=New Excel.Application

----然后，可以用这些变量来访问在EXCEL应用程序中的从属对象、以及这些对象的属性和方法。例如：

Set xlApp=CreateObject("Excel.Application")

‘激活EXCEL应用程序

xlApp.Visible=False‘隐藏EXCEL应用程序窗口

Set xlBook=xlApp.Workbooks.Open(strDestination)

‘打开工作簿，strDestination为一个EXCEL报表文件

Set xlSheet=xlBook.Worksheets(1)

‘设定工作表

============================================================

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))="黑体"

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"

===================================================================== =================================

如何用VB控制EXCEL生成报表

贾利冬（）

做为一种简捷、系统的Windows应用程序开发工具，Visual Basic6具有强大的数据处理功能，提供了多种数据访问方法，可以方便地存取Microsoft SQL