问题:现在需要打开visio文件,后缀名 'VSD' ,请问如何实现?

2016-12-22 12:59
真心请教: 本人菜鸟,希望用vf6打开常用的几种文件,比如高人指教的:
  ls_excel=NEWOBJECT("excel.application")   
 ls_excel.WORKBOOKS.Open( "&ck_文件名")   
ls_excel.Visible=.T.    &&&&&即可打开excel文件,
其他已经实现打开 word,ppt,还有jpg格式的文件。
???问题:现在需要打开visio文件,后缀名  'VSD' ,请问如何实现? 请赐教!  
     

回复讨论(解决方案)

Office 套件的使用基本都一样,Visio 也一样,例如:
oo = NewObject('Visio.Application')
oo.Documents.Open(GetFile('vsd'))
非常感谢,已经验证,可以打开!
 疑惑点在于'Visio.Application',不找到如何知道? 也曾用试过,可能大小写或者哪里出错了,不能运行。猫兄的内容一用即可! 
再次感谢!