Tool | Problem beim öffnen und speichern | Excel

  • VB.NET
  • .NET (FX) 4.5–4.8

Es gibt 16 Antworten in diesem Thema. Der letzte Beitrag () ist von n33d.

    Tool | Problem beim öffnen und speichern | Excel

    Hallo Leute,
    ich versuche im Moment ein Tool zu entwickeln, welches unteranderem auch Daten aus Excel-Tabellen benötigt.

    VB.NET-Quellcode

    1. Private Sub ExcelAuslesen()
    2. MaterialTable.application.workbooks.Open(root & "\" & ComboBox1.SelectedItem.ToString & "\" & MaterialLabel.Text & "_Daten.xlsx")
    3. MaterialTable.Visible = False 'False die Tabelle wird im Hintergrung geöffnet.
    4. MaterialTable.application.sheets(1).Activate()
    5. MaterialTable.Range("A1").Select()
    6. ...
    8. '-------------------Median und Summe auslesen----------------------------------------------------------------------------------
    9. MedianLabel.Text = MaterialTable.Range("C" & intZähler).Value() 'schreiben des ausgelesenen Median Werts
    10. SummenLabel.Text = MaterialTable.Range("D" & intZähler).Value() 'schreiben des ausgelesenen Median Werts
    11. '---------------------------------------------------------------------------------------------------------------------------------------
    12. 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

    1. Imports Microsoft.Office.Interop
    3. Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
    5. Dim xlApp As Excel.Application
    6. Dim xlBook As Excel.Workbook
    7. Dim xlSheet As Excel.Worksheet
    9. xlApp = New Excel.Application
    10. xlBook = xlApp.Workbooks.Add
    11. xlSheet = xlBook.Worksheets.Add
    13. xlApp.Application.Workbooks.Open("C:\Users\***\Desktop\test\testtabelle.xlsx")
    15. xlSheet.Cells(1, "a") = "Test1"
    16. xlSheet.Cells(2, "a") = "Test2"
    17. xlSheet.Cells(3, "a") = "Test3"
    18. xlBook.Close(SaveChanges:=True)
    19. xlApp.Quit()
    21. End Sub


    Bitte um Hilfe.
    Wie kann ich es das Excel File öffnen und etwas in es schreiben und es dann speichern...

    Danke :thumbsup:

    Hi, so kannsts z.B. machen:

    Quellcode

    1. Imports Microsoft.Office.Interop
    3. Public Class Form1
    5. Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
    7. Dim oXL As Excel.Application
    8. Dim oWB As Excel.Workbook
    9. Dim oSheet As Excel.Worksheet
    11. ' Start Excel and get Application object.
    12. oXL = CreateObject("Excel.Application")
    13. oXL.Visible = True
    14. oWB = oXL.Workbooks.Add() 'Hier den kompletten Pfad und Dateiname + Endung deiner Datei eingeben.
    16. oSheet = oWB.ActiveSheet
    18. oSheet.Cells(4, 2).Value = TextBox1.Text
    20. oWB.Close(SaveChanges:=1)
    21. oXL.Quit()
    23. End Sub
    25. End Class

    VriL schrieb:

    oXL = CreateObject("Excel.Application")

    Vorsicht: Das ist Late Binding und damit nicht "Strict On"-fähig.

    n33d schrieb:

    xlApp.Application.Workbooks.Open("C:\Users\***\Desktop\test\testtabelle.xlsx")
    xlSheet.Cells(1, "a") = "Test1"
    War schon fast der richige Ansatz.

    Visual Basic-Quellcode

    1. ​xlBook=xlApp.Application.Workbooks.Open("C:\Users\***\Desktop\test\testtabelle.xlsx"
    2. xlSheet=xlBook.Sheets(1)
    3. xlSheet.Cells(1, "a").Value = "Test1"

    Evtl musst du noch typecasten.
    --
    If Not Program.isWorking Then Code.Debug Else Code.DoNotTouch
    --

    VB.NET-Quellcode

    1. Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
    2. Dim xlAppB As Object
    3. Dim g As Double
    4. Dim xlBookB As Object
    5. Dim Vorhanden As Boolean = True
    6. Dim path As String = "C:\Users\****\Desktop\test"
    8. xlAppB = CreateObject("Excel.Application")
    10. If My.Computer.FileSystem.FileExists(path & "\testtabelle.xlsx") Then
    11. Vorhanden = True
    12. Else
    13. Vorhanden = False
    14. End If
    16. If Vorhanden = True Then
    17. xlAppB.application.workbooks.Open(path & "\testtabelle.xlsx")
    18. xlAppB.Visible = False
    19. xlBookB = xlAppB.Workbooks.Add
    20. Else
    21. xlAppB.Visible = False
    22. xlBookB = xlAppB.Workbooks.Add
    23. xlBookB.SaveAs(path & "\testtabelle.xlsx")
    24. End If
    26. For g = 1 To 200
    27. xlBookB.Worksheets(1).Cells(1, g) = g
    28. Next g
    29. xlBookB.Worksheets(1).Cells(1, 1) = "test"
    31. Label1.Text = "Geschrieben"
    33. 'If Not xlBookB.Saved Then
    34. ' MsgBox("This workbook contains unsaved changes.")
    35. 'End If
    37. xlBookB.SaveAs(path & "\test2tabelle.xlsx")
    38. xlAppB.Quit()
    40. My.Computer.FileSystem.DeleteFile(path & "\testtabelle.xlsx")
    41. My.Computer.FileSystem.RenameFile(path & "\test2tabelle.xlsx", "testtabelle.xlsx")
    43. Label1.Text = "Der GEHT"
    45. End Sub


    Mein Problem is das Speichern! Die Scheiße speichert sich immer irgendwo weil es die alte Datei nicht überschreiben kann.
    Mit dem oben gezeigten Code kann ich es umgehen, allerdings kann es vorkommen, dass die dateien von anderen prozessen genutzt werden und damit sind

    VB.NET-Quellcode

    1. My.Computer.FileSystem.DeleteFile(path & "\testtabelle.xlsx")
    2. My.Computer.FileSystem.RenameFile(path & "\test2tabelle.xlsx", "testtabelle.xlsx")

    nicht umsetzbar.

    VB.NET-Quellcode

    1. xlBookB.Save()

    Hat nicht zuverlässig funktioniert.

    VB.NET-Quellcode

    1. xlBookB.Close(SaveChanges:=True)

    Ebenfalls nicht. [evt. DefaultFilePath = "C:\Users\****\Documents"]

    Die Datei muss immer weiter geschrieben werden können, daher ist es unverzichtbar den Dateinamen beizubehalten.

    Danke für die Antworten



    speichern geht jetzt! Ich musste den Pfad ändern.

    VB.NET-Quellcode

    1. xlAppB.Application.DefaultFilePath = path


    Der Name des Files passt manchmal nicht.
    Mappe1.xlsx Wie kann ich das ändern?

    Dieser Beitrag wurde bereits 3 mal editiert, zuletzt von „n33d“ ()

    Leider funktioniert das Laden der Tabelle auch nicht. Es wird immer nur eine neu erstellt.
    Spoiler anzeigen

    VB.NET-Quellcode

    1. 'Imports Microsoft.Office.Interop.Excel
    2. Imports Microsoft.Office.Interop
    4. Public Class Form1
    5. Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
    7. Dim xlAppB As Object
    8. Dim g As Double
    9. Dim xlBookB As Object
    10. Dim Vorhanden As Boolean = True
    11. Dim path As String = "C:\Users\*****\Desktop\test"
    13. xlAppB = CreateObject("Excel.Application")
    15. If My.Computer.FileSystem.FileExists(path & "\testtabelle.xlsx") Then
    16. Vorhanden = True
    17. Else
    18. Vorhanden = False
    19. End If
    21. If Vorhanden = True Then
    22. xlBookB = xlAppB.application.workbooks.Open(path & "\testtabelle.xlsx")
    23. xlAppB.Visible = False
    24. Else
    25. xlAppB.Visible = False
    26. xlBookB = xlAppB.Workbooks.Add
    27. xlBookB.SaveAs(path & "\testtabelle.xlsx")
    28. End If
    30. For g = 1 To 200
    31. xlBookB.Worksheets(1).Cells(1, g) = g
    32. Next g
    33. xlBookB.Worksheets(1).Cells(1, 1) = "test"
    35. Label1.Text = "Geschrieben"
    37. 'If Not xlBookB.Saved Then
    38. ' MsgBox("This workbook contains unsaved changes.")
    39. 'End If
    41. Dim i As Integer
    42. Dim intZähler As Integer
    43. Dim Such_Server As String
    44. For i = 1 To 5000 Step 1 'wird bis max. zeile 5000 durchsucht
    45. Such_Server = xlBookB.Worksheets(1).Cells(i.ToString, 1).Value
    46. 'Such_Server = xlAppB.Range("A" & i.ToString).Value() 'Zuweisung der ZellValue
    47. intZähler = intZähler + 1
    48. If "" = Such_Server Then
    49. i = 5000 '5000 um die Schleife zu verlassen
    50. End If
    51. Next
    53. xlBookB.Worksheets(1).Cells(intZähler, 1) = "test"
    55. xlAppB.Application.DefaultFilePath = path
    56. xlBookB.Save()
    57. 'xlBookB.Close(SaveChanges:=1)
    58. xlBookB.Close()
    59. xlAppB.Quit()
    61. Label1.Text = "Fertig"
    62. End Sub
    63. End Class


    Zusätzliche Informationen: 'testtabelle.xlsx' ist schreibgeschützt. Um eine Kopie zu speichern, klicken Sie auf 'OK'. Geben Sie der Arbeitsmappe im Dialog 'Speichern unter' einen neuen Namen.

    Ich habe die Tabelle nie geschützt. Wie kann ich sie schleißen um sie zu speichern?

    Benötige Hilfe bei:
    • Namengebung beim speichern.
    • ....
    Danke

    Dieser Beitrag wurde bereits 2 mal editiert, zuletzt von „n33d“ ()

    n33d schrieb:

    VB.NET-Quellcode

    1. If My.Computer.FileSystem.FileExists(path & "\testtabelle.xlsx") Then
    2. Vorhanden = True
    3. Else
    4. Vorhanden = False
    5. End If
    Das schreibst Du so als logischen Ausdruck und kannst gleich die Attribute richten, falls nötig:

    VB.NET-Quellcode

    1. Dim fi = New IO.FileInfo(path & "\testtabelle.xlsx")
    2. Vorhanden = fi.Exists
    3. If Vorhanden Then
    4. If fi.Attributes.HasFlag(IO.FileAttributes.ReadOnly) Then
    5. fi.Attributes = fi.Attributes And Not IO.FileAttributes.ReadOnly
    6. End If
    7. End If
    Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Ein guter .NET-Snippetkonverter (der ist verfügbar).
    Programmierfragen über PN / Konversation werden ignoriert!

    Quellcode

    1. ReadOnly
    ? Ich will was schreiben. Das sind nur Schönheitsfehler, die man beheben kann wenn alles geht. ^^
    Mein Problem ist, dass ich die Originaldatei nicht Speichern kann sondern immer nur eine neue Datei erstellt werden kann.

    Ich will nicht einfach alle Prozesse killen und dann die alte Datei löschen und die neue Umbenennen.

    VB.NET-Quellcode

    1. For Each prozess As Process In Process.GetProcessesByName("EXCEL")
    2. If prozess.MainWindowHandle = 0 Then prozess.Kill()
    3. Next
    4. My.Computer.FileSystem.DeleteFile(path & "\testtabelle.xlsx")
    5. My.Computer.FileSystem.RenameFile(path & "\test2tabelle.xlsx", "testtabelle.xlsx")

    Mein Programm muss ALLE daten in ein Tabelle schreiben.

    Bitte helft mir eine andere lösung zu finden.
    Die mit dem Kill is sooooo scheiße!

    Danke

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „n33d“ ()

    Mach ich doch nicht!
    Nur wenn die Tabelle nicht vorhanden ist.

    Spoiler anzeigen

    VB.NET-Quellcode

    1. If Vorhanden = True Then
    2. xlBookB = xlAppB.application.workbooks.Open(path & "\testtabelle.xlsx", , True)
    3. xlAppB.Visible = False
    4. Else
    5. xlAppB.Visible = False
    6. xlBookB = xlAppB.Workbooks.Add
    7. xlBookB.SaveAs(path & "\testtabelle.xlsx")
    8. End If


    Des Oben is komplett veraltet des war nur mal ne erste Idee mit vielen Fehlern!

    Bitte versucht mir bei meinem Problem zu helfen. :) Mein ein einziges Problem is im Moment, dass ich die absolute Deppenlösung verwende.
    Bitte helft mir die Holzhammermethode in was schöneres zu verwandeln. Also ist NUR das Speicher das Problem.

    Holzhammermethode:

    VB.NET-Quellcode

    1. For Each prozess As Process In Process.GetProcessesByName("EXCEL")
    2. If prozess.MainWindowHandle = 0 Then prozess.Kill()
    3. Next
    4. My.Computer.FileSystem.DeleteFile(path & "\testtabelle.xlsx")
    5. My.Computer.FileSystem.RenameFile(path & "\test2tabelle.xlsx", "testtabelle.xlsx")



    Danke

    (wenn ich dein Problem richtig verstanden habe)

    Sorry hast leider nicht ich will einfach nur das geöffnete Excel unter dem selben Namen im selben Ordener speichern.

    Was ich in die Tabellen speichere spielt ja keine Rolle. Es sind lediglich strings oder integer.

    sonst nichts! Das sind doch Basics?! ;(

    Ich muss die Daten nur bei jedem ProgrammStart weiter schreiben können.

    Danke


    Spoiler anzeigen

    Antwort eines MicrosoftMitarbeiters:
    Hi,

    You can use
    Workbook.Save Method (Excel).

    I have tested in Excel 2007, it will not display any prompts.

    VB.NET-Quellcode

    1. Sub testSave()
    2. Range("A1") = "test"
    3. ActiveWorkbook.Save
    4. End Sub

    The first time you save a workbook, use the SaveAs method to specify a name for the file.

    Hope this helps.


    Warum zum Teufel geht die Scheiße nicht?
    msdn.microsoft.com/en-us/libra…f197585(v=office.15).aspx




    Dieser Beitrag wurde bereits 3 mal editiert, zuletzt von „n33d“ ()

    n33d schrieb:

    ich will einfach nur das geöffnete Excel unter dem selben Namen im selben Ordener speichern.

    Das geht ganz einfach mit Workbook.Save.
    Dein Problem ist, dass du nicht mit dem Original, sondern mit einem neu hinzugefügten Workbook arbeitest.
    Sobald du die Excel-Application abschießt, killst du dich selbst, weil beide Workbooks in derselben Anwendung offen sind.
    Wenn du schon blödsinnigerweise die Kopie speichern willst, dann schließ einfach das Original.
    --
    If Not Program.isWorking Then Code.Debug Else Code.DoNotTouch
    --

    OH DANKE!! ^^
    Ich weiß doch was ich mach. Ich kann das Original nicht direckt speichern!
    Das bugt wie Scheiße!!!!

    Schleißen dann Speichern geht?

    Aber mit dem normalen code so wie oben geschrieben gehts!

    Ich muss dir recht geben es ist verdammt umständlich.

    Danke für die Antworten.

    Falls möglich würde ich gerne eine elegantere Speichermethode haben. (ohne Umwege nur mit .save() )

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „n33d“ ()

Facebook
Telefonspende