Sehr geehrter Community,
mir is bewusst das bereits ein Artikel zu diesem Thema existiert.
Nur finde ich keine Hilfestellung zu meinem Problem.
Wie schon leicht oben angeschnitten, möchte ich den Inhalt aus den Textboxen in eine freie Zelle(exel 2010) exportiert haben. im Moment ist es so, das die bisherigen Zellen überschrieben werden.
Zu meinem eigentlich Problem.
Durch googeln hab ich zu diesem Thema endlosse lösungen gefunden. nur kennt bei mir visual studio 2012 diese ganzen Methoden nicht
mir is bewusst das bereits ein Artikel zu diesem Thema existiert.
Nur finde ich keine Hilfestellung zu meinem Problem.
Wie schon leicht oben angeschnitten, möchte ich den Inhalt aus den Textboxen in eine freie Zelle(exel 2010) exportiert haben. im Moment ist es so, das die bisherigen Zellen überschrieben werden.
Zu meinem eigentlich Problem.
Durch googeln hab ich zu diesem Thema endlosse lösungen gefunden. nur kennt bei mir visual studio 2012 diese ganzen Methoden nicht
VB.NET-Quellcode
- imports Excel = Microsoft.Office.Interop.Excel
- Public Class Form1
- Private xlApp As Excel.Application
- Private xlWorkbook As Excel.Workbook
- Private xlWorksheet As Excel.Worksheet
- Private zaehler As Integer = 2
- Private Sub button_eintragNeu_Click(sender As Object, e As EventArgs) Handles button_eintragNeu.Click
- Dim xlapp As New Microsoft.Office.Interop.Excel.Application
- xlapp.Visible = False
- xlWorkbook = xlapp.Workbooks.Open("D:\adressenverwaltung\adressen.xlsx")
- xlWorksheet = xlWorkbook.Sheets("Tabelle1")
- 'Überschriften
- xlWorksheet.Range("A1").Value = "Anrede"
- xlWorksheet.Range("B1").Value = "Nachname"
- xlWorksheet.Range("C1").Value = "Vorname"
- xlWorksheet.Range("D1").Value = "Beruf"
- xlWorksheet.Range("E1").Value = "Straße"
- xlWorksheet.Range("F1").Value = "PLZ"
- xlWorksheet.Range("G1").Value = "Ort"
- 'Fettgedruckt
- xlWorksheet.Range("A1:G1").Font.Bold = True
- 'schreibt die Textboxen in die jeweiligen Spalten
- xlWorksheet.Cells(zaehler, 1).Value = Cbox_Anrede.Text
- xlWorksheet.Cells(zaehler, 2).Value = txt_nachname.Text
- xlWorksheet.Cells(zaehler, 3).Value = txt_vorname.Text
- xlWorksheet.Cells(zaehler, 4).Value = txt_beruf.Text
- xlWorksheet.Cells(zaehler, 5).Value = txt_straße.Text
- xlWorksheet.Cells(zaehler, 6).Value = txt_plz.Text
- xlWorksheet.Cells(zaehler, 7).Value = txt_ort.Text
- zaehler += 1
- 'Speichern und schließen
- xlWorkbook.Save()
- xlWorkbook.Close()
- xlapp.Quit()[/url]
- End Sub
- End Class
Dieser Beitrag wurde bereits 3 mal editiert, zuletzt von „freed1990“ ()