title image


Smiley Hyperlinks über VBA downloaden und in Zielordner abspeichern
hiho



 A1http://www.herber.de/images/herberlogo.gif2http://www.spotlight.de/pic/logos/spotlight_sml_1.gif3http://www.erfahrungswerte.de/pic/misc/hinweis-295-145.gif4 5 6 7 8 9 10 









Option Explicit

Private Declare Function URLDownloadToFile Lib "urlmon" _

  Alias "URLDownloadToFileA" ( _

  ByVal pCaller As Long, _

  ByVal szURL As String, _

  ByVal szFileName As String, _

  ByVal dwReserved As Long, _

  ByVal lpfnCB As Long) As Long

Sub DownLoad_Links()

'nur bei so vielen Links kann es dauern!!!!!!!!

Dim lResult As Long

Dim sURL As String

Dim sLocalFile As String

Dim i As Integer

Dim path As String, Spalte As String

'***************************************************

Spalte = "A" 'anpassen

path = "c:\temp\" 'anpassen das ist der Speicherort

'***************************************************

For i = 1 To Cells(Cells.Rows.Count, Spalte).End(xlUp).Row

    sURL = Cells(i, Spalte).Value

    ' Dateiname Lokal

    sLocalFile = path & Right(sURL, Len(sURL) - InStrRev(sURL, "/"))

    'download

    lResult = URLDownloadToFile(0, sURL, sLocalFile, 0, 0)

    If lResult <> 0 Then

        MsgBox "Fehler beim Download: " & _

       "Entweder existiert die URL nicht, oder Sie haben " & _

       "einen ungültigen Dateinamen angegeben!", vbCritical

    End If

Next

End Sub












Feedback nicht vergessen ! Gutes gelingen wünscht Chris

I didn't write this; a very complex macro did.

0110110001101001011001010110001001100101001000000110011101110010111111001101111101100101001000000110001101101000011100100110100101110011

geschrieben von


Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: