vb.net und excel

Angelika_25

Mitglied
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?
Code:
 Dim objXlsx As Object
    Dim xlsxWS As Object
    Dim path As String = "C:\test.xlsx"

    Private Sub Button1_Click( _
      ByVal sender As System.Object, _
      ByVal e As System.EventArgs) Handles Button1.Click

        objXlsx = CreateObject("Excel.Application")
        xlsxWS = objXlsx.Workbooks.Open(path)

        objXlsx.Visible = False
        xlsxWS = objXlsx.ActiveSheet
        xlsxWS.Range("a1").Value = txt_Text.Text
        xlsxWS.Range("a2").Value = txt_Text2.Text
        xlsxWS.Range("b4").Value = txt_Text3.Text
        xlsxWS.Range("d5").Value = txt_Text4.Text
        Me.Button1.Enabled = True

End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

     
        objXlsx.DisplayAlerts = True

     objXlsx.Quit()

        txt_Text.Text = ""
        txt_Text2.Text = ""
        txt_Text3.Text = ""
        txt_Text4.Text = ""


    End Sub
Liebe Grüße
 
So etwa siehts bei mir aus:


Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click

Dim excel As Object
Try
excel = GetObject(, "Excel.Application")
excel.Visible = True
Catch ex As Exception
excel = CreateObject("Excel.Application")
excel.Visible = True
End Try

Dim excel_wb = excel.Workbooks.Add
Dim excel_ws = excel_wb.ActiveSheet
Dim zeile As Integer = 1
Dim spalte As Integer = 1

excel_ws = excel.ActiveSheet


Dann kanns du Daten fügen:

excel_ws.Cells (zeile, spalte) = text
 
Zurück