VB操纵EXCEL大全

范例一
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 = 1 To xlApp.CommandBars("File").Controls.Count Debug.Print xlApp.CommandBars("File").Controls(i).Caption If Left$(xlApp.CommandBars("File").Controls(i).Caption, 2) = "关闭" Then xlApp.CommandBars("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)).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" ====================================================================================================== 如何用VB控制EXCEL生成报表 贾利冬（www.vbworld.ccoo.com） 做为一种简捷、系统的 Windows应用程序开发工具，Visual Basic 6 具有强大的数据处理功能，提供了多种数据访问方法，可以方便地存取Microsoft SQL Server、Oracle、XBase等多种数据库，被广泛应用于建立各种信息管理系统。但是，VB缺乏足够的、符合中文习惯的数据表格输出功能，虽然使用Crystal Report控件及 Crystal Reports程序可以输出报表，但操作起来很麻烦，中文处理能力也不理想。Excel作为Micorsoft公司的表格处理软件在表格方面有着强大的功能，我们可用VB5编写直接控制Excel操作的程序,方法是用VB的OLE自动化技术获取Excel 2000 的控制句柄,从而直接控制Excel 2000的一系列操作。 下面给出一个实例： 首先建立一个窗体（FORM1）在窗体中加入一个DATA控件和一按钮， 引用Microsoft Excel类型库: 从"工程"菜单中选择"引用"栏; 选择Microsoft Excel 9.0 Object Library; 选择"确定"。 然后在FORM的LOAD事件中加入： Private Sub Form_Load() '数据库及表可以另选，本文以Nwind.mdb为例 Data1.DatabaseName = "C:\Program Files\Microsoft Visual Studio\VB98\Nwind.mdb" Data1.RecordSource = "Customers" Data1.Refresh End Sub 在按钮的CLICK事件中加入 Private Sub Command1_Click() Dim Irow, Icol As Integer Dim Irowcount, Icolcount As Integer Dim Fieldlen() '存字段长度值 Dim xlApp As Excel.Application Dim xlBook As Excel.Workbook Dim xlSheet As Excel.Worksheet Set xlApp = CreateObject("Excel.Application") Set xlBook = xlApp.Workbooks.Add Set xlSheet = xlBook.Worksheets(1) With Data1.Recordset .MoveLast If .RecordCount < 1 Then MsgBox ("Error 没有记录!") Exit Sub End If Irowcount = .RecordCount '记录总数 Icolcount = .Fields.Count '字段总数 ReDim Fieldlen(Icolcount) .MoveFirst For Irow = 1 To Irowcount + 1 For Icol = 1 To Icolcount Select Case Irow Case 1 '在Excel中的第一行加标题 xlSheet.Cells(Irow, Icol).Value = .Fields(Icol - 1).Name Case 2 '将数组FIELDLEN()存为第一条记录的字段长 If IsNull(.Fields(Icol - 1)) = True Then Fieldlen(Icol) = LenB(.Fields(Icol - 1).Name) '如果字段值为NULL,则将数组Filelen(Icol)的值设为标题名的宽度 Else Fieldlen(Icol) = LenB(.Fields(Icol - 1)) End If xlSheet.Columns(Icol).ColumnWidth = Fieldlen(Icol) 'Excel列宽等于字段长 xlSheet.Cells(Irow, Icol).Value = .Fields(Icol - 1) '向Excel的CellS中写入字段值 Case Else Fieldlen1 = LenB(.Fields(Icol - 1)) If Fieldlen(Icol) < Fieldlen1 Then xlSheet.Columns(Icol).ColumnWidth = Fieldlen1 '表格列宽等于较长字段长 Fieldlen(Icol) = Fieldlen1 '数组Fieldlen(Icol)中存放最大字段长度值 Else xlSheet.Columns(Icol).ColumnWidth = Fieldlen(Icol) End If xlSheet.Cells(Irow, Icol).Value = .Fields(Icol - 1) End Select Next If Irow <> 1 Then If Not .EOF Then .MoveNext End If Next With xlSheet .Range(.Cells(1, 1), .Cells(1, Icol - 1)).Font.Name = "黑体" '设标题为黑体字 .Range(.Cells(1, 1), .Cells(1, Icol - 1)).Font.Bold = True '标题字体加粗 .Range(.Cells(1, 1), .Cells(Irow, Icol - 1)).Borders.LineStyle = xlContinuous '设表格边框样式 End With xlApp.Visible = True '显示表格 xlBook.Save '保存 Set xlApp = Nothing '交还控制给Excel End With End Sub 本程序在中文Windows98、中文VB6下通过。 =================================================== VB5.0调用Office97技巧 Visual Basic 5.0具有简单、易学等特点，深受初学者的欢迎，但也有一些不如人意的地方。例如，不能像Word 97那样进行拼写检查，不能像Excel 97那样具有很多的函数。如果我们能将Word 97和Exce l97的功能使用在Visual Basic 5.0中，就可以使VB达到锦上添花的目的。 　　我们知道所有Office 97 应用程序都提供了ActiveX对象，我们可以在Visual Basic 5.0中使用它们。 　　调用Word 97 　　要想在VB中调用Word 97，首先要打开VB的"工程"菜单中的"引用"项目，并在该项目对话框中选定"Microsoft Word 8.0 Object Library"就可以了。 　　下面我们举例说明调用Word 97中的"拼写检查"和"单词统计"功能。首先新建一个工程并在窗体上放置一个TextBox控件和两个CommandButton控件，然后添入如下的代码： 　　 Option Explicit 　　 Dim Doc As New Document 　　 Dim Visi As Boolean 图1 调用Word 97 　　 ′拼写检查 　　 Private Sub Command1－Click() 　　 Form1.Caption = "拼写检查" 　　 Doc.Range.Text = Text1 　　′确定范围 　　 Doc.Application.Visible = True ′将Word 97变为可见 　　 AppActivate Doc.Application.Caption 　　′激活Word 97 　　 Doc.Range.CheckSpelling 　　′拼写检查 　　 Text1 = Doc.Range.Text 　　 Text1 = Left(Text1, Len(Text1) － 1) 　　 AppActivate Caption 　　 End Sub 　　 ′统计单词数 　　 Private Sub Command2－Click() 　　 Dim Dlg As Word.Dialog 　　 Doc.Range = Text1.Text 　　 Set Dlg = Doc.Application.Dialogs 　　 (wdDialogDocumentStatistics) 　　 Dlg.Execute ′统计单词和字符 　　 Form1.Caption ="单词数:" ＆ Str(Dlg.Words) ＆ "词" 　　 ＆ Str(Dlg.Characters) ＆ "字符" ′显示统计结果 　　 End Sub Top
范例三
　　 Private Sub Form－Load() 　　 Form1.Caption ="调用Word 97" 　　 Text1.Text = "" 　　 Command1.Caption = "拼写检查" 　　 Command2.Caption = "统计单词" 　　 ′使应用程序可见 　　 Visi = Doc.Application.Visible 　　 End Sub 　　 ′关闭应用程序 　　 Private Sub Form－Unload(Cancel As Integer) 　　 If Visi Then ′关闭文件 　　 Doc.Close savechanges:=False 　　 Else 　　 Doc.Application.Quit savechanges:=False ′关闭 Word 97 　　 End If 　　 End Sub 　　 运行中的窗体如图1所示。 　　图2 调用Excel 97 　　调用Excel 97 　　使用Excel Sheet对象的技术可以处理可变数量的数据，并将结果最后送到你的Visual Basic 应用程序中。例子如下： 　　新建一个工程并在新建的窗体上放置两个TextBox控件和一个CommandButton控件及六个Label控件。建设中的窗体如图2所示。 　　程序代码如下： 　　 Option Explicit 　　 Private Sub Command1－Click() 　　 Dim xObject As Object 　　 ′调用Excel 97 　　 Set xObject = CreateObject("Excel.Sheet") 　　 Set xObject = xObject.Application.ActiveWorkbook.ActiveSheet 　　 xObject.Range("A1").Value = Text1.Text ′将数值送入Excel 97的A1单元格 　　 xObject.Range("A2").Value = Text2.Text ′将数值送入Excel 97的A2单元格 　　 xObject.Range("A3").Formula = "=MAX(A1,A2)" ′将最大值送入A3单元格 　　 xObject.Range("A4").Formula = "=ATAN(A1/A2)＊180/PI()" ′将反正切值送入A4单元格 　　 ′显示计算的结果 　　 Label1.Caption = xObject.Range("A3").Value 　　 Label2.Caption = xObject.Range("A4").Value 　　 Set xObject = Nothing 　　 End Sub 　　 Private Sub Form_Load() 　　 Text1.Text = "" 　　Text2.Text = "" 　　Label1.Caption = "" 　　Label2.Caption = "" 　　End Sub 　　该程序的作用是：首先在两个文本框（Text1和Text2）输入数值并分别将输入的数值送入Excel 97的"A1"和"A2"单元格中，然后用Excel 97中的"Max()"函数将计算的结果送入"A3" 单元格中；用反正切函数"ATAN()"进行计算并将结果送入"A4" 单元格中，最后输出。 <table border="0" width="100%" cell =================================================== 浅谈Excel 的VB编程 Excel是一个优秀的电子表格软件，如果你编的程序需要以报表的形式显示最终结果，它会是个不错的选择。你可以通过VB控制Excel显示数据表格。如果你不愿意深入了解Excel这些琐碎的细节，也不是没有权宜之计：你可以打开Excel中的工具→宏→录制新宏，然后进行手工操作，结束后把所录的宏代码贴进你的VB程序就行。这样得到的程序一般都能正常运行，但其中的宏代码往往不够简洁，效率和可读性都不高。 ---- Excel编程碰到的第一个问题是表头。有时表头的形式比较复杂，需要横向或纵向合并单元格。请放心，只要没有斜杠，Excel都能应付得了。 ---- 例如合并A2~A5这4个单元格，你录制的宏代码会是这样： Range("A2:A5").Select With Selection .HorizontalAlignment = xlCenter .VerticalAlignment = xlBottom .WrapText = False .Orientation = 0 .AddIndent = False .ShrinkToFit = False .MergeCells = False End With Selection.Merge ---- 而自己编程只要一句 Range.("A2:A5").mergecells=True 就可以解决问题。 ---- 表头形式定了，再就是表头的内容。如果单元格中的文本长度超过了列宽，往往只能显示部分内容，行尾那一格的内容则会"越境"进入右边那个空白单元格，很不美观。这个问题可以通过在程序中设置列宽加以解决。 ---- Columns(14).columnwidth=12 '设置第14列列宽为12（缺省列宽为8.38） ---- 如果你不愿意劳神去逐列估计实际所需的列宽，干脆来一行 ---- Columns("a:i").autofit 'a到i列自动调整列宽 ---- 让Excel随机应变吧。 ---- 但也许你不喜欢这种方法，认为表头撑大了列宽，弄得浏览一张小表格还得向右滚动，太不方便了。要是能保持默认列宽，让文本自动换行就好了。没问题，Excel包你满意。 ---- Rows(3).WrapText=True '让第三行各单元格中的文本自动换行 ---- 不过你最好再加一句 Rows(3) .VerticalAlignment = xlTop 让表头自动向上对齐，这样比较符合习惯。 ---- 你还可以给表头打上底色，让你的读者不至于看了打哈欠。 ---- Rows(2). Interior .ColorIndex = 5 '设置第2行底色为蓝色 ---- 再给表格的标题上色，这样更醒目一点。 ---- Rows(1).Font.ColorIndex=4 ---- 表头完成后该填数据了，一个一个地填实在是太慢了，如果你的数据是存放在一个二维数组中，那问题就简单多了。 Dim Data(3,4) ………… '数据处理 Range("a2:d4").Value=Data ---- 这样可以一次填入一个表的所有数据，够快了吧！不过提醒一句，Range对象大小最好与数组匹配，小了无法显示所有数据，大了则会在空白单元格只填入"N/A"表示没有取得数据。 ---- 如果需要在结果中显示多个同样规格的数据表，想在Range对象中加入循环变量，这也好办。 Dim cell11,cell2 Dim Data(3,4) ………… For I =1 to 40 ………… '数据处理 Set cell1=Worksheets("Sheet1").Cells(5I-4,1) Set cell2=Worksheets("Sheet1").Cells(5I-2,4) Worksheets("Sheet1").Range(cell1,cell2).value=Data Next I ---- 表格填完了，现在该打表格线了，以下几条语句可以满足你的要求： With Worksheets("Sheet1").Range(cell1,cell2).borders .LineStyle=xlContinuous .weight=xlThin End With ---- 好了，关于Excel的VB编程今天就讲到这儿吧。 =================================================== 如何將Excel的文件导入Access文件？ 下面我已程序代码做成模块，只要导入必要之参数即可！ 此一模块共有四个参数： 1、sSheetName：要导出资料的文件名称 (Sheet name)，例如 Sheet1 2、sExcelPath：要导出资料的 Excel 档案路径名称 (Workbook path)，例如 C:\book1.xls 3、sAccessTable：要导入的 Access Table 名称，例如 TestTable 4、sAccessDBPath：要导入的 Access 档案路径名称，例如 C:\Test.mdb 在声明中加入以下： Private Sub ExportExcelSheetToAccess(sSheetName As String, sExcelPath As String, sAccessTable As String, sAccessDBPath As String) Dim db As Database Dim rs As Recordset Set db = OpenDatabase(sExcelPath, True, False, "Excel 5.0") Call db.Execute("Select into [;database=" & sAccessDBPath & "]." & sAccessTable & " FROM [" & sSheetName & "$]") MsgBox "Table exported successfully.", vbInformation, "Yams" End Sub 使用范例如下：將 C:\book1.xls 中的 Sheet1 导入 C:\Test.mdb 成为 TestTable ExportExcelSheetToAccess "Sheet1", "C:\book1.xls", "TestTable", "C:\Test.mdb" VB编程乐园版权所有?,1999-2000 网页设计制作：LiZhiDong =================================================== Dim adoConnection As New ADODB.Connection Dim adoRecordset As New ADODB.Recordset 'OLE DB + ODBC Driver 方式: 'adoConnection.Open "Data Provider=MSDASQL.1;driver=Microsoft Excel Driver (.xls);DBQ=e:\temp\book2.xls" 'Microsoft.Jet.OLEDB.4.0 方式,(建议) adoConnection.Open "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;Data Source=e:\temp\book2.xls;Extended Properties='Excel 8.0;HDR=Yes'" adoRecordset.Open "select * from [sheet1$]", adoConnection, adOpenKeyset, adLockOptimistic '注: OLE DB + ODBC Driver 方式不支持以下语句,但 Microsoft.Jet.OLEDB.4.0 方式支持! adoConnection.Execute "insert into values(3)" adoRecordset.AddNew Array("f1", "f2", "f3", "f4"), Array(1, 2, 3, 4)