MFC および Visual C++ 2005 または Visual C++ .NET から Excel を自動化して、配列を使用して範囲内のデータを入力または取得する方法

[アーティクル]
06/20/2023
適用対象:

Microsoft Excel

この記事の Microsoft C# .NET バージョンについては、「 302096」を参照してください。この記事の Microsoft Visual Basic .NET バージョンについては、「 302094」を参照してください。

注:

Microsoft Visual C++ 2005、Microsoft Visual C++ .NET 2003、Microsoft Visual C++ .NET 2002 では、Microsoft .NET Frameworkとアンマネージネイティブ Microsoft Windows コードモデルによって提供されるマネージドコードモデルの両方がサポートされます。この記事の情報は、アンマネージド Visual C++ コードにのみ適用されます。

概要

このステップバイステップの記事では、Visual C++ 2005 または Visual C++ .NET から Microsoft Excel を自動化して、配列を使用して複数セル範囲の値を入力および取得する方法について説明します。

Excel 用の Automation クライアントを作成する

セルを 1 つずつ入力せずに複数セル範囲を塗りつぶすには、Range オブジェクトの Value プロパティを 2 次元配列に設定できます。同様に、Value プロパティを使用して、複数のセルの値の 2 次元配列を一度に取得できます。次の手順は、2 次元配列を使用したデータの設定と取得の両方に関するこのプロセスを示しています。

次の Microsoft サポート技術情報の記事の「Automation クライアントの作成」セクションの手順に従って、基本的な Automation クライアントを作成します。

307473 Visual C++ .NET から Office Automation のタイプライブラリを使用する方法

手順 3 で、フォームに 2 つ目のボタンとチェックボックスを追加します。ボタンの ID をIDC_GETVALUESに変更し、キャプションを [値の取得] に変更します。チェックボックスの ID を IDC_CHECK に変更し、キャプションを [文字列で塗りつぶし] に変更します。

記事の手順 4 で、Office XP から Excel 2002 を自動化する場合は、[Microsoft Excel 10.0 オブジェクトライブラリ] を選択します。 Excel 2002 の既定の場所は C:\Program Files\Microsoft Office\Office10\Excel.exeです。または、Microsoft Office Excel 2003 を自動化する場合は、[Microsoft Excel 11.0 オブジェクトライブラリ] を選択します。 Excel 2003 の既定の場所は C:\Program Files\Microsoft Office\Office11\Excel.exeです。次の Microsoft Excel インターフェイスを選択します。
- _アプリケーション
- _ブック
- _ワークシート
- Range
- ブック
- ワークシート
手順 6 では、Autoprojectdlg.h で#pragma once ディレクティブの直後に次の#includeステートメントを追加します。
```
#include "CApplication.h"
#include "CRange.h"
#include "CWorkbook.h"
#include "CWorkbooks.h"
#include "CWorksheet.h"
#include "CWorksheets.h"
```
次の 2 つのパブリックメンバー変数を CAutoProjectDlg クラスに追加します。
```
CApplication oExcel;
CWorkbook oBook;
```
ダイアログボックスで、IDC_CHECKを右クリックし、[変数の追加] を選択します。変数にm_bFillWithStrings名前を付け、[完了] をクリックします。

ダイアログボックスで、[実行] をダブルクリックし、次のコードを置き換えます。

void CAutoProjectDlg::OnBnClickedRun()
{
// TODO: Add your control notification handler code here
}

置換後:

void CAutoProjectDlg::OnBnClickedRun()
{
CWorkbooks oBooks;
CWorksheets oSheets;
CWorksheet oSheet;
CRange oRange;
COleVariant covOptional(DISP_E_PARAMNOTFOUND,VT_ERROR);

// If you have not created Excel, create a new instance.
if (oExcel.m_lpDispatch == NULL) {
oExcel.CreateDispatch("Excel.Application");
}
// Show Excel to the user.
oExcel.put_Visible(TRUE);
oExcel.put_UserControl(TRUE);

// Add a new workbook and get the first worksheet in that book.
oBooks = oExcel.get_Workbooks();
oBook = oBooks.Add(covOptional);
oSheets = oBook.get_Worksheets();
oSheet = oSheets.get_Item(COleVariant((short)1));

// Get a range of data.
oRange = oSheet.get_Range(COleVariant("A1"),covOptional);
oRange = oRange.get_Resize(COleVariant((short)5),COleVariant((short)5));

COleSafeArray saRet;
DWORD numElements[2];
numElements[0] = 5;
numElements[1] = 5;

long index[2];
// Create a BSTR or double safe array.
if (m_bFillWithStrings.GetCheck())
saRet.Create(VT_BSTR,2,numElements);
else
saRet.Create(VT_R8,2,numElements);

// Fill the array with data.
for (int iRow = 1; iRow <= 5; iRow++) {
for (int iCol = 1; iCol <= 5; iCol++) {
index[0]=iRow-1;
index[1]=iCol-1;
if (m_bFillWithStrings.GetCheck()) {
CString szTemp;
szTemp.Format("%d|%d",iRow,iCol);
BSTR bstr = szTemp.AllocSysString();
saRet.PutElement(index,bstr);
SysFreeString(bstr);
} else {
double d = iRow * iCol;
saRet.PutElement(index,&d);
}
}
}
// Send the array to Excel.
oRange.put_Value(covOptional,COleVariant(saRet));
}

