Como automatizar o Microsoft Excel a partir do Microsoft Visual C# .NET

Este artigo demonstra como criar uma automatização de cliente para o Microsoft Excel utilizando o Visual C# Microsoft. NET.

A automatização é um processo que permite que aplicações escritas em linguagens como Visual C# .NET controlem programaticamente outras aplicações. Automatização para o Excel permite-lhe efectuar acções tais como criar um novo livro, adicionar dados ao livro ou criar gráficos. Com o Excel e outras aplicações do Microsoft Office, praticamente todas as acções que pode executar manualmente através da interface do utilizador também podem ser executadas programaticamente utilizando a automatização.

Excel expõe esta funcionalidade programática através de um modelo de objecto. O modelo de objecto é um conjunto de classes e métodos que servem como correspondentes aos componentes lógicos do Excel. Por exemplo, existe um objecto de aplicação , um objecto de livro e um objecto de folha de cálculo , cada um dos quais contêm a funcionalidade dessas partes do Excel. Para aceder ao modelo de objecto a partir do Visual C#. NET, pode definir uma referência de projecto à biblioteca de tipos.

Este artigo demonstra como definir a referência de projecto adequado para a biblioteca de tipo Excel para o Visual C# .NET e fornece código de exemplo para automatizar o Excel.

Criar um cliente de automatização do Microsoft Excel

1. Inicie o Microsoft Visual Studio NET..
2. No menu ficheiro , clique em Novo e, em seguida, clique em projecto . Seleccione os tipos de projecto do Visual C# Aplicação do Windows . É criado o Form1 por predefinição.
3. Adicione uma referência para o Microsoft Excel Object Library . Para o fazer, siga estes passos:
   1. No menu projecto , clique em Add Reference .
   2. No separador COM , localize Microsoft Excel Object Library e clique em Seleccionar .
      
      Nota O Microsoft Office 2003 inclui Primary Interop Assemblies (PIAs). Microsoft Office XP não inclui PIAs, mas pode ser transferidos. Para obter mais informações sobre PIAs do Office XP, clique no número de artigo que se segue para visualizar o artigo na Microsoft Knowledge Base:
      328912  (http://support.microsoft.com/kb/328912/ ) Microsoft Office XP principais interop assemblies (PIAs) estão disponíveis para transferência
   3. Clique em OK na caixa de diálogo Adicionar referências para aceitar as selecções. Se for pedido para gerar wrappers para as bibliotecas que seleccionou, clique em Sim .
4. No menu Ver , seleccione a caixa de ferramentas para visualizar a caixa de ferramentas e, em seguida, adicione um botão ao Form1.
5. Faça duplo clique em Button1 . Aparece a janela código para o formulário.
6. Na janela de código, substitua o seguinte código

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

   com:

   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. Desloque-se para o início da janela de código. Adicionar a seguinte linha no fim da lista de directivas utilizando :

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

Testar o cliente de automatização

1. Prima F5 para criar e executar o programa.
2. Clique em Button1 no formulário. O programa inicia o Excel e preenche dados numa nova folha de cálculo.
3. Quando for pedido para introduzir dados de vendas trimestrais, clique em Sim . Um gráfico ligado aos dados trimestrais é adicionado à folha de cálculo.

Para obter mais informações, visite o seguinte Microsoft Developer Network) Web site da MSDN: