Aprender a manipular os dados do Microsoft Office Excel pode lhe poupar tempo quando é necessário modificar os valores das células pasta de trabalho de um aplicativo Visual Basic. Excel é um aplicativo de planilha eletrônica que faz parte da suíte Microsoft Office. Microsoft Visual Basic.NET é uma linguagem de programação orientada a objeto que é relativamente fácil de aprender e usar. Em poucos passos você pode escrever código VB.NET para modificar valores de células em uma planilha do Excel . Instruções
1

Crie uma nova planilha do Excel e adicionar os seguintes dados:

Type " Campo1 " em " A1 ", " campo2 " em " B1 " e " Campo3 " em "C1"

Tipo "1" em "A2" , "2" em "B2" e "3" em "C2"

salvar no "C: \\ " . como " manipulateExcel.xls " .
2

Inicie o Microsoft Visual Basic , clique no menu " Arquivo" e selecione "New Project " . Clique em " Windows Forms Application " e selecione " OK" . Clique duas vezes em "Button" no painel "Tools" para adicionar um novo botão ao seu formulário.

Clique duas vezes em "Button1 " no formulário para abrir o módulo " Form1.vb "
< . br>
3

Copie e cole o seguinte código em " Public Class Form1 " para criar uma conexão com o livro do Excel.

conn privada as String = "Provider = Microsoft.Jet.OLEDB . 4.0; "& _

" Data Source = C: \\ manipulateExcel.xls ; "& _

" Extended Properties = " " Excel 8.0 ; HDR = YES "" " < br >
4

Copie e cole o seguinte código em " Button1_Click " para abrir " manipulateExcel.xls " e editar os dados da célula .
5

Dim as New OleDbConnection XLConnection (conn )

Dim XLDataAdapter As New OleDbDataAdapter ("Select * From [ Sheet1 $ ]" , XLConnection )

Dim XLDataSet Como DataSet = New DataSet ()

XLDataAdapter.Fill ( XLDataSet , "Sheet1" )

XLDataAdapter.UpdateCommand = New OleDbCommand "UPDATE [ Sheet1 $] SET campo1 = ? , campo2 = ? , campo3 =?" (_

, XLConnection )

XLDataAdapter.UpdateCommand.Parameters.Add ("@ campo1 " , OleDbType.Numeric ) . SourceColumn = " campo1 "

XLDataAdapter.UpdateCommand.Parameters.Add ("@ campo2 " , OleDbType.Currency ) . SourceColumn = " campo2 "

XLDataAdapter.UpdateCommand.Parameters.Add ("@ field3 " , OleDbType.Currency ) . SourceColumn = " campo3 "

XLDataSet.Tables (0) . linhas (0) ( " campo1 ") = 1000

XLDataSet.Tables (0) . linhas (0) ( " campo2 ") = 10.1

XLDataSet.Tables (0) . linhas (0) ( " field3 ") = 500,1

XLDataAdapter.Update ( XLDataSet , " Sheet1 " )

XLConnection.Close ()
6

Pressione" F5 " para executar o aplicativo .