随笔 - 12  文章 - 0  trackbacks - 0
<2016年10月>
2526272829301
2345678
9101112131415
16171819202122
23242526272829
303112345

常用链接

留言簿(103)

随笔档案

文章档案

jQuery

搜索

  •  

最新评论

阅读排行榜

评论排行榜

Dim xlApp
Dim xlBook
Set xlApp = CreateObject("Excel.Application")
Set xlBook = xlApp.Workbooks.Open("C:\BAK\Test.xlsm", 0, True)

xlApp.Run "TestOutter"
xlBook.Close
xlApp.Quit


Set xlBook = Nothing
Set xlApp = Nothing

WScript.Quit
posted on 2016-10-27 00:15 萍水相逢 阅读(140) 评论(0)  编辑  收藏

只有注册用户登录后才能发表评论。


网站导航: