Microsoft Visual C# .NET, Microsoft Excel'den otomatikleþtirme

Bu makalede bir Otomasyon oluþturulmasý gösterilmiþtir Microsoft Visual C#. NET'i kullanarak, Microsoft Excel'in istemci.

Otomasyon Visual C# diðer uygulamalarý programsal olarak denetlemek için .NET gibi dillerde yazýlmýþ uygulamalarý izin veren bir iþlemdir. Excel otomasyonu, yeni bir çalýþma kitabý oluþturma, çalýþma kitabýna veri ekleme veya grafik oluþturma gibi iþlemleri izin verir. Excel ve diðer Microsoft Office uygulamalarý ile hemen hemen tüm kullanýcý arabirimi aracýlýðýyla el ile gerçekleþtirebileceði eylemleri de programsal olarak Otomasyon kullanarak gerçekleþtirilebilir.

Excel, nesne modeli aracýlýðýyla, programlý bu iþlevselliði sunar. Nesne modeli, sýnýflar ve Excel'in mantýksal bileþenlerine karþýlýk gelen hizmet yöntemleri topluluðudur. Örneðin, bir Uygulama nesnesi, bir çalýþma kitabý nesnesi ve her biri, Excel'in bu parça iþlevselliðini içeren bir çalýþma sayfasý nesnesi yok. Visual C# .NET nesne modeline eriþmek için <a0></a0>, bir proje baþvurusu için tür kitaplýðý ayarlayabilirsiniz.

Bu makalede, Visual C# .NET için uygun proje baþvurusu <a0>Excel</a0> türündeki kitaplýða nasýl gösterir ve Excel otomatikleþtirmek için örnek kodu saðlar.

Microsoft Excel'in bir Otomasyon istemcisi oluþtur

