可以直接执行代码，把一个文件夹的文件导入
For Each f As String In FileSys.GetFiles("d:\") Dim nr As Row = Tables("表A").AddNew nr("第一列") = FileSys.GetName(f) nr("第二列") = fNext
加好友 
发短信
Post By：2016/6/27 14:24:00 [显示全部帖子]
