Read comments from all data records in the folder

[HannesundCrew]

Hallo,

ich habe in FlexPro eine .csv-Datei eingelesen, dadurch ist dann ein Ordner entstanden. In diesem Ordner sind jetzt rund 40 Datensätze( in der Objektliste zu sehen) enthalten mit unterschiedlichen Namen. Nun möchte ich von allen Dateien die Kommentare über VBA einlesen und diese dann in eine Liste in VBA ablegen.

[Bernhard Kantz]

Das folgende Code-Beispiel zeigt die Kommentare der im Ordner “Messung A” enthaltenen Datensätze an.

Public Sub GetComments()
    Dim fld As Folder
    Set fld = ThisDatabase.RootFolder("Messung A", fpObjectTypeFolder)
    Dim obj As DataSet
    Dim res As String
    For Each obj In fld.Objects(fpObjectTypeDataSet)
        res = res & obj.CommentsY & vbCrLf
    Next
    MsgBox res
End Sub

Dies kann leicht auf Ihr Problem angepasst werden.

[Author]

Posts