OLE控件大家都用过吧

Question

我引用的OLE控件class为Word.Document.8,设计时加入了一个sourcedoc,程序进入时显示正常，但是若用commondialog重新加入一个DOC文档则OLE控件中显示为空。请问这是怎么回事呢？

Answer 1

OLE1.Class = "Excel.Sheet.8"
                    '′确定嵌入的OLE对象的类名
                    
                     OLE1.SourceDoc = App.Path & "\temp\产品报价单.xls"
                    '′待显示的文件名
                    OLE1.Action = 0 'OLE－CREATE－EMBED
                    OLE1.Verb = -3
                    '′当OLE对象被激活时指定一种操作
                    OLE1.Action = 7 'OLE－ACTIVATE
                    OLE1.SizeMode = 2
                    OLE1.Enabled = False里面的Excel换成Word 的就可以了