主题：请问如何批量导入文件？

没怎么看明白。

Dim FileName As String
For Each dir As String In FileSys.GetDirectories(ApplicationPath)
    For Each File As String In FileSys.GetFiles(dir)
        FileName = FileName & vbCrLf & File
    Next
Next
CurrentTable.Current("第一列") = FileName