Hallo Leute,
ich versuche im Moment ein Tool zu entwickeln, welches unteranderem auch Daten aus Excel-Tabellen benötigt.
Das reine auslesen funktioniert ohne Probleme!
Ich habe allerdings das Problem, dass gleichzeitig eine weitere Tabelle geöffnet werden soll in die gewisse Daten abgelegt werden sollen [nur Strings und Integer]. Die Datei soll bei jedem öffnen weiter geschrieben werden und dürfen sich nicht überschreiben.
Des Weiteren will ich möglichst ohne extra Importes arbeiten.
Mein erster Gedanke:
Bitte um Hilfe.
Wie kann ich es das Excel File öffnen und etwas in es schreiben und es dann speichern...
Danke![:thumbsup:](https://www.vb-paradise.de/wcf/images/smilies/thumbsup.png)
ich versuche im Moment ein Tool zu entwickeln, welches unteranderem auch Daten aus Excel-Tabellen benötigt.
VB.NET-Quellcode
- Private Sub ExcelAuslesen()
- MaterialTable.application.workbooks.Open(root & "\" & ComboBox1.SelectedItem.ToString & "\" & MaterialLabel.Text & "_Daten.xlsx")
- MaterialTable.Visible = False 'False die Tabelle wird im Hintergrung geöffnet.
- MaterialTable.application.sheets(1).Activate()
- MaterialTable.Range("A1").Select()
- ...
- '-------------------Median und Summe auslesen----------------------------------------------------------------------------------
- MedianLabel.Text = MaterialTable.Range("C" & intZähler).Value() 'schreiben des ausgelesenen Median Werts
- SummenLabel.Text = MaterialTable.Range("D" & intZähler).Value() 'schreiben des ausgelesenen Median Werts
- '---------------------------------------------------------------------------------------------------------------------------------------
- End Sub
Das reine auslesen funktioniert ohne Probleme!
Ich habe allerdings das Problem, dass gleichzeitig eine weitere Tabelle geöffnet werden soll in die gewisse Daten abgelegt werden sollen [nur Strings und Integer]. Die Datei soll bei jedem öffnen weiter geschrieben werden und dürfen sich nicht überschreiben.
Des Weiteren will ich möglichst ohne extra Importes arbeiten.
Mein erster Gedanke:
VB.NET-Quellcode
- Imports Microsoft.Office.Interop
- Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
- Dim xlApp As Excel.Application
- Dim xlBook As Excel.Workbook
- Dim xlSheet As Excel.Worksheet
- xlApp = New Excel.Application
- xlBook = xlApp.Workbooks.Add
- xlSheet = xlBook.Worksheets.Add
- xlApp.Application.Workbooks.Open("C:\Users\***\Desktop\test\testtabelle.xlsx")
- xlSheet.Cells(1, "a") = "Test1"
- xlSheet.Cells(2, "a") = "Test2"
- xlSheet.Cells(3, "a") = "Test3"
- xlBook.Close(SaveChanges:=True)
- xlApp.Quit()
- End Sub
Bitte um Hilfe.
Wie kann ich es das Excel File öffnen und etwas in es schreiben und es dann speichern...
Danke
![:thumbsup:](https://www.vb-paradise.de/wcf/images/smilies/thumbsup.png)