Wie wird Microsoft.Office.Interop.Excel.Application.Run in vb.net umgewandelt?

Question

Ich habe den folgenden Code:

Dim technologyMapping = oXL.Run("GetTechnologyMapping") 

Das Ergebnis ist ein Objekt. In meinem VBA (Makro) Code, kehre ich ein Collection wie unten dargestellt:

Public Function GetTechnologyMapping() As Collection 
    ' ... 
    Set GetTechnologyMapping = result 
End Function 

ich über CType und CTypeDynamic zu werfen bin versucht hatte aber das Glück jetzt so weit. Jedes Mal, wenn der Code eine Ausnahme auslöst, kann ich dieses Objekt nicht darstellen, obwohl das Objekt die Eigenschaft Count hat. Wie kann ich dieses Objekt in eine Sammlung umwandeln?

Answer 1

Sie können eine VBA.Collection in eine System.Collections.IEnumerable umwandeln. Auf diese Weise können Sie die Sammlung mit einer For Each-Schleife auflisten.

Etwas wie folgt aus:

Sub Test(wbPath As String) 
    Dim app As New Excel.Application 
    Dim wb As Excel.Workbook = app.Workbooks.Open(wbPath) 
    Dim result As Object = app.Run("ReturnCollection") 
    wb.Close(Excel.XlSaveAction.xlDoNotSaveChanges) 
    app.Quit() 

    Dim colAsIEnumerable As System.Collections.IEnumerable = TryCast(result, System.Collections.IEnumerable) 

    If colAsIEnumerable IsNot Nothing Then 
     For Each o As Object In colAsIEnumerable 
      If o IsNot Nothing Then Debug.Print(o.ToString()) 
     Next 
    End If 
End Sub