メモ Visual C++ 2005 では、共通言語ランタイムサポートコンパイラオプション (/clr:oldSyntax) を追加して、前のコードサンプルを正常にコンパイルする必要があります。共通言語ランタイムサポートコンパイラオプションを追加するには、次の手順に従います。

[ プロジェクト] をクリックし、[ ProjectName プロパティ] をクリックします。

注:ProjectName は、プロジェクトの名前のプレースホルダーです。
[構成プロパティ] を展開し、[全般] をクリックします。
右側のウィンドウで、 共通言語ランタイムのサポートプロジェクト設定で[共通言語ランタイムのサポート]、[古い構文](/clr:oldSyntax) の順にクリックして選択します。
[ダイヤルプラン (電話のコンテキスト)] ボックスで、[参照] をクリックして、ユーザーのダイヤルプランを見つけます。

共通言語ランタイムサポートコンパイラオプションの詳細については、次の Microsoft Developer Network (MSDN) Web サイトを参照してください。

https://msdn.microsoft.com/en-us/library/k8d11d4s.aspxこれらの手順は、記事全体に適用されます。
5. ダイアログボックスに戻り、[値の取得] をダブルクリックします。次のコードを置き換えます

void CAutoProjectDlg::OnBnClickedGetvalues()
{
// TODO: Add your control notification handler code here
}

置換後:

void CAutoProjectDlg::OnBnClickedGetvalues()
{
CWorksheets oSheets;
CWorksheet oSheet;
CRange oRange;
COleVariant covOptional(DISP_E_PARAMNOTFOUND,VT_ERROR);

// Make sure that Excel has been started.
if (oExcel.m_lpDispatch == NULL) {
AfxMessageBox("Excel has not been started.  Press button1 to start Excel.");
return;
}
// Get the first worksheet.
oSheets = oBook.get_Worksheets();
oSheet = oSheets.get_Item(COleVariant((short)1));
// Set the range of data to retrieve
   oRange = oSheet.get_Range(COleVariant("A1"),COleVariant("E5"));

// Get the data.
COleSafeArray saRet(oRange.get_Value(covOptional));

long iRows;
        long iCols;
        saRet.GetUBound(1, &iRows);
        saRet.GetUBound(2, &iCols);

CString valueString = "Array Data:\r\n";
long index[2];
// Loop through the data and report the contents.
for (int rowCounter = 1; rowCounter <= iRows; rowCounter++) {
for (int colCounter = 1; colCounter <= iCols; colCounter++) {
index[0]=rowCounter;
index[1]=colCounter;   
COleVariant vData;
saRet.GetElement(index,vData);
CString szdata(vData);
            valueString += szdata;
valueString += "\t";
}
valueString += "\r\n";
}
AfxMessageBox(valueString,MB_SETFOREGROUND,NULL);
}

Automation クライアントをテストする

F5 キーを押してサンプルプログラムをビルドして実行します。
[実行] をクリックします。プログラムは Excel を新しいブックで起動し、最初のワークシートのセル A1:E5 に配列の数値データを設定します。
[値の取得] をクリックします。プログラムは、セル A1:E5 のデータを新しい配列に取得し、結果をメッセージボックスに表示します。
[文字列で塗りつぶし] を選択し、[実行] をクリックしてセル A1:E5 に文字列データを入力します。
[値の取得] をクリックして、メッセージボックスに文字列値を表示します。

トラブルシューティング

TypeLib からクラスを追加ウィザードの [ファイル] オプションを使用して Excel オブジェクトライブラリのクラスラッパーを追加すると、オブジェクトライブラリを参照するときにエラーメッセージが表示されることがあります。この問題を回避するには、ファイルを参照する代わりに、オブジェクトライブラリの完全なパスとファイル名を入力します。

サンプルアプリケーションのビルド時に次のエラーメッセージが表示される場合は、CRange.h の "Variant DialogBox" を "Variant _DialogBox" に変更します。

警告 C4003: マクロ 'DialogBoxA' の実際のパラメーターが十分ではありません

MFC および Visual C++ 2005 または Visual C++ .NET から Excel を自動化して、配列を使用して範囲内のデータを入力または取得する方法

概要

Excel 用の Automation クライアントを作成する

Automation クライアントをテストする

トラブルシューティング

関連情報

その他のリソース