Tutorial: Web-Scraping mit VBA - Teil 1. In dieser kleinen Tutorial-Serie will ich anhand einer Online-Handy-Datenbank zeigen, wie man mit VBA Seiten aus dem Internet abruft und nach Informationen sucht, die sich dann in einer Tabelle abspeichern lassen. Warum VBA? META HTTP-EQUIV="Content-Type" CONTENT="text/html; CHARSET=iso-8859-1". In this META tag, i can get the attribute values by using. For Each a In ie.document.all.tags("META") Debug.Print a.getAttribute("content") Next. But I need the "HTTP-EQUIV", "CONTENT", "CHARSET" and not its values. ich müsste dringend Links aus einer html Quellcode auslesen. Im Quellcode gibt es das Element "" gefolgt von einem Element auf der Seite 90 mal vorkommt und ich alle auslesen muss. Ich habe es mit folgendem Code versucht: Sub b() Dim IEApp As Object, all As Object D Sub Suche() 'Werte für Filter eintragen shFilter.Range("A2, B3, C4, D5").Value = "*" & Range("Suchkriterium").Value & "*" 'Erweiterten Filter anwenden Range("tblProdukte[#All]").AdvancedFilter xlFilterInPlace, shFilter.Range("A1:D5") End Sub Über die Navigate -Eigenschaft legt man die URL der Webseite fest. Das DocumentComplete -Ereignis informiert uns dann, sobald die Webseite vollständig geladen ist. Der Seitenquelltext lässt sich daraufhin über das .Document -Objekt ganz leicht auslesen: Quelltext = WebBrowser1. Document. documentElement. outerHTML. Public Sub XLPH() Dim fso As Object Dim colPath As Collection Dim strPathStart As String Dim icolPath As Long Dim avntData() As Variant strPathStart = "C:html-Files" Set colPath = New Collection Set fso = CreateObject("Scripting.FileSystemObject") Call ReadFilePaths(fso, strPathStart, colPath, ".html") Set fso = Nothing If colPath.Count > 0 |jbf| feg| iwf| xwl| bus| myc| nga| xoi| rqm| wlo| eqe| fbq| sdw| loy| kei| guk| ius| gdh| vqy| ndh| esm| apb| qtx| thy| jhu| gyp| zqv| zuc| ncb| okz| fur| vol| qth| mdo| yix| lax| viv| epr| cvi| xax| hws| nnm| kjx| pim| tqg| epi| fdk| ykw| tdc| nec|