Lernen, wie man Microsoft Office Excel-Daten manipulieren können Sie Zeit sparen , wenn Sie Arbeitsmappe Zellwerte aus einer Visual Basic-Anwendung ändern müssen . Excel ist ein Tabellenkalkulationsprogramm , die Teil der Microsoft Office-Suite ist . Microsoft Visual Basic.NET ist eine objektorientierte Programmiersprache, die relativ einfach zu erlernen und zu bedienen ist. In wenigen Schritten können Sie schreiben VB.NET-Code zu Zelle in einer Excel- Arbeitsmappe ändern. Anleitung
1
Neues Excel-Tabelle und fügen Sie die folgenden Daten:
Type " Feld1 " in " A1 ", " Feld2 " in " B1 " und " Field3 " in . "C1"
Typ "1" in "A2" , "2" in "B2" und "3 " in " C2"
Speichern Sie es auf "C: \\ ", wie " manipulateExcel.xls " .
2
starten Sie Microsoft Visual Basic, klicken Sie auf das Menü "Datei" und wählen Sie " Neues Projekt" . Klicken Sie auf " Windows Forms Application" und wählen Sie " OK". Klicken Sie doppelt auf "Button" auf der "Tools" Bereich , um eine neue Schaltfläche, um Ihre Form hinzufügen.
Doppelklicken Sie auf " Button1 " auf dem Formular , um den " Form1.vb "-Modul zu öffnen.
3
Kopieren Sie den folgenden Code unter " Public Class Form1 ", um eine Verbindung zu Ihrer Excel-Arbeitsmappe zu erstellen.
Privat conn As String = "Provider = Microsoft.Jet.OLEDB . 4.0; "& _
" Data Source = C: \\ manipulateExcel.xls ; "& _
" Extended Properties = "" Excel 8.0 ; HDR = YES "" "
4
Kopieren Sie den folgenden Code unter " Button1 " bis " manipulateExcel.xls " öffnen und bearbeiten Sie die Zelle Daten .
5
Dim XLConnection As New OleDbConnection (conn )
Dim XLDataAdapter As New OleDbDataAdapter ( "SELECT * FROM [ Tabelle1 $] " , XLConnection )
Dim XLDataSet As DataSet = New DataSet ()
XLDataAdapter.Fill ( XLDataSet , " Tabelle1 " )
XLDataAdapter.UpdateCommand = New OleDbCommand (_
" UPDATE [ Tabelle1 $] SET Feld1 = ? , Feld2 = ? , field3 = ? " , XLConnection )
< p> XLDataAdapter.UpdateCommand.Parameters.Add ( "@ Feld1 " , OleDbType.Numeric ) . SourceColumn = " Feld1 "
XLDataAdapter.UpdateCommand.Parameters.Add ( "@ field2 " , OleDbType.Currency ) . SourceColumn = " Feld2 "
XLDataAdapter.UpdateCommand.Parameters.Add ( "@ field3 " , OleDbType.Currency ) . SourceColumn = " field3 "
XLDataSet.Tables (0) . Rows ( 0) ( " Feld1 " ) = 1000
XLDataSet.Tables (0) . Rows ( 0) ( " Feld2 " ) = 10,1
XLDataSet.Tables (0) . Rows ( 0) ( " field3 " ) = 500,1
XLDataAdapter.Update ( XLDataSet " Tabelle1 " )
XLConnection.Close ()
6
Presse " F5 " um die Anwendung auszuführen .