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

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

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

 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》？

求解