Gewusst wie: Bearbeiten von Excel-Zelle-Daten in Visual Basic

Lernen, wie man Microsoft Office Excel manipulieren Daten gespeichert werden können Werte Wenn Sie Arbeitsmappenzelle ändern müssen aus einer Visual Basic-Anwendung. Excel ist ein Tabellenkalkulations-Programm, das Teil der Microsoft Office-Suite ist. Microsoft Visual Basic ist eine objektorientierte Programmiersprache, die relativ leicht zu erlernen und anzuwenden ist. In wenigen Schritten schreiben Sie VB-Code, um die Werte der Zellen in einer Excel-Arbeitsmappe zu ändern.

Anweisungen

1 Erstellen Sie ein neues Excel-Arbeitsblatt und fügen Sie die folgenden Daten:

Typ "Feld1" in "A1", "Feld2" in "B1" und "Feld3" in "C1".

Geben Sie "1" in "A2", "2" in "B2" und "3" in "C2"

Speichern sie "C:\" als "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-Anwendung" und wählen Sie "OK". Doppelklicken Sie im Bereich "Tools" auf dem Formular eine neue Schaltfläche hinzufügen "Button".

Doppelklicken Sie "Button1" auf Ihr Formular aus, um das Modul "Form1.vb" zu öffnen.

3 Kopieren Sie und fügen Sie den folgenden Code unter "Public Class Form1" eine Verbindung zu Ihrer Excel-Arbeitsmappe erstellen.

Private Conn As String = "Provider=Microsoft.Jet.OLEDB.4.0;" & _

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

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

Kopieren Sie und fügen Sie den folgenden Code unter "Button1_Click" zu "manipulateExcel.xls" öffnen und bearbeiten Sie die Daten in Zellen.

5 Dim XLConnection als neue OleDbConnection(conn)

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

Dim XLDataSet As DataSet = New DataSet()

XLDataAdapter.Fill(XLDataSet, "Sheet1")

XLDataAdapter.UpdateCommand = New OleDbCommand( _

"UPDATE [Sheet1$] SET field1 = ?, field2=?, field3=?", XLConnection)

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

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

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

XLDataSet.Tables(0).Rows(0)("field1") = 1000

XLDataSet.Tables(0).Rows(0)("field2") = 10.1

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

XLDataAdapter.Update(XLDataSet, "Sheet1")

XLConnection.Close()6

Drücken Sie die Taste "F5", um die Anwendung auszuführen.