也可用lines属性解决,见帮助文件中的“单元格多行内容的处理”
Dim lst As New List(of String)For Each fl As String In FileSys.GetFiles("c:\data")lst.Add(fl) NextTables("表A").Current.DataRow.lines("文件") = lst