主题：请问如何批量导出选中行的图片列！

把选中行的图片全部导出来 ，有案例吗？？

列中有文件名，根据这个文件名，得到所需的文件，接下来怎么操作就是你的事。
如果是多文件，用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

 

 current是当前行   我如果选中多行呢 怎么处理》》？

 

呃，参考 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

 

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

此主题相关图片如下：1.png

 搞定了 

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月份广告稿" & "\" & nm,True)
                End If
            Next
        Next
    End If
End With

Dim nms() As String = v.replace(vbcr,vblf).Split(vblf)
            For Each nm As String In nms

这2句什么意思？    为什么要替换回车为行 有什么用用意？

下面foreach nm  为什么要历遍nms》？

求解

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

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

跟你说了 要加上 斜杠