Cómo usar MFC para automatizar Excel y rellenar un rango con una matriz

Notas para automatizar Microsoft Excel 2000 y 2002

Pasos para crear proyectos

1. Siga los pasos 1 al 12 en el siguiente artículo en Microsoft Knowledge Base para crear un proyecto de ejemplo que utiliza la interfaz IDispatch interfaces y funciones miembro definidas en la biblioteca de tipo Excel8.olb:
   178749

   (http://support.microsoft.com/kb/178749/EN-US/ )

   Cómo crear un proyecto de automatización mediante MFC y una biblioteca de tipos
2. Para el cuadro de diálogo creado en los pasos 4 y 5 de de artículo primario 178749
   (http://support.microsoft.com/kb/178749/EN-US/ )
   , agregue los siguientes controles con propiedades como especificado. También agregar las variables miembro correspondientes:

                                     Member                Member
         Control   Name              Variable Type         Variable Name
         -----------------------------------------------------------------
         Edit      IDC_STARTINGCELL  m_sStartingCell       CString
         Edit      IDC_NUMROWS       m_iNumRows            short
         Edit      IDC_NUMCOLS       m_iNumCols            short
         CheckBox  IDC_STRING        m_bFillWithStrings    BOOL
   					

3. En la parte superior del archivo AutoProjectDlg.cpp, agregue la siguiente línea:

         #include "excel8.h"
   					

4. Agregue el código siguiente a CAutoProjectDlg:: OnRun () en el archivo AutoProjectDlg.cpp.

   Código de ejemplo

         // OLE Variant for Optional.
         COleVariant VOptional((long)DISP_E_PARAMNOTFOUND, VT_ERROR);
   
         _Application objApp;
   
         _Workbook objBook;
         Workbooks objBooks;
         Worksheets objSheets;
         _Worksheet objSheet;
         Range range;
   
         if(!UpdateData(TRUE))
         {
            return;
         }
   
         // Instantiate Excel and start a new workbook.
         objApp.CreateDispatch("Excel.Application");
         objBooks = objApp.GetWorkbooks();
         objBook = objBooks.Add(VOptional);
         objSheets = objBook.GetWorksheets();
         objSheet = objSheets.GetItem(COleVariant((short)1));
   
         //Get the range where the starting cell has the address
         //m_sStartingCell and it's dimensions are m_iNumRows x m_iNumCols.
         range = objSheet.GetRange(COleVariant(m_sStartingCell),
                                   COleVariant(m_sStartingCell));
         range = range.GetResize(COleVariant(m_iNumRows),
                                 COleVariant(m_iNumCols));
   
         //*** Fill the range with an array of values.
   
         //Create the SAFEARRAY.
         COleSafeArray saRet;
         DWORD numElements[2];
         numElements[0]= m_iNumRows;   //Number of rows in the range.
         numElements[1]= m_iNumCols;   //Number of columns in the range.
   
         if(m_bFillWithStrings)
         {
            saRet.Create(VT_BSTR, 2, numElements);
         }
         else
         {
            saRet.Create(VT_R8, 2, numElements);
         }
   
         //Fill the SAFEARRAY.
         long index[2];
         long iRow;
         long iCol;
   
         for(iRow=0;iRow<=m_iNumRows-1;iRow++)
         {
            for(iCol=0;iCol<=m_iNumCols-1;iCol++)
            {
               index[0] = iRow;
               index[1] = iCol;
               if(m_bFillWithStrings)      //Fill with Strings.
               {
                  VARIANT v;
                  CString s;
                  VariantInit(&v);
                  v.vt = VT_BSTR;
                  s.Format("r%dc%d", iRow, iCol);
                  v.bstrVal = s.AllocSysString();
                  saRet.PutElement(index, v.bstrVal);
                  SysFreeString(v.bstrVal);
                  VariantClear(&v);
               }
               else                     //Fill with Numbers.
               {
                  double d;
                  d = (iRow*1000) + iCol;
                  saRet.PutElement(index, &d);
               }
            }
         }
   
         //Set the range value to the SAFEARRAY.
         range.SetValue(COleVariant(saRet));
         saRet.Detach();
   
         //Return control of Excel to the user.
         objApp.SetVisible(TRUE);
         objApp.SetUserControl(TRUE);
   					

5. Compile y ejecute el proyecto.
6. Especifique los valores siguientes para los controles en el cuadro de diálogo:

         Control               Contents
         ------------------------------
         IDC_STARTINGCELL      A1
         IDC_NUMROWS           10
         IDC_NUMCOLS           5
         IDC_STRING            True
   						

   haga clic en Aceptar.
   
   Resultados: Se genera un nuevo libro y se rellenan las celdas a1: E10 de la primera hoja de cálculo con los valores de cadena.
7. Especifique los valores siguientes para los controles en el cuadro de diálogo:

         Control               Contents
         ------------------------------
         IDC_STARTINGCELL      C3
         IDC_NUMROWS           2
         IDC_NUMCOLS           9
         IDC_STRING            False
   						

   haga clic en Aceptar.
   
   Resultados: Se genera un nuevo libro y C3:K4 de celdas de la primera hoja se rellenan con valores numéricos.

Volver al principio | Enviar comentarios