Faster way to save a list of hyperlinked files to a specfic folder

[skinnerq]

I have a spread sheet that has a colunm of hyperlinked files that I have filtered. I now want to save the hyperlink files I have filtered into a specific folder but It is taking very long because I need to select the hyperlink then the pdf opens, then I save the pdf to a folder and then go to the next hyperlink just below and continue.

I there a faster way to do this. PLEASE HELP!!!

 

[skinnerq]

How do you save the code when it is enter into the VBA box?

 

[skinnerq]

ok this time I check the microsoft scripting runtime and when I ran it, this is the error. Set oFile = fso.GetFile(hl.Address)??

 

[skinnerq]

Did you get my last messages???

 

[skinnerq]

The below is the error I am having now:


'Where files are copied to
targetPath$ = "P:\25-Workpacks\Workpacks - In Progress\C223-22-50-001 - BOTL-UP PIPING INTERCONNECTION B22322 KBM TO BBM\Isometrics\WP ISO" 'UPDATE as needed

'Sets the worksheet to work with
Set aws = ActiveSheet
'Alternate Forms
'Set aws = Sheets(1)
'Set aws = Sheets("FileList")
'Loop through Hyperlinks of the sheet
For Each hl In aws.Hyperlinks

'Identify the cell in which the Hyperlink resides
Set C = Range(hl.Range.Address)
'Test that it is not filtered
If C.Rows(1).RowHeight > 0 Then

'Set the File object, then
Set oFile = fso.GetFile(hl.Address)
'use the File object to copy the file
oFile.Copy targetPath$, OverWriteFiles:=True
End If
Next hl
End Sub

 

[tweedle]

What does the error message say?

Based on your previous posts, I was researching how long Hyperlinks had been available. [FYI: I too am at work]

 

[skinnerq]

Not sure what you mean by how long hyperlink avaiable. Dam I hope I can get this to work. It seems like I am very close. You would not believe how long it is taking me to save the hyperlinked file one by one. I really hope there is some way I can get this to work. It would be extremley a big help. Thanks. If I gave you my number could you call? Are you in canada?