MFC を使用して Excel を自動化し、配列の範囲を入力する方法

文書翻訳 文書翻訳
文書番号: 186120
すべて展開する | すべて折りたたむ

目次

概要

ここでフィル Microsoft Excel を自動化する方法について説明します。自動化範囲に値の配列です。

詳細

セルを 1 つずつ範囲に一括で入力するには2 次元バリアント型の SAFEARRAY は excel でパスを作成する必要があります。Range オブジェクトの SetValue 関数を呼び出しています。次の手順このプロセスを示しています。

ノートを Microsoft Excel 2000、および 2002年を自動化します。

この資料のサンプル コードから生成されたクラス ラッパーを使用して、Excel 97 オブジェクト ライブラリ (Excel 8.olb)。少し手を加えた、これコードのクラス ラッパーを使用するオートメーション クライアントへ適用できます。Excel 2000 (Excel9.olb) または Excel 2002 (Excel.olb) にします。追加この記事では、Microsoft Excel 2000 または 2002年タイプ ライブラリ記載されているサンプル コードの使用に関する情報をクリックしてください、マイクロソフト サポート技術を表示するのには次の文書番号。
224925 情報: Office のタイプ ライブラリは新しいリリースで変更可能性があります。

プロジェクトの作成手順

  1. 手順 1 〜 12 の次の資料で、マイクロソフト技術、IDispatch を使用するサンプル プロジェクトを作成するのにはインターフェイスとは、Excel8.olb タイプ ライブラリで定義されたメンバー関数。
    178749 MFC およびタイプ ライブラリを使用してオートメーション プロジェクトを作成するには、方法
  2. ダイアログ ボックスに手順 4 と 5 は、親アーティクルので作成 178749、として指定したプロパティを持つ次のコントロールを追加します。また対応するメンバー変数を追加します。
                                      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. AutoProjectDlg.cpp ファイルの上部で、次の行を追加します。
          #include "excel8.h"
    					
  4. 次のコードを追加する CAutoProjectDlg::OnRun() のAutoProjectDlg.cpp ファイルです。

    サンプル コード

          // 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. コンパイルし、プロジェクトを実行します。
  6. ダイアログ ボックス上のコントロールを次の値を指定します。
          Control               Contents
          ------------------------------
          IDC_STARTINGCELL      A1
          IDC_NUMROWS           10
          IDC_NUMCOLS           5
          IDC_STRING            True
    						
    [Ok] をクリックします。

    結果: 新しいブックが生成され、a1: e10 が最初のセルワークシートに文字列値が設定します。
  7. ダイアログ ボックス上のコントロールを次の値を指定します。
          Control               Contents
          ------------------------------
          IDC_STARTINGCELL      C3
          IDC_NUMROWS           2
          IDC_NUMCOLS           9
          IDC_STRING            False
    						
    [Ok] をクリックします。

    結果: 新しいブックが生成され、セルの最初の C3:K4ワークシートで数値が表示します。

関連情報

MFC を使用して Excel を自動化する方法の詳細についてを参照してください。次の記事ので、マイクロソフト サポート技術。
186122 MFC を使用して Excel を自動化し、配列から範囲を取得する方法

184663 埋め込みおよび MFC で Excel ワークシートを自動化するには、方法

179706 MFC を使用して Excel を自動化し、新しいブックを作成/フォーマットする

178781 MFC およびワークシート関数を使用して Excel を自動化するには、方法

178783 MFC を使用して Microsoft Excel グラフを作成する方法

プロパティ

文書番号: 186120 - 最終更新日: 2011年7月6日 - リビジョン: 6.0
キーワード:?
kbhowto kbinterop kbautomation kbcode kbmt KB186120 KbMtja
機械翻訳の免責
重要: このサポート技術情報 (以下「KB」) は、翻訳者による翻訳の代わりに、マイクロソフト機械翻訳システムによって翻訳されたものです。マイクロソフトは、お客様に、マイクロソフトが提供している全ての KB を日本語でご利用いただけるように、翻訳者による翻訳 KB に加え機械翻訳 KB も提供しています。しかしながら、機械翻訳の品質は翻訳者による翻訳ほど十分ではありません。誤訳や、文法、言葉使い、その他、たとえば日本語を母国語としない方が日本語を話すときに間違えるようなミスを含んでいる可能性があります。マイクロソフトは、機械翻訳の品質、及び KB の内容の誤訳やお客様が KB を利用されたことによって生じた直接または間接的な問題や損害については、いかなる責任も負わないものとします。マイクロソフトは、機械翻訳システムの改善を継続的に行っています。
英語版 KB:186120
Microsoft Knowledge Base の免責: Microsoft Knowledge Baseに含まれている情報は、いかなる保証もない現状ベースで提供されるものです。Microsoft Corporation及びその関連会社は、市場性および特定の目的への適合性を含めて、明示的にも黙示的にも、一切の保証をいたしません。さらに、Microsoft Corporation及びその関連会社は、本文書に含まれている情報の使用及び使用結果につき、正確性、真実性等、いかなる表明・保証も行ないません。Microsoft Corporation、その関連会社及びこれらの権限ある代理人による口頭または書面による一切の情報提供またはアドバイスは、保証を意味するものではなく、かつ上記免責条項の範囲を狭めるものではありません。Microsoft Corporation、その関連会社 及びこれらの者の供給者は、直接的、間接的、偶発的、結果的損害、逸失利益、懲罰的損害、または特別損害を含む全ての損害に対して、状況のいかんを問わず一切責任を負いません。(Microsoft Corporation、その関連会社 またはこれらの者の供給者がかかる損害の発生可能性を了知している場合を含みます。) 結果的損害または偶発的損害に対する責任の免除または制限を認めていない地域においては、上記制限が適用されない場合があります。なお、本文書においては、文書の体裁上の都合により製品名の表記において商標登録表示、その他の商標表示を省略している場合がありますので、予めご了解ください。

フィードバック

 

Contact us for more help

Contact us for more help
Connect with Answer Desk for expert help.
Get more support from smallbusiness.support.microsoft.com