May 1
Imparare a manipolare i dati di Microsoft Office Excel possono risparmiare tempo quando è necessario modificare i valori delle celle 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.
1 Creare un nuovo foglio di calcolo Excel e aggiungere i dati seguenti:
Tipo "Field1" in "A1", "Campo2" in "B1" e "Field3" in "C1".
Tipo "1" in "A2", "2" in "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 "Button" nel riquadro "Strumenti" per aggiungere un nuovo pulsante al form.
Fare doppio clic su "Button1" sul modulo per aprire il modulo "Form1.vb".
3 Copiare e incollare il seguente codice in "Public Class Form1" per creare una connessione alla cartella di lavoro di Excel.
conn privata As String = "Provider = Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=C:\manipulateExcel.xls;" & _
"Extended Properties =" "Excel 8.0; HDR = YES" ""
4 Copiare e incollare il seguente codice sotto "Button1_Click" per aprire "manipulateExcel.xls" e modificare i dati delle celle.
5 Dim XLConnection come nuovo OleDbConnection (conn)
Dim XLDataAdapter As New OleDbDataAdapter("Select * From [Sheet1$]", XLConnection)
Dim XLDataSet Come DataSet = new DataSet ()
XLDataAdapter.Fill (XLDataSet, "Sheet1")
XLDataAdapter.UpdateCommand = Nuovo OleDbCommand (_
"UPDATE [Foglio1 $] SET field1 =?, Field2 = ?, campo3 =?", XLConnection)
XLDataAdapter.UpdateCommand.Parameters.Add ( "@ field1", OleDbType.Numeric) .SourceColumn = "field1"
XLDataAdapter.UpdateCommand.Parameters.Add ( "@ field2", OleDbType.Currency) .SourceColumn = "field2"
XLDataAdapter.UpdateCommand.Parameters.Add ( "@ campo3", OleDbType.Currency) .SourceColumn = "Field3"
XLDataSet.Tables (0) .Rows (0) ( "campo1") = 1000
XLDataSet.Tables (0) .Rows (0) ( "field2") = 10.1
XLDataSet.Tables (0) .Rows (0) ( "campo3") = 500.1
XLDataAdapter.Update (XLDataSet, "Sheet1")
XLConnection.Close ()
6 Premere il tasto "F5" per eseguire l'applicazione.