Home Hardware Networking Programmazione Software Domanda Sistemi
Conoscenza Informatica >> software >> Microsoft Access >> .

Come manipolare Excel dati delle celle in Visual Basic

Imparare a manipolare i dati di Microsoft Office Excel consente di risparmiare tempo quando si ha bisogno di modificare i valori delle celle della cartella di lavoro da un'applicazione Visual Basic. Excel è un foglio di calcolo che fa parte della suite Microsoft Office . Microsoft Visual Basic.NET è un linguaggio di programmazione orientato agli oggetti che è relativamente facile da imparare e da usare . In pochi passi è possibile scrivere codice VB.NET per modificare i valori delle celle in una cartella di lavoro di Excel . Istruzioni
1

Creare un nuovo foglio di calcolo Excel e aggiungere i seguenti dati :

Tipo " Campo1 " a " A1 " , " Campo2 " in " B1 " e " Field3 " in . "C1"

Tipo " 1 " a " A2 " , "2" a " B2 " e "3" in " C2 "

Salva in " C : \\ ", come " manipulateExcel.xls ".
2

Avviare Microsoft Visual Basic , fare clic sul menu " File " e selezionare "Nuovo progetto" . Fare clic su " Applicazione Windows Form " e selezionare "OK" . Fare doppio clic su "Pulsante" nel riquadro " Strumenti " per aggiungere un nuovo pulsante al form .

Doppio clic su " Button1 " sul modulo per aprire il modulo " Form1.vb " .


3

Copia e incolla il seguente codice in " Public Class Form1 " per creare un collegamento alla cartella di lavoro di Excel .

conn privato As String = "Provider = Microsoft.Jet.OLEDB . 4.0; "& _

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

" Extended Properties = " " Excel 8.0 ; HDR = YES " " "

4

Copia e incolla il seguente codice in " Button1_Click " per aprire " manipulateExcel.xls " e modificare i dati delle celle .
5

Dim XLConnection As New OleDbConnection ( conn )

Dim XLDataAdapter As New OleDbDataAdapter ( "SELECT * FROM [ Foglio1 $ ] " , XLConnection ) per

Dim XLDataSet Come DataSet = New DataSet ( ) per

XLDataAdapter.Fill ( XLDataSet , " Foglio1 " ) per

XLDataAdapter.UpdateCommand = New OleDbCommand ( _

"UPDATE [ Foglio1 $ ] SET campo1 = ? , campo2 = ? , campo3 = ? " , XLConnection ) per

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

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

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

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

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

XLDataSet.Tables (0). righe ( 0 ) ( " field3 " ) = 500.1

XLDataAdapter.Update ( XLDataSet , " Foglio1 " ) per

XLConnection.Close ( ) economici

6 Premere il tasto" F5 " per eseguire l'applicazione .

 

software © www.354353.com