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

Artigo
06/20/2023
Aplica-se a:

Microsoft Excel

Resumo

Este artigo demonstra como criar um cliente de Automatização para o Microsoft Excel através do Microsoft Visual C# .NET.

Mais Informações

A automatização é um processo que permite que as aplicações escritas em idiomas como Visual C# .NET controlem programaticamente outras aplicações. A automatização no Excel permite-lhe efetuar ações 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 ações que pode realizar manualmente através da interface de utilizador também podem ser executadas através de programação através da Automatização.

O Excel expõe esta funcionalidade programática através de um modelo de objeto. O modelo de objeto é uma coleção de classes e métodos que servem como homólogos para os componentes lógicos do Excel. Por exemplo, existe um objeto Application, um objeto Workbook e um objeto de Worksheet, cada um deles com a funcionalidade dessas partes do Excel. Para aceder ao modelo de objeto a partir de Visual C# .NET, pode definir uma referência de projeto para a biblioteca de tipos.

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

Criar um Cliente de Automatização para o Microsoft Excel

Inicie o Microsoft Visual Studio .NET.
No menu Ficheiro, clique em Novo e, em seguida, clique em Projeto. Selecione Aplicação do Windows a partir dos tipos de Projeto Visual C#. O formulário1 é criado por predefinição.
Adicione uma referência à Biblioteca de Objetos do Microsoft Excel. Para tal, siga estes passos:
1. No menu Projeto, clique em Adicionar Referência.
2. No separador COM, localize Biblioteca de Objetos do Microsoft Excel e clique em Selecionar.
Nota O Microsoft Office 2003 inclui Conjuntos de Interojuntas Principais (PIAs). O Microsoft Office XP não inclui PIAs, mas estes podem ser transferidos.
1. Clique em OK na caixa de diálogo Adicionar Referências para aceitar as suas seleções. Se lhe for pedido para gerar embrulhos para as bibliotecas que selecionou, clique em Sim.
No menu Ver, selecione Caixa de Ferramentas para apresentar a caixa de ferramentas e, em seguida, adicione um botão ao Formulário1.
Faça duplo clique em Botão1. A janela de código do formulário é exibida.

Na janela do 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;
}

Desloco-se para a parte superior da janela do código. Adicione a linha seguinte ao fim da lista de utilização de diretivos:
```
using Excel = Microsoft.Office.Interop.Excel;
using System.Reflection; 
```

Testar o Cliente de Automatização

Prima F5 para criar e executar o programa.
Clique em Botão1 no formulário. O programa inicia o Excel e preenche os dados numa nova livro.
Quando lhe for pedido para introduzir dados de vendas trimestrais, clique em Sim. Um gráfico que está ligado a dados trimenales é adicionado à mesma.

Referências

Para obter mais informações, consulte o Web site do Microsoft Developer Network (MSDN).