[VBA]Split傳回Array-Type放進Collection Object

使用For Each迴圈將Split Func.回傳的陣列傳入Collection Object

Dim tmp, x
Dim buf As New Collection


tmp = ListFiles(ActiveWorkbook.Path & "\config\", "*.txt")

' Split Function
tmp = Split(tmp, "|")

' Assign to Collection Object
For Each x In tmp
    buf.Add x
Next x

' Print
For Each x In buf
    Debug.Print x
Next x