|
Vielen Dank für deinen Hinweis! Ich habe jetzt den unteren Code-Abschnitt in die Schleife gepackt:
For Each oLink In oRng.hyperlinks
If Right(LCase(oLink.Address), 3) = "pdf" And _
Left(LCase(oLink.Address), 4) = "http" Then
vAddr = Split(oLink.Address, "/")
strFName = vAddr(UBound(vAddr))
strURL = oLink.Address
strLocal = strPath & strFName 'here the drive and download directory
End If
URLDownloadToFile(0, strURL, strLocal, 0, 0) = 0
Next oLink
Aber bei "URLDownloadToFile" kommt beim Kompilieren immer ein Fehler "Funktionsaufruf der linken Seite der Zuweisung muss den Typ Variant oder Object" zurückgeben.
Ich habe deshalb den ursprünglichen Code in die Schleife geschoben und die msg-box auskommentiert. Jetzt funktioniert es, sieht aber gruselig aus... Naja "if it works, it cant be silly"...
Vielen Dank dir!
For Each oLink In oRng.hyperlinks
If Right(LCase(oLink.Address), 3) = "pdf" And _
Left(LCase(oLink.Address), 4) = "http" Then
vAddr = Split(oLink.Address, "/")
strFName = vAddr(UBound(vAddr))
strURL = oLink.Address
strLocal = strPath & strFName 'here the drive and download directory
If URLDownloadToFile(0, strURL, strLocal, 0, 0) = 0 Then
' MsgBox strFName & " - downloaded"
' Else
' MsgBox strFName & " - download failed"
End If
End If
Next oLink
|