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?
Liebe Grüße
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