以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  如何调用应用程序  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=83162)
--  作者：扶风
--  发布时间：2016/4/1 18:56:00
--  如何调用应用程序
老师，请教一下：
如何调用外部的OFFICE办公应用程序，例如实现点击菜单控件，打开一个新建的WORD或EXCEL文档。
--  作者：大红袍
--  发布时间：2016/4/1 20:08:00
--  

 方法一：弄一个空白的word或excel，新建直接拷贝即可

 

http://www.foxtable.com/help/topics/0331.htm

 
--  作者：大红袍
--  发布时间：2016/4/1 20:10:00
--  

方法二：

 

Dim app As New MSWord.Application
\'新建文档
Dim nDoc = App.Documents.Add
nDoc.SaveAs("d:\\test.doc")
app.quit
msgbox("新建word成功")

 

----------

 

Dim App As New MSExcel.Application
Dim Wb As MSExcel.Workbook = App.WorkBooks.Add
Wb.WorkSheets(1).name = "abc"
Wb.SaveAs("d:\\123.xls")
App.Quit
msgbox("新建Excel成功")

 
--  作者：扶风
--  发布时间：2016/4/1 20:36:00
--  
老师：
      新建是新建了，但如何在新建的同时打开该文档？
--  作者：Hyphen
--  发布时间：2016/4/2 9:10:00
--  
参考：http://www.foxtable.com/help/topics/0353.htm
--  作者：大红袍
--  发布时间：2016/4/3 12:28:00
--  
Dim app As New MSWord.Application
\'新建文档
Dim nDoc = App.Documents.Add
nDoc.SaveAs("d:\\test.doc")
app.visible = True