3th try please help anyone?

[thommienl]

This is my 3th post and so far i have not yet received any reply.
Can someone please try to help/assist me with the below question?

In row A i got all kind of hyperlinks to PDF files stored on my PC. Is it possible to select several of these hyperlinks of my choosing,
and then save the selected hyperlinks to these PDF files to a folder of my own choosing? The idea is to end up with an folder with the selected PDF's so not the hyperlink should be saved in the folder but the PDF file which the hyperlink points at.

Thank you?

 

[Firefly2012]

Are you happy to use VBA code to do this?

 

[thommienl]

Yes please.

 

[Firefly2012]

Opne up the VBE (Alt+F11) and go Insert>Module in the Menu bar in the VBE. Paste the following in to the module that will appear:

Sub SaveDownHyperlink()
Dim strFolder As String
Dim strFiles As String
Dim cell As Range
Dim arrFiles As Variant, itm As Variant


For Each cell In Selection
    Debug.Print cell.Address
    If cell.Hyperlinks.Count Then
        strFiles = "," & cell.Hyperlinks(1).Address & strFiles
    End If
Next cell

If Len(strFiles) > 0 Then
    arrFiles = Split(Mid(strFiles, 2), ",")
    With Application.FileDialog(msoFileDialogFolderPicker)
        .InitialFileName = ActiveWorkbook.Path
        If .Show = -1 Then
            If Len(.SelectedItems(1)) > 0 Then
                strFolder = .SelectedItems(1)
                For Each itm In arrFiles
                    FileCopy itm, strFolder & Mid(itm, InStrRev(itm, "\"))
                Next itm
            Else
                MsgBox "No folder selected"
            End If
        End If
    End With
End If
End Sub

Back in your Excel sheet, make your selection (of your Hyperlinks) and run the macro.

 

[thommienl]

Thank you.

It works when i hyperlink to my own Harddisk, but in my excel i got hyperlinks to a server (Http).
I get the folder to save it in, but once i press ok i get the error code:
Run-time error 5:Invalid Procedure call or argument.

I suspect it has something to do with the server i want to get the PDF file from, since it is working for my own harddisk.

Any ideas?

Appreciate it.

 

[Firefly2012]

If you select one of these cells with the Hyperlink to the web address, and go Insert>Hyperlink via the ribbon, when the Hyperlinks dialog opens can you copy across the Address that is linked to (not the text that is displayed in the Hyperlink, but the underlying address) into a reply - I want to see what the format is.

There will be options to downloading the file and saving it.

Last question (I think) - is any kind of authentication (eg username/password) required to access the web address?

 

[thommienl]

Thank you for your response.

An example of a link at the bottom is: http://svrplmuk01/publicdoc/DocPropertiesInner.asp?ID=23678&ACTION=2&FORMAT=0

Pasword ect i don't think its needed. Once logged in on the computer/server i have acces.

<TBODY>
</TBODY><COLGROUP><COL></COLGROUP>

<TBODY>
</TBODY><COLGROUP><COL></COLGROUP>

 

[thommienl]

Hi, any luck with my above answer, or do you need more information perhaps?

Thank you.

 

[thommienl]

Dear Firefly,

I have tried and searched for it myself, but i cannot find the solution.

Can you or someone else please help me?

Thank you.

 

[aga1212]

Hey everyone,

Can somebody have a solution? I've got the same problem with error 5 (I am trying to save some .jpg from hyperlinks). Thanks in advance for any help!