Daten aus Combobox und Textbox per Button1.Click in ExcelDatenBlatt übergeben

  • VB.NET

Es gibt 23 Antworten in diesem Thema. Der letzte Beitrag () ist von tulla.

    @tulla: und @sterat:
    Ich habe jetzt einen lauffähigen Quellcode erstellt (zum erstenmal mit Interop gewerkt...):
    Spoiler anzeigen

    VB.NET-Quellcode

    1. Option Strict On
    3. Imports Microsoft.Office.Interop
    4. Imports Microsoft.Office.Interop.Excel
    5. Imports Microsoft.Office.Core
    6. Imports System.IO
    7. Imports System.Reflection.Assembly
    9. Public Class Form1
    11. Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
    12. Dim ExcelPfad As String = GetExecutingAssembly.Location.Remove(GetExecutingAssembly.Location.LastIndexOf("\"c))
    13. Dim ExcelDateiName As String = Path.Combine(ExcelPfad, "Mappe1.xlsx")
    14. Dim ExcelTabelleName As String = "Tabelle1"
    15. Dim xlsAppl As Excel.Application
    16. Dim xlsMappe As Excel.Workbook
    17. Dim xlsBlatt As Excel.Worksheet
    18. Dim xlsRange As Excel.Range
    19. xlsAppl = New Excel.Application
    20. xlsAppl.Visible = True
    21. xlsMappe = xlsAppl.Workbooks.Open(ExcelDateiName)
    22. xlsBlatt = CType(xlsMappe.Worksheets(ExcelTabelleName), Worksheet)
    23. Dim Pos = CInt(xlsBlatt.Range("A1").Value) 'Zelle(A1) als Zeilenmerker im Arbeitsblatt(Tabelle1) definieren
    24. xlsRange = CType(xlsBlatt.Cells(Pos + 1, 2), Range) 'Datenausgabe erfolgt in der Spalte(B)
    25. xlsRange.Value = TextBox1.Text 'Wert von Textbox1 übertragen
    26. xlsBlatt.Range("A1").Value = Pos + 1 'letzte Zeile merken...
    27. xlsAppl.Quit()
    28. End Sub
    30. End Class
    Das mit dem benannten Bereich(letzteZeile) habe ich jetzt nicht 'auf die Schnelle gebacken' bekommen und habe einfach die Zelle(A1) dafür hergenommen...
    Eine Form1 mit Textbox1 und Button1 erstellen und den Code einfügen...
    Eine Excel-Datei (Mappe1.xlsx) mit einer Tabelle (Tabelle1) in das ausführende App-Verzeichnis kopieren...
    Die bessere und elegantere Lösung wäre aber, mit Excell via typisierten Dataset einen Datenaustausch durchzuführen...

    Dieser Beitrag wurde bereits 3 mal editiert, zuletzt von „VB1963“ ()

    @ sterat

    die entstandene Zahl die hinter der Variable "DasIstDieLeereZeile" steht ist deine Zeilennummer, die hat nix im Textbox.text zu suchen. ^^
    die solltest du besser für deine Eintragung im worksheet befehl benutzen.

    der mittlere Teil des Codes sollte dann so aussehen:

    VB.NET-Quellcode

    1. dim DasIstDieLeereZeile as integer
    3. 'Letze Zeile finden
    4. For zeile = 1 To 2000
    5. If xls_Mappe.Worksheets("List_Klass").Cells(zeile, 1).Value = "" Then DasIstDieLeereZeile = zeile : Exit For
    7. Next zeile
    10. xls_Blatt.cells(DasIstDieLeereZeile ,1).Value = TextBox1.Text ' hier habe ich Range durch Cells ersetzt.
    13. TextBox1.Text = ""
    16. xls_Mappe.Save()
    19. xls_Appl.Quit()


    @VB1963

    Ein ganz klares JA! :thumbup:
    Aber willst du mit einer Frigatte auf einen Karpfen schiessen? (Dafür wird mich derErfindes schlachten ;( )

Facebook
Telefonspende