Hallo,
Ich habe eine textbox und einen Button. Wenn ich auf den Button klicke soll er den text aus der textbox in excel speichern.
Da dsie datei schon exsistiert, fragt er mich ob er überschreiben soll.... wenn ich ja sage, hat er die änderungen trotzdem nicht übernommen.
Imports System.IO
Imports Excel = Microsoft.Office.Interop.Excel
Imports Office = Microsoft.Office.Core
Public Class Form2
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim xlApp As New Excel.Application
xlApp.Visible = False
Dim wb As Excel.Workbook = xlApp.Workbooks.Open("C:\xxx.xls")
Dim Tabelle1 As Excel.Worksheet = wb.Sheets("Tabelle1")
TextBox1.Text = Tabelle1.Range("C4").Value
wb.SaveAs("C:\xxx.xls")
End Sub
End Class
Ich habe eine textbox und einen Button. Wenn ich auf den Button klicke soll er den text aus der textbox in excel speichern.
Da dsie datei schon exsistiert, fragt er mich ob er überschreiben soll.... wenn ich ja sage, hat er die änderungen trotzdem nicht übernommen.
Imports System.IO
Imports Excel = Microsoft.Office.Interop.Excel
Imports Office = Microsoft.Office.Core
Public Class Form2
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim xlApp As New Excel.Application
xlApp.Visible = False
Dim wb As Excel.Workbook = xlApp.Workbooks.Open("C:\xxx.xls")
Dim Tabelle1 As Excel.Worksheet = wb.Sheets("Tabelle1")
TextBox1.Text = Tabelle1.Range("C4").Value
wb.SaveAs("C:\xxx.xls")
End Sub
End Class