Hallo zusammen,
ich möchte aus einer http:// Seite Daten auslesen (das sind Excel listen) und in eine andere Excel nur manche Zellen die ich möchte automatisch hinzufügen.
In der http:// gibt es aber z.B zwei Ordnern. Alle einzeln sollen geöffnet und die Daten ausgelesen werden.
Ist so was machbar?
Ersten zum üben habe ich mal einfach so ausprobiert, die Daten aus einer Excel die im Desktop gespeicher ist zu auslesen und kopieren. Hat funktioniert. Aber das aus dem Internet Daten holen könnte ich nicht.
Ich hab hier mal was versucht: und zwar als Bespiel diese seite http://www.herber.de/ aufgerufen und dort sind zb Ordnern(Bsp.in diesem Fall Kunden-Referenzliste, diese halt eine andere URL Adresse weil es wo anders liegt) und da soll es rein und in diesen Ordnern sind Excel listen zb. Drinne (natürlich sind in diesem Beispiel keine Excel liste sondern irgendwas beschrieben) und die möchte ich auslesen und in eine andere Excel kopieren.
Sub test()
Dim subFolder_1, subFolder_2 As String
Dim writeCells As Boolean
writeCells = True
startRow = Params.startRow
iterations = 0
fileNameList = ActiveWorkbook.Name '' Ich glaub das geht nicht hier?!
''Liste durchgehen und einzelnen Listen oefnnen
For i = startRow To maxRow
Dim WshShell As Object
Set WshShell = CreateObject("WScript.Shell")
WshShell.Run "http://www.herber.de/"
End Sub
Würde da mir jemand weiterhelfen?
Schon mal Vielen Dank! |