1. Microsoft Visual Studio .NET'i baþlatýn.
2. Dosya menüsünden Yeni ' yi týklatýn ve sonra Project ' i týklatýn. Windows uygulama Visual C# proje tiplerini seçin. Varsayýlan olarak, Form1 oluþturulur.
3. Microsoft Excel nesne kitaplýðý ' na bir baþvuru ekleyin. Bunu yapmak için þu adýmlarý izleyin:
   1. Proje) menüsünde Add Reference ' ý týklatýn.
   2. COM sekmesinde bulun Microsoft Excel nesne kitaplýðý, Seç ' i týklatýn.
      
      Not Microsoft Office 2003 Primary ýnterop Assemblies (Pýa) içerir. Microsoft Office XP Pýa içermez, ancak bunlar yüklenebilir. Office XP Pýa hakkýnda'daha fazla bilgi için Microsoft Knowledge Base'deki makaleyi görüntülemek üzere aþaðýdaki makale numarasýný týklatýn:
      328912  (http://support.microsoft.com/kb/328912/ ) Microsoft Office XP ana birlikte çalýþma derlemeleri (PIA) karþýdan yüklenebilir
   3. Seçimlerinizi kabul etmek için Tamam <a0>Baþvuru Ekle</a0> iletiþim kutusunda týklatýn. Seçtiðiniz kitaplýklar için sar?c?lar? oluþturmak isteyip istemediðiniz sorulursa, Evet'i týklatýn.
4. Görünüm menüsünde, araç kutusunu görüntülemek için araç seçin ve sonra da Form1'e bir düðme ekleyin.
5. Button1</a1> çift týklatýn. Formun kod penceresi görüntülenir.
6. Kod penceresinde aþaðýdaki kodu

   private void button1_Click(object sender, System.EventArgs e)
   {
   }
   					

   ile:

   private void button1_Click(object sender, System.EventArgs e)
   {
   	Excel.Application oXL;
   	Excel._Workbook oWB;
   	Excel._Worksheet oSheet;
   	Excel.Range oRng;
   
   	try
   	{
   		//Start Excel and get Application object.
   		oXL = new Excel.Application();
   		oXL.Visible = true;
   
   		//Get a new workbook.
   		oWB = (Excel._Workbook)(oXL.Workbooks.Add( Missing.Value ));
   		oSheet = (Excel._Worksheet)oWB.ActiveSheet;
   
   		//Add table headers going cell by cell.
   		oSheet.Cells[1, 1] = "First Name";
   		oSheet.Cells[1, 2] = "Last Name";
   		oSheet.Cells[1, 3] = "Full Name";
   		oSheet.Cells[1, 4] = "Salary";
   
   		//Format A1:D1 as bold, vertical alignment = center.
   		oSheet.get_Range("A1", "D1").Font.Bold = true;
   		oSheet.get_Range("A1", "D1").VerticalAlignment = 
   			Excel.XlVAlign.xlVAlignCenter;
   		
   		// Create an array to multiple values at once.
   		string[,] saNames = new string[5,2];
   		
   		saNames[ 0, 0] = "John";
   		saNames[ 0, 1] = "Smith";
   		saNames[ 1, 0] = "Tom";
   		saNames[ 1, 1] = "Brown";
   		saNames[ 2, 0] = "Sue";
   		saNames[ 2, 1] = "Thomas";
   		saNames[ 3, 0] = "Jane";
   		saNames[ 3, 1] = "Jones";
   		saNames[ 4, 0] = "Adam";
   		saNames[ 4, 1] = "Johnson";
   
           	//Fill A2:B6 with an array of values (First and Last Names).
   	        oSheet.get_Range("A2", "B6").Value2 = saNames;
   
   		//Fill C2:C6 with a relative formula (=A2 & " " & B2).
   		oRng = oSheet.get_Range("C2", "C6");
   		oRng.Formula = "=A2 & \" \" & B2";
   
   		//Fill D2:D6 with a formula(=RAND()*100000) and apply format.
   		oRng = oSheet.get_Range("D2", "D6");
   		oRng.Formula = "=RAND()*100000";
   		oRng.NumberFormat = "$0.00";
   
   		//AutoFit columns A:D.
   		oRng = oSheet.get_Range("A1", "D1");
   		oRng.EntireColumn.AutoFit();
   
   		//Manipulate a variable number of columns for Quarterly Sales Data.
   		DisplayQuarterlySales(oSheet);
   
   		//Make sure Excel is visible and give the user control
   		//of Microsoft Excel's lifetime.
   		oXL.Visible = true;
   		oXL.UserControl = true;
   	}
   	catch( Exception theException ) 
   	{
   		String errorMessage;
   		errorMessage = "Error: ";
   		errorMessage = String.Concat( errorMessage, theException.Message );
   		errorMessage = String.Concat( errorMessage, " Line: " );
   		errorMessage = String.Concat( errorMessage, theException.Source );
   
   		MessageBox.Show( errorMessage, "Error" );
   	}
   }
   
   private void DisplayQuarterlySales(Excel._Worksheet oWS)
   {
   	Excel._Workbook oWB;
   	Excel.Series oSeries;
   	Excel.Range oResizeRange;
   	Excel._Chart oChart;
   	String sMsg;
   	int iNumQtrs;
   
   	//Determine how many quarters to display data for.
   	for( iNumQtrs = 4; iNumQtrs >= 2; iNumQtrs--)
   	{
   		sMsg = "Enter sales data for ";
   		sMsg = String.Concat( sMsg, iNumQtrs );
   		sMsg = String.Concat( sMsg, " quarter(s)?");
   
   		DialogResult iRet = MessageBox.Show( sMsg, "Quarterly Sales?", 
   			MessageBoxButtons.YesNo );
   		if (iRet == DialogResult.Yes)
   			break;
   	}
   
   	sMsg = "Displaying data for ";
   	sMsg = String.Concat( sMsg, iNumQtrs );
   	sMsg = String.Concat( sMsg, " quarter(s)." );
   
   	MessageBox.Show( sMsg, "Quarterly Sales" );
   
   	//Starting at E1, fill headers for the number of columns selected.
   	oResizeRange = oWS.get_Range("E1", "E1").get_Resize( Missing.Value, iNumQtrs);
   	oResizeRange.Formula = "=\"Q\" & COLUMN()-4 & CHAR(10) & \"Sales\"";
   
   	//Change the Orientation and WrapText properties for the headers.
   	oResizeRange.Orientation = 38;
   	oResizeRange.WrapText = true;
   
   	//Fill the interior color of the headers.
   	oResizeRange.Interior.ColorIndex = 36;
   
   	//Fill the columns with a formula and apply a number format.
   	oResizeRange = oWS.get_Range("E2", "E6").get_Resize( Missing.Value, iNumQtrs);
   	oResizeRange.Formula = "=RAND()*100";
   	oResizeRange.NumberFormat = "$0.00";
   
   	//Apply borders to the Sales data and headers.
   	oResizeRange = oWS.get_Range("E1", "E6").get_Resize( Missing.Value, iNumQtrs);
   	oResizeRange.Borders.Weight = Excel.XlBorderWeight.xlThin;
   
   	//Add a Totals formula for the sales data and apply a border.
   	oResizeRange = oWS.get_Range("E8", "E8").get_Resize( Missing.Value, iNumQtrs);
   	oResizeRange.Formula = "=SUM(E2:E6)";
   	oResizeRange.Borders.get_Item( Excel.XlBordersIndex.xlEdgeBottom ).LineStyle 
   		= Excel.XlLineStyle.xlDouble;
   	oResizeRange.Borders.get_Item( Excel.XlBordersIndex.xlEdgeBottom ).Weight 
   		= Excel.XlBorderWeight.xlThick;
   
   	//Add a Chart for the selected data.
   	oWB = (Excel._Workbook)oWS.Parent;
   	oChart = (Excel._Chart)oWB.Charts.Add( Missing.Value, Missing.Value, 
   		Missing.Value, Missing.Value );
   
   	//Use the ChartWizard to create a new chart from the selected data.
   	oResizeRange = oWS.get_Range("E2:E6", Missing.Value ).get_Resize( 
   		Missing.Value, iNumQtrs);
   	oChart.ChartWizard( oResizeRange, Excel.XlChartType.xl3DColumn, Missing.Value,
   		Excel.XlRowCol.xlColumns, Missing.Value, Missing.Value, Missing.Value, 
   		Missing.Value, Missing.Value, Missing.Value, Missing.Value );
   	oSeries = (Excel.Series)oChart.SeriesCollection(1);
   	oSeries.XValues = oWS.get_Range("A2", "A6");
   	for( int iRet = 1; iRet <= iNumQtrs; iRet++)
   	{
   		oSeries = (Excel.Series)oChart.SeriesCollection(iRet);
   		String seriesName;
   		seriesName = "=\"Q";
   		seriesName = String.Concat( seriesName, iRet );
   		seriesName = String.Concat( seriesName, "\"" );
   		oSeries.Name = seriesName;
   	}														  
   	
   	oChart.Location( Excel.XlChartLocation.xlLocationAsObject, oWS.Name );
   
   	//Move the chart so as not to cover your data.
   	oResizeRange = (Excel.Range)oWS.Rows.get_Item(10, Missing.Value );
   	oWS.Shapes.Item("Chart 1").Top = (float)(double)oResizeRange.Top;
   	oResizeRange = (Excel.Range)oWS.Columns.get_Item(2, Missing.Value );
   	oWS.Shapes.Item("Chart 1").Left = (float)(double)oResizeRange.Left;
   }
   					

7. <a0>Kod</a0> penceresinin en üstüne gidin. Kullanma yönergeleri listesinin sonuna aþaðýdaki satýrý ekleyin:

   using Excel = Microsoft.Office.Interop.Excel;
   using System.Reflection; 
   					

Otomasyon istemci sýnayýn.

1. Oluþturmaya ve programý çalýþtýrmak için F5 tuþuna basýn.
2. Button1 týklatýn. Program, Excel'in baþlatýr ve yeni bir çalýþma sayfasýndaki verileri doldurur.
3. Üç aylýk satýþ veri girmek isteyip istemediðiniz sorulduðunda, Evet ' i týklatýn. Üç aylýk verilerine baðlantýlý BIR grafik, çalýþma sayfasýna eklenir.

Daha fazla bilgi için aþaðýdaki Microsoft Developer Network (MSDN) Web sitesini ziyaret edin: