Gewusst wie: übergeben Sie Daten nach Excel aus Visual Basic

Microsoft Office Excel und Visual Basic sind sehr beliebt. Programmierer verwenden oft Excel exportieren Sie Daten aus ihre VB-Anwendungen, die dem Nutzer mehr Möglichkeiten zur Datenanalyse gewährt. In VB können Sie die Microsoft Excel-Objektbibliothek erstellen oder öffnen Sie Excel-Arbeitsmappen und Speichern von Daten zu ihnen aus Ihrem VB-Programm. Als erstes müssen Sie einen Verweis zur Bibliothek hinzufügen; dann können Sie Excel-Steuerelement die Anwendungsobjekte.

Anweisungen

1 Starten Sie Microsoft Visual Basic Express, klicken Sie auf neues Projekt im linken Bereich des Bildschirms und wählen Sie Windows Forms-Anwendung. Klicken Sie auf "OK".

2 Doppelklicken Sie die TextBox auf der Toolbox-Bereich auf dem Formular ein neues Textfeld-Steuerelement hinzufügen. Fügen Sie ein zweites Textfeld und eine Schaltfläche, mit der gleichen Technik.

3 Klicken Sie im Menü Projekt, und wählen Sie "< ProjectNameProperties >". Klicken Sie auf Verweise, und wählen Sie hinzufügen. Wählen Sie COM und klicken Sie auf "Microsoft Excel < Versionsnummer > Object Library". Klicken Sie auf "OK".

4 Doppelklicken Sie auf Button1, um das Click-Ereignis für die Schaltfläche öffnen. Geben Sie den folgenden Code in der ersten Zeile des Moduls an den Microsoft Office-Namespace deklarieren:

Microsoft.Office.Interop importiert

5 Kopieren Sie und fügen Sie den folgenden Code zum Erstellen einer neuen Excel-Arbeitsmappe, und fügen den Text im Feld Werte in das Arbeitsblatt:

Dim xlBook As New Excel.Application

XLapp.Visible = True

Dim XLwks As Excel.Workbooks = XLapp.Workbooks

Dim XLwk As Excel.Workbook = XLwks.Add

Dim XLshts As Excel.Sheets = XLwk.Worksheets

Dim XLsht As Excel.Worksheet = XLshts("Sheet1")

XLsht.Range("A1").Value = Me.TextBox1.Text.ToString

XLsht.Range("A2").Value = Me.TextBox2.Text.ToString

XLsht.SaveAs("C:\excelBk.xlsx")6

Drücken Sie "F5" um das Programm ausführen, und geben Text in das erste Textfeld. Geben Sie Text in das zweite Textfeld ein. Drücken Sie "Button1", um die Informationen in den Textfeldern an die Excel-Arbeitsmappe gespeichert in C:\excelBk.xlsx übergeben.