vb.net und Excel

Diese Seite verwendet Cookies. Durch die Nutzung unserer Seite erklären Sie sich damit einverstanden, dass wir Cookies setzen. Weitere Informationen

  • vb.net und Excel

    Hallo, ich habe ein Problem, ich möchte mit vb.net ein neues Excel-Sheet erstellen.
    Bis jetzt öffnet sich zwar Excel und ich kann auch Dateien in Excel übertragen, aber ich möchte, dass wenn ich auf einen Button klicke, sich ein neues Excel-Sheet öffnet und nicht schon ein existierendes, dessen Pfad ich angeben muss.
    Wie müsste ich den Code ändern, damit es klappt?


    Quellcode

    1. Dim objXlsx As Object
    2. Dim xlsxWS As Object
    3. Dim path As String = "C:\test.xlsx"
    5. Private Sub Button1_Click( _
    6. ByVal sender As System.Object, _
    7. ByVal e As System.EventArgs) Handles Button1.Click
    9. objXlsx = CreateObject("Excel.Application")
    10. xlsxWS = objXlsx.Workbooks.Open(path)
    12. objXlsx.Visible = False
    13. xlsxWS = objXlsx.ActiveSheet
    14. xlsxWS.Range("a1").Value = txt_Text.Text
    15. xlsxWS.Range("a2").Value = txt_Text2.Text
    16. xlsxWS.Range("b4").Value = txt_Text3.Text
    17. xlsxWS.Range("d5").Value = txt_Text4.Text
    18. Me.Button1.Enabled = True
    20. End Sub
    22. Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
    25. objXlsx.DisplayAlerts = True
    27. objXlsx.Quit()
    29. txt_Text.Text = ""
    30. txt_Text2.Text = ""
    31. txt_Text3.Text = ""
    32. txt_Text4.Text = ""
    35. End Sub
    Alles anzeigen

    Liebe Grüße