VBA解决超链接文件的问题

13148757505

序号	超级链接
1	1.pdf
2	2.pdf
3	3.pdf
4	4.pdf

怎么将这四个超级链接的文档 一起提取到另外一个文件夹中？   

ahn

1. Public Sub CopyHyperlinkFiles(dstFolder As String)
   
2.     Dim c As Range
   
3.     Dim p As String
   
4.     Dim f As String
   
5.    
   
6.     On Error Resume Next
   
7.    
   
8.     For Each c In Range("A1").CurrentRegion
   
9.         p = ExtractAbsolutePath(c)
   
10.         
    
11.         If p <> "" Then
    
12.             f = Mid(p, InStrRev(p, "\"))
    
13.             FileCopy p, dstFolder & f
    
14.         End If
    
15.     Next c
    
16. End Sub

复制代码