VB千里行-操作Word与Excel

1、文将告诉你如何使用 VB 代码连接 Office 应用程序，并简要接触一下在文件中输入数据的方法。实际上，在 VB 中用代码与 Word 和 Excel 进行会话并控制它们，是可行的。但是请注意，首先需要在机器上安装office 应用程序，才能在 VB 代码中存取它们的对象。下面就是一些例子，告诉你如何与这些程序会话，并控制它们。Option ExplicitDim xlsApp As Excel.ApplicationDim wrdApp As Word.Application只要相关的对象库已经被选择，在应用程序中进行对象变量的赋值是可能的。Microsoft Excel 8.0 对象库是

2、相对于 Excel 的，而 Microsoft Word8.0 对 象库是为Word服务的。在 VB 的 IDE 环境中，从“工程”菜单中选择“引用” ，可以看到系统可用的所有库列表。Private Sub Command1_Click()Set xlsApp = Excel.ApplicationWith xlsAppShow Excel.Visible = TrueCreate a new workbook.Workbooks.AddPut text in to the cell that is selected.ActiveCell.Value = HiPut text into A3

3、regardless of the selected cell.Range(A3).Value= This is an example of connecting to ExcelEnd WithEnd Sub在上面的程序段中，我们在变量 xlsApp 中建立了一个对象，这样 Excel 就对用户可见了。 当 Excel 象这样启动后， 并不包含一个工作簿， 所以必须创建 或者执行打开操作。这里，我们建立了一个新的工作簿，然后，就可以操作其中 的信息，或者打印，或者保存，或者你任意想做的事情。Private Sub Command2_Click()close the workbook xlsA

4、pp.Workbooks.CloseClose ExcelxlsApp.QuitEnd Sub上面这段代码执行关闭程序的功能。首先，关闭工作簿，这将出现一个提示对话框，询问用户是否想保存修改；然后，退出应用程序。Private Sub Command3_Click()Set wrdApp = New Word.ApplicationWith wrdAppShow Word.Visible = TrueCreate New Document.Documents.AddAdd text to the document.ActiveDocument.Content.Text = Hi.ActiveD

5、ocument.Content.Text = This is a test example End WithEnd Sub上面这段代码中，在变量 wrdApp中设置引用Word程序的对象。同样，当 Word按照这种方式启动后，不会包含一个文档，所以，必须执行建立或者打开 操作。这里是建立了一个新文档，然后可以操作其中的信息了，打印、保存、发 送邮件，等等 .但是，在Word文档中放置文本并非容易！特别是与Excel 一起工作时。为 了简单地在特定的地方放置文本，需要有一个bookmark标记。这意味着，需要事先建立一个模板。Private Sub Command4_Click()Close t

6、he current document wrdApp.ActiveDocument.CloseClose WordwrdApp.QuitEnd Sub上面这段代码的功能是关闭应用程序。首先，关闭当前文档，这时可能需 要用户保存修改。然后，退出程序。Private Sub Form_Unload(Cancel As Integer)Clear the memorySet xlsApp = NothingSet wrdApp = NothingEnd Sub最后一段代码就是关闭VB应用程序。这是优秀程序员编程的好习惯。Well I hope this brief tutorial is helpful. It does not touch on much of what you can do t o the office applicationsonce they r