• Privacywetgeving
    Het is bij Helpmij.nl niet toegestaan om persoonsgegevens in een voorbeeld te plaatsen. Alle voorbeelden die persoonsgegevens bevatten zullen zonder opgaaf van reden verwijderd worden. In de vraag zal specifiek vermeld moeten worden dat het om fictieve namen gaat.

URL van text downloaden

Status
Niet open voor verdere reacties.
M

martinus1988

Gebruiker
Lid geworden
8 aug 2013
Berichten
19
Voor een import van een webshop heb ik een productsheet van de leverancier gekregen. Deze heb ik helemaal omgebouwd en alles werkt prima. Dit op 1 ding na.

De productbeschrijvingen zijn url's. Ik moet deze urls eerst downloaden en vervolgens vervangen in het kopje omschrijvingen. Heeft iemand een suggestie met wat voor programma dit goed werkt. (wget werkt bij mij niet op windows 8)

Hartelijk dank!Bekijk bijlage Helpmij vraag.xlsx

Martijn
 
This should do the trick...
Code: 
Sub Spaarie()
    With CreateObject("InternetExplorer.Application")
        For Each c In Sheets(1).Columns(3).SpecialCells(2).Offset(1).SpecialCells(2)
            .Navigate c
            Do Until .ReadyState = 4
                DoEvents
            Loop
            c.Offset(, 1).Value = .Document.Title
        Next
        .Quit
    End With
End Sub
 
Druk op de knop in het bestand voor het uitvoeren van de macro.

Om de macro in te zien: rechtermuisknop op tabblad > programmacode weergeven.
 

Bijlagen

Zet deze formule even in een naastliggende kolom:
Code: 
=LINKS(D4;VIND.SPEC("-";D4;1)-1)
Vervolgens kopiëren - plakken speciaal - waarden
 
Status
Niet open voor verdere reacties.
                    Steun ons                    

Nieuwste berichten

Terug
Bovenaan Onderaan