Excel Aufruf Async

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

Es gibt 1 Antwort in diesem Thema. Der letzte Beitrag () ist von ErfinderDesRades.

    Excel Aufruf Async

    Hallo zusammen,

    ich stoße für etliche Dateien >500 aus einem Verzeichnis mittels einer Schleife folgendes Sub an.
    Das ganze gestaltet sich als sehr zeitintensiv.

    VB.NET-Quellcode

    1. Sub ExcelPrepare(FilePath As String, TranslateName As String)
    2. Dim xlApp As New Excel.Application
    3. Dim xlWorkBook As Excel.Workbook
    4. Dim xlWorkSheet As Excel.Worksheet
    5. Dim Translation() As String = TranslateName.Split(CChar(";"))
    6. Dim TranslationPair() As String
    8. Dim i As Integer
    9. Dim ii As Integer
    11. xlWorkBook = xlApp.Workbooks.Open(FilePath)
    12. xlWorkSheet = CType(xlWorkBook.Sheets(1), Excel.Worksheet)
    13. Dim suchbereich As Excel.Range = CType(xlWorkSheet.Rows(1), Excel.Range)
    15. With xlWorkSheet
    16. .Range(2 & ":" & 2).Delete()
    18. For i = 0 To Translation.Length - 1
    19. TranslationPair = Translation(i).Split(CChar(":"))
    21. For ii = 0 To TranslationPair.Length - 1
    22. Dim c As Excel.Range
    23. Dim firstAddress As String
    25. With xlWorkSheet.Range("1:1")
    26. c = .Find(TranslationPair(0), LookIn:=Excel.XlFindLookIn.xlValues)
    27. If c IsNot Nothing Then
    28. firstAddress = c.Address
    29. Else
    30. firstAddress = Nothing
    31. End If
    32. End With
    34. If firstAddress <> Nothing Then
    35. .Range(firstAddress).Value = TranslationPair(1)
    36. End If
    38. Next ii
    40. Next i
    42. End With
    44. xlWorkBook.Close(SaveChanges:=True)
    46. End Sub


    Besteht die Möglichkeit dies mittels Async und Await aufzurufen?
    Und lässt sich dann ermitteln wenn alle Hintergrundprozesse abgeschlossen sind?

    Mit den Beispielen bzw. der Doku auf Docs bin ich nicht weitergekommen.

    Vielen Dank.

    Daniel

Facebook
Telefonspende