如何在wincc调用excel中的宏

C脚本：
 void Excel() 
 { 
 __object* pExcel = NULL; 
 __object* pWorkbooks = NULL; 
 __object* pActiveWorkbook = NULL; 

 pExcel = __object_create("Excel.Application.8");   //8 for Excel 97 
 //    pExcel = __object_create("Excel.Application.9");  // 9 for Excel 2k
 //    pExcel = __object_create("Excel.Application.10");  //10 for Excel XP 
 //    pExcel = __object_create("Excel.Application.11");  //11 for Excel 2k3 

 if(pExcel) { 
 pExcel->Visible = 1; 
 pWorkbooks = pExcel->Workbooks; 
 pWorkbooks ->Open ("F:\\WinCCProjects\\Excel_TST.xls");

 pExcel->Run("TestMacro");

 pActiveWorkbook = pExcel->ActiveWorkbook;
 pActiveWorkbook->Save();
 __object_delete(pActiveWorkbook); 

 pWorkbooks->Close();
 __object_delete(pWorkbooks); 

 pExcel->Quit();
 __object_delete(pExcel); 
 } 
 }

 VBS脚本：
 Dim xExcel,xWorkbooks,xActiveWorkbook

 Set xExcel = CreateObject("Excel.Application")

 if xExcel then 
 xExcel.Visible = True
 Set xWorkbooks = xExcel.Workbooks.Open("F:\WinCCProjects\Excel_TST.xls")
 xExcel.Run "Sheet1.TestFunc"

 xActiveWorkbook = xExcel.ActiveWorkbook
 xActiveWorkbook.Save
 set xActiveWorkbook = Nothing

 xWorkbooks.Close
 set xWorkbooks = Nothing

 xExcel.Quit
 set xExcel = Nothing

 end_if