Worksheet vergleich dauert viel zu lang

  • VB.NET

Es gibt 11 Antworten in diesem Thema. Der letzte Beitrag () ist von Tomi G..

    Worksheet vergleich dauert viel zu lang

    Hallo,
    ich habe ein problem mit meinem Code. Ich steuer eine Exceltabelle mit vb.net und möchte ca. 500 Werte in zwei weiteren Tabellenblätter vergleichen. ist der wert in beiden Tabellenblätter nicht vorhanden sollte er in vierten Tabellenblatt aufgelistet bzw. nur in einer ComboBox angezeigt werden.
    Zur verständnis:

    Quellcode

    1. Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click
    3. Dim SoR As Excel.Range, CompR As Excel.Range, SorC As Excel.Range, CompC As Excel.Range, CompC2 As Excel.Range, CompSPERR As Excel.Range
    5. ComboBox3.Visible = True
    6. ComboBox3.Items.Clear()
    8. SoR = Master.objXlBlattVERGL.Range("C2:C500")
    9. CompR = Master.objXlBlattLEITUNG.Range("C4:C500")
    10. CompSPERR = Master.objXlBlattGESPE.Range("A4:A500")
    12. For Each SorC In SoR
    14. CompC = CompR.Find(SorC.Value, , Excel.XlFindLookIn.xlValues, Excel.XlLookAt.xlWhole, )
    15. CompC2 = CompSPERR.Find(SorC.Value, , Excel.XlFindLookIn.xlValues, Excel.XlLookAt.xlWhole, )
    17. If CompC Is Nothing And CompC2 Is Nothing Then ComboBox3.Items.Add(SorC.Text)
    18. Next
    19. End Sub


    .... hier nur als ComboBox3 anzeige.
    Es dauert ca 30 bis 40 Sek. bis das Ergebnis sichtbar ist!! Gibt es nen schnelleren Weg. In VBA dauert die auswertung mit for - next verfahren ca 4 Sek.

    siehe...

    Quellcode

    1. Private Sub CommandButton4_Click() 'FreiePorts
    2. Dim CelA As String
    3. Dim FiNNd As Range
    4. Dim FiNNdSPR As Range
    5. Dim iAnzahl As Integer
    6. ActiveWindow.WindowState = xlMinimized
    8. ComboBox1.Visible = True
    9. For i = 2 To 1000
    10. CelA = Sheets("PORTVERGLEICH").Cells(i, 3).Value
    12. Sheets("LEITUNGSWEGE").Visible = True
    14. Sheets("LEITUNGSWEGE").Select
    15. Columns(3).Select
    16. Set FiNNd = Selection.Find(what:=CelA, After:=ActiveCell, LookIn:=xlValues, LookAt:=xlWhole, SearchOrder:=xlByColumns, SearchDirection:=xlNext, MatchCase:=False)
    18. Sheets("GESPERRT").Visible = True
    19. Sheets("GESPERRT").Select
    20. Columns(1).Select
    21. Set FiNNdSPR = Selection.Find(what:=CelA, After:=ActiveCell, LookIn:=xlValues, LookAt:=xlWhole, SearchOrder:=xlByColumns, SearchDirection:=xlNext, MatchCase:=False)
    23. If FiNNd Is Nothing And FiNNdSPR Is Nothing Then
    24. Sheets("FreierPlatz").Visible = True
    25. Sheets("FreierPlatz").Select
    27. Cells(Cells(Rows.Count, "B").End(xlUp).Row + 1, "B").Value = CelA
    29. Else
    30. End If
    32. Next i
    33. Sheets("LEITUNGSWEGE").Visible = False
    34. Sheets("PORTVERGLEICH").Visible = False
    35. Sheets("GESPERRT").Visible = False
    36. Sheets("FreierPlatz").Visible = False
    38. For iAnzahl = 1 To 1000
    39. With ComboBox1
    40. If Sheets("FreierPlatz").Cells(iAnzahl, 2) <> "" Then
    41. .AddItem Sheets("FreierPlatz").Cells(iAnzahl, 2)
    42. ComboBox1.ListIndex = 0
    44. End If
    45. End With
    46. Next iAnzahl
    48. ActiveWindow.WindowState = xlMaximized
    49. End Sub


    Danke im vorraus
    Tomi

    Ja. Nimm nicht die COM-APIs sondern eine Bibliothek die unabhängig von Office läuft. Habe persönlich sehr gute Erfahrungen mit EPPlus gemacht.


    Opensource Audio-Bibliothek auf github: KLICK, im Showroom oder auf NuGet.

    Habe gerade auf die schnelle was davon gelesen... klingt sehr interessant. Leider habe ich office 2000. So wie ich das sehe geht es nur mit 2007 und 2010-er. Funktioniert das dan auch ohne Office auf dem rechner?

    Ich habe schon mit SQL versucht aber bin wahnsinig geworden da ich über 60 columns habe und eine Dokumentation über die Veränderungen je User speichern mochte. Noch dazu sollten sich die von mir freigegebene User registrieren konnen usw. Das ist mir mit SQL nicht so gelungen.
    Danke für die schnelle Antwort
    Tomi

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „Tomi G.“ ()

    Das läuft 100% unabhängig von Office. Habe das vor allem bei ASP.NET Webanwendungen verwendet, welche auf Serverseite Excel-Dateien importieren. Dort ist kein Office installiert -> läuft wunderbar. Die Bibliothek liest also wirklich nur die Excel-Datei aus.


    Opensource Audio-Bibliothek auf github: KLICK, im Showroom oder auf NuGet.

    @thefiloe
    Ist das nicht so das EPPlus die Tabellen in eigene Tabellen um...was auch immer? Oder bleibt die Tabelle als .xlsx und wird mit seiner Hilfe als Datenbank verknüpft? Sorry habe noch keine Zeit gehabt genauer zu Googlen. Habe nur gestern gesehen daß es nicht so viel davon im Google steht.
    @petaod
    Das werde ich ausprobieren. Danke. War eigentlich bis jetzt mit 2000-er sehr zufrieden. Es tat was ich bräuchte.
    Schönen Abend euch beiden. Ihr habt mir gut geholfen.
    Tomi

    Mit EEPlus kannste einfach ganz simpel eine Excel-Datei lesen und schreiben. Intern wird die Datei eingelesen und du hast dann Zugriff auf alles was in der Tabelle bzw. Tabellen steht.
    Ich persönlich hab mir da nen kleinen Mapper gebastelt der automatisch Tabellen in Objekte mappt (Objekte müssen mit entsprechenden Attributen gekennzeichnet werden -> ähnlich wie bei Serialisierung) und damit klappt das ganz wunderbar. Lesen und schreiben :).


    Opensource Audio-Bibliothek auf github: KLICK, im Showroom oder auf NuGet.

    Wie gesagt. Ich verarbeite Import-Dateien die bis zu mehrere hundert MB groß werden können. Geht alles wunderbar. Die ganzen Com Schnittstellen von Excel sind halt a) langsam und b) brauchste dafür Office installiert. Damit biste halt unabhängig und wesentlich schneller.


    Opensource Audio-Bibliothek auf github: KLICK, im Showroom oder auf NuGet.

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

Facebook
Telefonspende