iInfo 資訊交流: VC 操作 Excel (1) --- 設定儲存格格式

最新消息

[公告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月11日 星期一

VC 操作 Excel (1) --- 設定儲存格格式

透過 VS C++ 操作 Excel 並非一件容易的事,但有些時候還是有需要用到,近期手邊要處理Excel 檔案匯出與儲存格格式設定,順道整理記錄一下操作。
1. 開啟VC專案,引用Excel程式碼。
「View」→「ClassWizard」。

「Add Class」→「From a type library」。

切換到 Excel.exe路徑「C:\Program Files\Microsoft Office\Office14」。

選擇要使用到的 Class:_Application、Workbooks、_Workbook、_Worksheet、Worksheets、Range

點選確認,就會在專案中看到 Excel.cpp、Excel.h。

Excel工作表階層。

2. 輸入以下程式。
void runExcel(CString sourceFile, CString saveasFile)
{
 /*if (!AfxOleInit())
 {
  AfxMessageBox("初始化Ole出錯!");
  return ;
 }*/
 
 if (::CoInitialize( NULL ) == E_INVALIDARG) 
 { 
  AfxMessageBox(_T("無法初始化COM的DLL"));
  return ;
 }

 _Application excel;
 COleException *e = new COleException;

 //建立Excel檔案
 try
 {
  if (!excel.CreateDispatch("Excel.Application", e)) //建立Excel 2000檔案
   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();
 }

 excel.SetVisible(TRUE);

 COleVariant FilenameSave(saveasFile),
          Fileformat((short)51),
    covOptional((long)DISP_E_PARAMNOTFOUND, VT_ERROR);

 TRY
 {
  Workbooks workBooks;
  _Workbook _Workbook;  
  _Worksheet  _workSheet;
  Worksheets  workSheets;
  Range  range;
  //LPDISPATCH lpDisp;

  //取得工作簿集合
  workBooks= excel.GetWorkbooks();
  //lpDisp = excel.GetWorkbooks();  
  //workBooks.AttachDispatch(lpDisp);
  
  //取得工作簿,並開啟檔案
  _Workbook = workBooks.Open(sourceFile,
   covOptional, covOptional, covOptional, covOptional,
   covOptional, covOptional, covOptional, covOptional,
   covOptional, covOptional, covOptional, covOptional,
   covOptional, covOptional);
  
  //取得工作表集合
  workSheets = _Workbook.GetSheets();
  //_Workbook.AttachDispatch(lpDisp);
  //workSheets.AttachDispatch(_Workbook.GetSheets());  
  
  //取得第一個工作表
  _workSheet = workSheets.GetItem(COleVariant((short)1));
  //_workSheet.AttachDispatch(workSheets.GetItem(COleVariant((short)1)));
  
  //選擇工作表中A列
  range = _workSheet.GetRange(COleVariant("A1"), COleVariant("A65536"));
  //range.AttachDispatch(_workSheet.GetRange(COleVariant("A1"), COleVariant("A65536")));

  //設定儲存格格式
  range.SetNumberFormat(COleVariant("000000"));  
  
  _Workbook.SetSaved(TRUE);
  
  DeleteFile(saveasFile);

  //另存新檔
  _Workbook.SaveAs(FilenameSave,
       Fileformat,
       covOptional,
       covOptional,
       covOptional,
       covOptional,
       0,
       covOptional,
       covOptional,
       covOptional,
       covOptional,
       covOptional);

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

  workBooks.Close();
 }
 CATCH(COleDispatchException, e)
 {
  TRACE(e->m_strDescription);
 }
 END_CATCH;

 excel.Quit();
 excel.ReleaseDispatch();
 ::CoUninitialize();
}
程式碼說明:
21行:依據字串不同,建立不同版本Excel。
Excel 字串Excel版本
Excel.ApplicationExcel 2000
Excel.Application.10Excel xp
Excel.Application.11Excel 2003
Excel.Application.12Excel 2007
Excel.Application.14Excel 2010
Excel.Application.15Excel 2013
Excel.Application.16Excel 2016、365
40行:可參考 XlFileFormat 列舉 (Excel)
53行:等同54、55行。
65行:等同66、67行。
70行:等同71行。
74行:等同75行。
58~62行、85~96行:依據使用者所選定的Excel版本而有不同數量的參數。

開啟一個Excel檔案,在 A1、A2、A2 儲存格分別輸入 1、2、3,執行程式讓 A1、A2、A2 的內容變成為 000001、000002、000003。

參考資料: