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

持续更新中
Editor --> EditPlus / Notepad++ / UltraEdit
FTP client --> FlashFXP / FileZilla
SSH and telnet client --> Putty
Office 2010 --> Excel / PowerPoint / Word / OneNote
五笔输入法 --> 念青五笔 / 万能五笔
浏览器 --> IE8 / Firefox / Google Chrome / Safari / 360

IDE --> Eclipse / RAD / RTC

DB --> DB2 / MySQL

Middleware --> MQ / Websphere

OS --> Win7 / Linux / AIX / OS X

Mobile OS --> IOS / Android / S60 / WinCE / S40

Source control --> SVN / CVS

Zip and Unzip --> WinRAR / 7-Zip / BetterZip

RSS reader --> Feeddemon / Vienna

Mail client and news reader --> Windows Live Mail

GPS --> 凯立德

云存储 --> 百度云

Build & deploy --> Ant / Maven

Compare --> Beyond compare

即时翻译 --> IBM智能辞典

Programming & scripting --> Java / HTML / VBS / VBA / Shell script / Cron job / Perl script / Bat script / Javascript / SQL

Social media --> QQ / 新浪微博

Logging framework --> Log4j / Log4E / SLF4J
虚拟光驱 & 刻录 --> DAEMON Tools / Alcohol / Ashampoo Burning Studio
杀毒软件 --> Microsoft Security Essentials / Avast
中特软件 --> Psiphon / Hotspot Shield
视频播放 --> Microsoft Media Center / 完美解码
音频相关 --> Monkey's Audio
下载工具 --> 迅雷 / BitTorrent