Excel VBA程序的编写.doc

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