列中有文件名，根据这个文件名，得到所需的文件，接下来怎么操作就是你的事。
如果是多文件，用split拆分就行：

Dim v As String =  Tables("表A").Current("第二列")
Dim nms() As String = v.replace(vbcr,vblf).Split(vblf)
For Each nm As String In nms
     If nm > "" Then
         output.show(nm)
     End If
Next

 得到文件名以后，加上列的路径，然后copy文件到一个你想要的新文件里
 
Dim v As String =  Tables("表A").Current("第二列")
Dim nms() As String = v.replace(vbcr,vblf).Split(vblf)
For Each nm As String In nms
     If nm > "" Then
         output.show(nm)
     End If
Next
 
http://www.foxtable.com/help/topics/2043.htm
http://www.foxtable.com/help/topics/0342.htm

呃，参考 http://www.foxtable.com/help/topics/1597.htm

 With Tables("保健品竞品明细")
    If .TopPosition > -1 Then \'如果选定区域包括数据行
        For i As Integer = .TopPosition To .BottomPosition
            Dim v As String = .Rows(i)("相关图片")
            Dim nms() As String = v.replace(vbcr,vblf).Split(vblf)
            For Each nm As String In nms
                If nm > "" Then
                    FileSys.CopyFile("C:\\快盘\\东莞工作\\数据分析\\Yamatoo管理系统\\图片\\竞品广告明细" & "\\" & nm, "C:\\Users\\adminadmin\\Desktop\\中科3月份广告稿",True)
                End If
            Next
        Next
    End If
End With

代码出现一个问题  怎么存在了这个目录了？？？

看看帮助中关于split的说明。

如果不是多文件列，只是单文件列，就没有那必要这样处理了。