Excel Diagramm auswählen und Datenquelle definieren

  • VB.NET

    Excel Diagramm auswählen und Datenquelle definieren

    Hallo ich beschäftige mich jetzt schon länger mit dem Zugriff von einem VB.Net Programm auf Excel.

    Nun bin ich an einem Punkt angelangt, an dem ich nicht mehr weiter weiß und euch um Unterstützung bitte.

    Ich habe eine Excel Vorlage mit mehreren Diagrammen (sind leer d.h. keine Daten Verknüpft)

    Kopiere und Sortiere über VB. eine LogDatei (ähnlich Textdatei) in Excel (Register "Daten").

    Soweit funktioniert mein Programm schon.

    Nun möchte ich die leeren Diagramme die sich auf einem 2. Register ("Charts") befinden mit den Daten von Register ("Daten") Verknüpfen.

    Wie kann ich nun die einzelnen Diagramme (Namen habe ich vergeben!) auswählen und die Daten dem Diagramm zuweisen?



    Danke und Grüße

    IF0



    Im Anhang befindet sich mein bisheriger Code um die Daten zu kopieren - wie gesagt die Diagrammfunktion da hängt es extrem... :(


    VB.NET-Quellcode

    1. Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    3. Dim Index As Integer = 0
    4. Dim ConfigurationPassed As Integer = 0
    5. 　
    6. 'Excel Vorlage Pfad = TextBox1.Text
    7. If IO.File.Exists(TextBox1.Text) Then
    8. Try
    9. objExcel = CreateObject("Excel.Application")
    10. objBook = objExcel.Workbooks.Open(TextBox1.Text)
    11. objSheet = objBook.Worksheets("Daten")
    13. objExcel.Visible = True
    15. For Each Zeile As String In System.IO.File.ReadLines(TextBox2.Text)
    17. 'Einstellungsinformationen überspringen bis zu den wahren Werten.
    18. If ConfigurationPassed = 1 Then
    19. Dim Data() As String = Zeile.Split(";")
    20. Dim StrgSetpoint As String = Data(0)
    21. Dim StrgPassedTol As String = Data(1)
    22. Dim StrgTime As String = Data(2)
    23. Dim StrgMeasure As String = Data(3)
    24. Dim StrgAccuracyLow As String = Data(4)
    25. Dim StrgAccuracyHigh As String = Data(5)
    26. Dim StrgStable As String = Data(6)
    27. Try
    28. objSheet.Cells(Index + 1, 1).Value = StrgSetpoint
    29. objSheet.Cells(Index + 1, 2).Value = StrgPassedTol
    30. objSheet.Cells(Index + 1, 3).Value = StrgTime
    31. objSheet.Cells(Index + 1, 4).Value = StrgMeasure
    32. objSheet.Cells(Index + 1, 5).Value = StrgAccuracyLow
    33. objSheet.Cells(Index + 1, 6).Value = StrgAccuracyHigh
    34. objSheet.Cells(Index + 1, 7).Value = StrgStable
    35. Catch
    36. End Try
    37. Else
    38. If Zeile = "Measuring-Values=" Then
    39. ConfigurationPassed = 1
    40. Index = -1
    41. End If
    42. End If
    43. 　
    44. Index += 1
    45. Next
    47. ' Hier sollen die nun übertragenen Daten in Excel den vorhanden Diagrammen zugwiesen werden.
    48. 'Diagramm auswählen
    49. 'Datenbereich definieren und zuweisen
    50. '???????????　
    51. 　
    52. Catch
    53. End Try
    54. objExcel.DisplayAlerts = False
    55. objBook.Close(SaveChanges:=True)
    56. objExcel.Quit()
    57. End If
    58. objSheet = Nothing
    59. objBook = Nothing
    60. objExcel = NothingGC.Collect()
    61. GC.WaitForFullGCComplete()
    62. End Sub

Facebook
Telefonspende