ExcelVBA程序的编写.doc

Excel VBA程序的编写摘要：本文通过代码演示，介绍如何从Active Directory中检索信息并将信息显示在带格式的Excel工作表中。（注：本文摘自Microsoft Corporation 技术人员Greg Stemp的文章，稍作修改。在文章中，估且先不要管Active Directory，可看看文章所介绍的有关Excel程序编写的相关知识，肯定会有所帮助的。所有示例及图示均在工作簿Excel代码编写示例.xls中）使用 Excel：快速回顾我们可以仅仅使用下面两行代码就能创建 Excel工作簿：****************************************Sub BuildWorkbook()Dim objExcel as ApplicationSet objExcel = CreateObject(Excel.Application)objExcel.Workbooks.AddEnd Sub****************************************在默认情况下，您在任何时候创建的 Excel 工作簿都运行在不可见的窗口之中。要实际地看一看所创建的Excel 工作簿，需要将 Visible 属性设置为 TRUE，如下所示：****************************************Sub BuildWorkbook()Dim objExcel as ApplicationSet objExcel = CreateObject(Excel.Application)objExcel.Workbooks.AddobjExcel.Visible = TrueEnd Sub****************************************上面的三行代码将在屏幕上显示一个空白的电子表格。将数据添加到电子表格中当电子表格关闭时，您可以很容易地将数据添加到电子表格中。首先您简单地引用一个单元格，然后相应地设置值。例如，假设我们想要将文本“My Workbook”输入第一行第一列。试一试下面的代码，看看会发生什么：****************************************Sub addData()Dim objExcel as ApplicationSet objExcel = CreateObject(Excel.Application)objExcel.Visible = TrueobjExcel.Workbooks.AddobjExcel.Cells(1, 1).Value = My WorkbookEnd Sub****************************************当您运行这个代码后，会看到类似如下面图1所示的输出：?图 1. 将数据写入 Excel 电子表格哈哈，很酷吧！如果您想要添加其他的数据，我们只需要多引用几个单元格并且设置合适的值就可以了。例如，下面的脚本将四种动物的名称添加到我们的电子表格中：****************************************Sub addDatas()? Dim objExcel As ApplicationSet objExcel = CreateObject(Excel.Application)objExcel.Visible = TrueobjExcel.Workbooks.AddobjExcel.Cells(1, 1).Value = 小猫objExcel.Cells(1, 2).Value = 小狗objExcel.Cells(1, 3).Value = 小兔objExcel.Cells(1, 4).Value = 小猪End Sub****************************************当您运行这段代码后，会看到类似如下图2所示的输出：?图 2. 将数据写入 Excel 电子表格中的多个单元格现在，真的非常酷……！嗯，不错，您真行！但这还不够，是吗？可以将数据添加到电子表格是一件了不起的事哦，不过，让我们考虑一下这个问题。我们为什么愿意在 Excel 中显示数据而不愿意在命令窗口中显示数据或将其保存到文本文件中呢？我们之所以愿意这么做，最可能的原因并不是选择这两种方法会让您花大量的精力去安排数据的格式。至少我们可以说将数据输出到命令窗口或保存到文本文件会缺少某种美感。这就是我们愿意使用Excel的原因；Excel使您能够创建格式漂亮、易于阅读的输出。但是在这里我们还无法保证有格式漂亮的输出；毕竟，您可能连