Text in Excel Mappe schreiben ohne vorhandenen Text zu Überschreiben

  • VB.NET
  • .NET (FX) 4.0

Es gibt 1 Antwort in diesem Thema. Der letzte Beitrag () ist von Stubbikeks3.

    Text in Excel Mappe schreiben ohne vorhandenen Text zu Überschreiben

    Hallo,
    ich bin neu hier, totaler Anfänger und habe ein kleines Problem.
    Ich schreibe mit einem kleinen Programm Texte aus einer Textbox in ein Excel File Das Funktioniert auch soweit aber ich habe jetzt folgendes Problem das ich keine Ahnung habe wie ich es schaffe das wenn ich das Programm mehrmals ausführe der vorhandener Text in dem Excel File nicht überschrieben wird sondern der neue Text in die Nächte Freie freie Zeile geschrieben wird.

    vielen Dank schon mal für eure Antworten würde mich riesig über Tipps freuen.


    Das ist mein Programmcode:

    VB.NET-Quellcode

    1. Option Explicit On
    2. Public Class Stückzahlaufschreibung
    3. Private Sub Abspeichern_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Abspeichern.Click
    5. Dim xlApp As Object = CreateObject("Excel.Application")
    6. xlApp.Visible = False
    7. Dim xlWB As Object = xlApp.Workbooks.Open("C:\hallo\Mappe1.xlsx")
    8. Dim xlWS As Object = xlWB.Worksheets(2)
    10. xlWS.Range("A1").Value = TextBox1.Text
    11. xlWS.Range("B1").Value = TextBox2.Text
    12. xlWS.Range("C1").Value = TextBox3.Text
    13. xlWS.Range("C2").Value = TextBox4.Text
    14. xlWS.Range("C3").Value = TextBox5.Text
    16. xlApp.quit()
    18. End Sub

    Habe es selber geschafft :)
    für alle die den Code gebrauchen können....

    VB.NET-Quellcode

    1. Imports Microsoft.Office.Interop
    2. Public Class Form1
    3. Private MyLine As Integer = 4
    4. Private Sub cmdButton1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    5. Dim xlObj As New Excel.Application
    6. xlObj.Visible = True
    7. Dim Mappe As Excel.Workbook = xlObj.Workbooks.Open("C:\hallo\Mappe2.xlsx")
    8. Dim Tabelle As Excel.Worksheet = Mappe.Sheets("Tabelle2")
    9. Const xlUp = -4162
    10. MyLine = Tabelle.Cells(Tabelle.Rows.Count, 1).End(xlUp).Row + 1
    11. Tabelle.Cells(MyLine, 1).Value = TextBox1.Text
    12. Tabelle.Cells(MyLine, 2).Value = TextBox2.Text
    13. Tabelle.Cells(MyLine, 3).Value = TextBox3.Text
    14. MyLine += 1
    15. Mappe.Save()
    16. Mappe.Close()
    17. xlObj.Quit()
    18. End Sub
    20. End Class

Facebook
Telefonspende