《VB操作EXCEL大全》由会员分享，可在线阅读，更多相关《VB操作EXCEL大全（14页珍藏版）》请在金锄头文库上搜索。
1、VB 操纵 EXCEL 大全 2008 02 26 11 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 x
2、lApp 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 S
3、elect Selection Position xlRight 选中建立的 ChartObjects 对象 ActiveSheet ChartObjects 图表 1 Activate ActiveChart PlotArea Select ActiveChart Legend Select 删除 退出 选择 Microsoft Excel 9 0 Object Library 选择 确定 然后在 FORM 的 LOAD 事件中加入 Private Sub Form Load 数据库及表可以另选 本文以 Nwind mdb 为例 Data1 DatabaseName C Program Fi
4、les 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 W
5、orksheet 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
6、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 Fi
7、elds 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 数组
8、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 Bol
9、d 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 那样进
10、行拼写检查 不能像 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 中的 拼写检查 和
11、 单词统计 功能 首先新 建一个工程并在窗体上放置一个 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 Captio
12、n 激活 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 Dl
13、g 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
14、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
15、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 单元
16、格 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 是一个优秀的电子表格软件 如果你编的程序需要以报表的形式显示最终 结果 它会是个不错的选
