iInfo 資訊交流: VC 操作 Excel (2) --- 執行Excel巨集

最新消息

[公告2014/05/30] 如有需要將部落格中,任何一篇文章的程式碼使用在商業用途,請與我聯繫。

[公告2015/04/26] Line版的 iInfo程式與投資應用 群組已上線想加入的朋友們,請先查看 "入群須知" 再與我聯繫 Line : aminwhite5168,加入請告知身分與回答 "入群須知" 的問題。

[公告2017/02/20] 近來有網友詢問 MultiCharts 與 Excel 畫冰火能量圖 (8)MultiCharts 與Excel 畫冰火能量圖(11) --- 更名「台股儀表板」 文章中教學檔案取得方式,有興趣的朋友可透過 Line了解詳情 (請勿以為是免費分享),Line : aminwhite5168。

[公告2018/04/22] 台北 Python + Excel VBA 金融資訊爬蟲課程,課程如網頁內容 金融資訊爬蟲班:台北班 Python 金融資訊爬蟲、EXCEL VBA 金融資訊爬蟲,請盡快把握機會,歡迎券商、大專院校邀約講座。

[公告2018/06/01] 台指能量儀表板教學課程,課程如網頁內容 台北班:台指能量儀表板

2018年6月30日 星期六

VC 操作 Excel (2) --- 執行Excel巨集

前一篇 VC 操作 Excel (1) --- 設定儲存格格式,介紹透過VC操作 Excel 儲存格格式,接著介紹透過VC執行 Excel 巨集。
藉由以下VBA跟VC程式來執行。
Excel VBA程式碼。
Sub 執行()

    MsgBox 1 + 2

End Sub
VC程式碼。
void runExcel(CString csFile, CString csMacroName)
{
 if (::CoInitialize( NULL ) == E_INVALIDARG) 
 { 
  AfxMessageBox(_T("無法初始化COM的DLL"));
  return ;
 }

 _Application excel;
 COleException *e = new COleException;
 CString str;

 //建立Excel檔案
 try
 {
  if (!excel.CreateDispatch("Excel.Application", e))
   throw e;
 }
 catch(COleDispatchException *e)
 {
  CString csTmp;
  if(!e->m_strSource.IsEmpty())
   csTmp = e->m_strSource + "-";
  if(!e->m_strDescription.IsEmpty())
   csTmp += e->m_strDescription;
  else
   csTmp += "unknown error";
  AfxMessageBox(csTmp, MB_OK, e->m_strHelpFile.IsEmpty() ? 0: e->m_dwHelpContext);
  e->Delete();
 }

 COleVariant vResult, covOptional((long)DISP_E_PARAMNOTFOUND, VT_ERROR);

 TRY
 {
  Workbooks workBooks;
  _Workbook _Workbook;
  
  //取得工作簿集合
  workBooks= excel.GetWorkbooks();
  
  //取得工作簿,並開啟檔案
  _Workbook = workBooks.Open( csFile,
         covOptional, covOptional, covOptional, 
         covOptional, covOptional, covOptional, 
         covOptional, covOptional, covOptional, 
         covOptional, covOptional, covOptional,
         covOptional, covOptional);

  vResult = excel.Run(COleVariant(csMacroName), 
       covOptional, covOptional, covOptional,
       covOptional, covOptional, covOptional, 
       covOptional, covOptional, covOptional, 
       covOptional, covOptional, covOptional, 
       covOptional, covOptional, covOptional, 
       covOptional, covOptional, covOptional, 
       covOptional, covOptional, covOptional, 
       covOptional, covOptional, covOptional, 
       covOptional, covOptional, covOptional, 
       covOptional, covOptional, covOptional);
  switch(vResult.vt)
  {
  case VT_BSTR://string 
   str=vResult.bstrVal;  
   break;
   
  case VT_I4://int
  case VT_INT:
   str.Format("%d",vResult.lVal); 
   break;
   
  case VT_I2://short
   str.Format("%d",vResult.iVal); 
   break;
   
  case VT_R4://float
   str.Format("%f",vResult.fltVal); 
   break;
   
  case VT_R8://double
   str.Format("%d", (int)vResult.dblVal); 
   break;
   
  case VT_BOOL:
   str.Format("%d",vResult.boolVal ); 
   break;
   
  case VT_DATE://date
   
   break;
   
  case VT_ERROR:
   str.Format("ERROR : Can not Execute."); 
   break;
  }

  printf("Status = %s\n", str);

  //釋放資源
  workBooks.ReleaseDispatch();
  _Workbook.ReleaseDispatch();

  workBooks.Close();
 }
 CATCH(COleDispatchException, e)
 {
  printf("%s\n", e->m_strDescription);
 }
 END_CATCH;
 
 excel.Quit();
 excel.ReleaseDispatch();
 ::CoUninitialize();
}
Batch程式碼。
@echo off
C:\Code\ExcelRunMacro\Release\ExcelRunMacro.exe C:\Code\ExcelRunMacro\Release\123.xlsm 執行
執行結果: