Microsoft Excel é um programa de planilha eletrônica popular que também cria tabelas e gráficos de todas as variedades . Parte do Microsoft Office , Excel torna os dados de visualização e análise rápida e fácil. No entanto, se você precisa criar um grande número de cartas, fazê-lo com a mão pode ser demorado e propenso a erros . Em vez disso , considere usar o Microsoft Visual Basic. NET , linguagem de programação da Microsoft novo e melhorado Visual Basic, para automatizar a tarefa . Sua integração embutida Excel torna esta uma brisa. Coisas que você precisa
Microsoft Excel ( desenvolvedor ou Professional Edition )
Microsoft Visual Basic. NET
Show Mais instruções
1
Abra o Visual Basic. NET e criar um novo projeto.
2
botão direito do mouse no projeto e escolha Add Reference. Vá até a aba COM e clique em Biblioteca de objetos do Microsoft Excel. Clique em OK .
3
Adicione código na função principal do seu projeto para criar uma nova instância do aplicativo Excel. Deve olhar como este :
Dim excelApp As New Microsoft.Office.Interop.Excel.Application ()
4
Adicione código para criar uma nova planilha . Por exemplo :
Dim wb Como Microsoft.Office.Interop.Excel.Workbook = excelApp.Workbooks.Add ()
5
Adicione código para recuperar a planilha principal da planilha . Por exemplo :
Dim folha Como Microsoft.Office.Interop.Excel.Worksheet = wb.ActiveSheet
6
Adicionar dados à planilha. Por exemplo, para definir o valor na célula superior esquerda da planilha ( célula A1 ) a 5 , a célula A2 a 8, e A3 a 4 , escreva o seguinte código:
sheet.Cells (1, 1). Valor = 5sheet.Cells (1, 2). Valor = 8sheet.Cells (1, 3). Valor = 4
Faça isso para todos os dados que você gostaria de usar em seu gráfico.
7
Adicione código para criar o gráfico :
gráfico Dim Microsoft.Office.Interop.Excel.Chart = sheet.Parent.Charts.Add () chart.ChartWizard (folha . Range (" A1: A3 " ) , Microsoft.Office.Interop.Excel.XlChartType.xl3DColumn , Excel.XlRowCol.xlColumns )
8
Adicione código para criar a série de dados para o gráfico :
Dim série Como Microsoft.Office.Interop.Excel.Series = chart.SeriesCollection (1) series.XValues = sheet.Range ("A1" , "A3" )
9
O gráfico está concluída. Você pode personalizá-lo ainda mais usando as funções fornecidas pelo Centro Office Developer do Microsoft Developers Network em http://msdn.microsoft.com/en-us/library/microsoft.office.interop.excel.chart (office.11) . Aspx