Datei oder Ordner vorhanden - Internet...

Frage: In Spalte A habe ich eine Liste von Dateilinks z. B.
"http://vbanet.blogspot.de/2012/10/range-als-pdf-speichern-mit.html"
bzw. auch Ordner
"http://vbanet.blogspot.de/2012/10/".
Jetzt hätte ich gerne in Spalte B stehen, ob die Dateien bzw. Ordner vorhanden sind, oder nicht. Wie geht das?

Hier noch eine Beispieldatei: Datei oder Ordner vorhanden - Internet...

Option Explicit
'-------------------------------------------------------------------------- 
' Module    : Modul1 
' Procedure : Main 
' Author    : Case (Ralf Stolzenburg) 
' Date      : 31.10.2012 
' Purpose   : Datei oder Ordner vorhanden - Internet... 
'-------------------------------------------------------------------------- 
Public Sub Main()
    Call CheckRange(Tabelle1.Range("A1:A12"))
End Sub
Private Sub CheckRange(ByVal rngRange As Range)
    Dim objXML As Object
    Dim rngCell As Range
    On Error GoTo Fin
    Set objXML = CreateObject("Microsoft.XMLHTTP")
    For Each rngCell In rngRange
        On Error Resume Next
        With objXML
            .Open "GET", Tabelle1.Cells _
                (rngCell.Row, rngCell.Column).Text, False
            .Send
            If Not .ReadyState = 4 Then
                Tabelle1.Cells(rngCell.Row, _
                    rngCell.Column + 1).Value = "Adresse nicht lesbar"
            Else
                Tabelle1.Cells(rngCell.Row, _
                    rngCell.Column + 1).Value = .StatusText
            End If
        End With
        Err.Clear
        On Error GoTo Fin
    Next rngCell
Fin:
    Set objXML = Nothing
    If Err.Number <> 0 Then MsgBox "Error: " & _
        Err.Number & " " & Err.Description
End Sub

Beliebte Posts aus diesem Blog

Formeln - auch Array - per VBA eintragen...

Alle Dateien eines Ordners - Optional mit Unterordner

Excel -> Word in Textmarken (Bookmarks)...