VBGood网站全文搜索 Google

搜索VBGood全站网页(全文搜索)
首页 - 经验之谈 - 在引用项目找不到Excel、Word等Office软体Lib的解决法
发表评论(0)作者:, 平台:, 阅读:10623, 日期:2000-05-11
在引用项目找不到Excel、Word等Office软体Lib的解决法


●底下有些文章是如何把资料丢到Office软体来帮我们列印,为了加快程式的开发速度,小瓜瓜会选择载入Lib的方式来把应用程式当成VB的一部份,只要在物件后打个点,所有方法属性就列出来,不用死背也不用看VBA的说明档,但有些网友是使用其它版本的Office,可能会找不到Lib可以来引用,该如何解决?

●底下是没有引用Lib来控制Office软体的方法:

○Word

(一般)

Dim MyDocApp As Object

Private Sub Command1_Click()

Set MyDocApp = CreateObject("Word.Application")

MyDocApp.Visible = True

End Sub

○Excel


(一般)

Dim MyXlsApp As Object

Private Sub Command1_Click()

Set MyXlsApp = CreateObject("Excel.Application")

MyXlsApp.Visible = True

End Sub

○PowerPoint


(一般)

Dim MyPptApp As Object

Private Sub Command1_Click()

Set MyPptApp = CreateObject("PowerPoint.Application")

MyPptApp.Visible = True

End Sub