用OLE呀。默认的控件里就有

解决方案 »

  1.   

    感谢您使用微软产品。您可以使用Microsoft Word 10.0 Object Library中的类和对象对Word文件进行操作。请在您的VB 项目的Reference中加入Microsoft Excel 10.0 Object Library。然后,您可以使用Word.Application对象的方法和属性启动Word,并利用它的Documents属性的Add方法打开制定文件,要对文件进行其他操作,可以参考Word.Document的相关文档。如下例:Private Sub Command1_Click()    Dim oWord As Word.Application    Dim oDoc As Word.Document        Set oWord = New Word.Application        oWord.Visible = True        With oWord        .WindowState = wdWindowStateMaximize                Set oDoc = .Documents.Add(App.Path & "\fred.doc")    End WithEnd Sub详情请参阅:Application Objecthttp://msdn.microsoft.com/library/default.asp?url=/library/en-us/office97/html/output/F1/D6/S5B4A5.aspDocuments Propertyhttp://msdn.microsoft.com/library/default.asp?url=/library/en-us/office97/html/output/F1/D6/S5B4A5.aspDocument Objecthttp://msdn.microsoft.com/library/default.asp?url=/library/en-us/office97/html/output/F1/D6/S5B4A5.asp对于其他office程序,类似的您先要添加引用,再利用相应的对象启动程序,如可以使用Microsoft Excel 10.0 Object Library中的类和对象对Excel文件进行操作。请在您的VB 项目的Reference中加入Microsoft Excel 10.0 Object Library。打开应用程序目录下的Excel文件fred.xlsPrivate Sub Command1_Click()       'create an instance of Excel but it will be invisible        Set xl = New Excel.Application        xl.Visible = True 'make the excel application visible       xl.Workbooks.Add        xl.Workbooks.Open (App.Path & "\fred.xls")End Sub-       微软全球技术中心 VB技术支持本贴子以“现状”提供且没有任何担保,同时也没有授予任何权利。具体事项可参见使用条款(http://support.microsoft.com/directory/worldwide/zh-cn/community/terms_chs.asp)。为了为您创建更好的讨论环境,请参加我们的用户满意度调查(http://support.microsoft.com/directory/worldwide/zh-cn/community/survey.asp?key=(S,49854782))。