这是我以前做的笔记，正好翻出来了，你看看吧
#define GetObject GetObject
__object *xlApp =NULL;
__object *xlBook=NULL;

xlApp = __object_create("Excel.Application"); //创建对象
xlApp->Visible=FALSE; //使对象不可见
xlBook=xlApp->Workbooks->Open("c:\\Temp.xls"); //打开表
xlApp->Run("Sheet1.TestFun"); //调用EXCEL表中的宏
xlBook->PrintOut(); //打印输出
xlApp->Quit(); //退出

__object_delete(xlBook);
__object_delete(xlApp);

－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－
Dim xlApp,xlBook
Set xlApp = CreateObject("Excel.Application")
xlApp.Visible = False
Set xlBook = xlApp.Workbooks.Open("c:\Temp.xls")
xlApp.Run "Sheet1.TestFunc"
xlApp.DisplayAlerts = False
xlApp.Quit