MFC ve Visual C++ 2005 veya Visual C++ .NET doldurun veya dizileri kullanarak, bir aralýktaki verileri elde etmek için Excel'den otomatikleþtirme

Bu adým adým makalede, Visual C++ 2005 veya Visual C++ .NET doldurun ve dizileri kullanýlarak multi-cell aralýktaki deðerleri almak için Microsoft Excel'in otomatik hale getirmek gösterilmiþtir.

Excel'in bir Otomasyon istemcisi oluþtur

Bir kerede bir hücre doldurma olmadan multi-cell aralýðý doldurmak için <a0></a0>, bir <a0>Aralýk</a0> nesnesinin Value özelliði için iki boyutlu bir dizi ayarlayabilirsiniz. Benzer þekilde, birden çok hücre deðerleri için iki boyutlu bir dizi ayný anda Value özelliði kullanarak alabilirsiniz. Aþaðýdaki adýmlarda, ayarlama hem iki boyutlu diziler kullanarak veri almak için bu iþlem gösterilmektedir.

1. Temel bir otomasyon istemci oluþturmak için aþaðýdaki Microsoft Bilgi Bankasý makalesinde "Bir otomasyon istemci oluþturma" bölümündeki adýmlarý izleyin:
   307473  (http://support.microsoft.com/kb/307473/EN-US/ ) Visual C++ .NET'den Office Otomasyonu için bir tür kitaplýðý nasýl kullanýlýr
   3. Adýmda, forma ikinci bir düðme ve bir onay kutusu ekleyin. IDC_GETVALUES ve Deðerleri almak için resim yazýsý düðmesini KIMLIÐINI deðiþtirin. IDC_CHECK ve resim yazýsý dize ile doldurmak için onay kutusunu KIMLIÐINI deðiþtirin.
   
   Makalenin 4. adýmda, Excel 2002, Office XP otomatikleþtirme "Microsoft Excel 10.0 Nesne Kitaplýðý" seçin. Excel 2002 için varsayýlan konum C:\Program Files\Microsoft Office\Office10\Excel.exe ' dir. Veya, Microsoft Office Excel 2003 otomatikleþtirme "Microsoft Excel 11.0 Nesne Kitaplýðý" seçin. Excel 2003 için varsayýlan konum C:\Program Files\Microsoft Office\Office11\Excel.exe ' dir. Aþaðýdaki Microsoft Excel arabirimleri seçin:
   • _Application
   • _Workbook
   • _Worksheet
   • Aralýk
   • Çalýþma kitaplarýný
   • ÇalýþmaSayfalarý
   Adým 6'da, aþaðýdaki # include Autoprojectdlg.h doðrudan bir kez # Pragma yönergesi sonra ekleyin:

   #include "CApplication.h"
   #include "CRange.h"
   #include "CWorkbook.h"
   #include "CWorkbooks.h"
   #include "CWorksheet.h"
   #include "CWorksheets.h"
   					

2. Aþaðýdaki iki ortak üye deðiþkeni CAutoProjectDlg sýnýfýna ekleyin:

   CApplication oExcel;
   CWorkbook oBook;
   					

3. Iletiþim kutusunda, IDC_CHECK ' ý sað týklatýn ve Deðiþken Ekle'yi seçin. Deðiþken m_bFillWithStrings ad ve son ' u týklatýn.
4. Iletiþim kutusunda, Çalýþtýr ' ý çift týklatýn ve aþaðýdaki kodu yerine

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

   ile:

   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));
   }
   					

   Not Visual C++ 2005, ortak dil çalýþma zamaný desteðini derleyici seçeneði eklemeniz gerekir (/ clr:oldSyntax) baþarýyla önceki kod örneðini derlemek için. Ortak dil çalýþma zamaný desteðini derleyici seçeneði eklemek için aþaðýdaki adýmlarý izleyin:
   1. Project ' i týklatýn ve sonra ProjectName özellikler ' i týklatýn.
      
      NotProjectName projenin adý için bir yer tutucudur.
   2. Yapýlandýrma özellikleri ' ni geniþletin ve sonra Genel ' i týklatýn.
   3. Sað bölmede, seçmek için týklatýn ortak dil çalýþma zamaný modülü ve Destek, eski sözdizimi (/ clr:oldSyntax)Common Language Runtime desteði proje ayarlarý.
   4. ' I týklatýn (Uygula) ve sonra Tamam ' ý týklatýn.
   Ortak dil çalýþtýrma hakkýnda daha fazla bilgi için aþaðýdaki Microsoft Developer Network (MSDN) Web sitesini ziyaret edin derleyici seçenekleri destekler:
   http://msdn2.microsoft.com/en-us/library/k8d11d4s.aspx (http://msdn2.microsoft.com/en-us/library/k8d11d4s.aspx)
   Bu adýmlar, tüm makaleyi için geçerlidir.
5. Iletiþim kutusuna dönmek ve Deðerleri Al'ý çift týklatýn. Aþaðýdaki kodu yerine

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

   ile:

   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);
   }
   					

Otomasyon istemci sýnayýn.

1. Oluþturmak ve örnek program çalýþtýrmak için F5 tuþuna basýn.
2. Çalýþtýr ' ý týklatýn. Program, Excel yeni bir çalýþma kitabýyla baþlatýr ve sayýsal veri dizisi ile ilk çalýþma sayfasýnýn hücrelerini A1:E5 doldurur.
3. Deðerleri Al ' ý týklatýn. Program, yeni bir dizi hücre A1:E5 verileri alýr ve sonuçlarý bir ileti kutusu içinde görüntüler.
4. Dolgu dizeler'With [NULL]'ý seçin ve hücre A1:E5 dize verilerle doldurmak için Çalýþtýr ' ý týklatýn.
5. Dize deðerlerini bir ileti kutusunda görüntülenecek Deðerleri Al ' ý týklatýn.

SORUN GÝDERME

Add Class Kimden TypeLib sihirbazda Dosya seçeneðini kullanarak Excel nesne kitaplýðý için sýnýf sar?c?lar? eklerseniz, nesne kitaplýðýna göz attýklarýnda, bir hata iletisi alabilirsiniz. Bu sorunun oluþmamasý için <a0></a0>, dosya için gözatma yerine nesne kitaplýðýna tam yolunu ve dosya adýný yazýn. Ek bilgi için, Microsoft Bilgi Bankasý'ndaki makaleyi görüntülemek üzere aþaðýdaki makale numarasýný týklatýn: Örnek uygulama oluþturduðunuzda aþaðýdaki hata iletisini alýrsanýz, "Ýletiþim kutusu Variant", "Variant _DialogBox" CRange.h deðiþtirin: Bu hatanýn nedeni hakkýnda daha fazla bilgi için aþaðýdaki Microsoft Knowledge Base makalesine bakýn:

Daha fazla bilgi için bkz:, aþaðýdaki Microsoft Developer Network (MSDN) Web sitesi: Diziler, ayarlamak ve almak için kullanma hakkýnda daha fazla bilgi için Visual Studio'nun önceki sürümleriyle verileri Excel, aþaðýdaki Knowledge Base makalelerine bakýn: