|
Hallo zusammen,
ich habe folgendes Excel-VBA-Problem:
in Spalte A stehen eine Reihe URLs, in Spalte B soll der jewilig dazugehörige HTML-Quelltext ausgegeben werden. Bisher sieht das VBA-projekt so aus:
Option Explicit
Public Sub Aufruf()
Dim rQuelle As Range
Dim rZiel As Range
Dim shSheet As Worksheet
Dim ii As Long
Dim strURL As String
Dim appIE As Object 'Objektvariable für Internet Explorer
Set shSheet = ActiveSheet
Set rQuelle = shSheet.Columns(1)
Set rZiel = shSheet.Columns(2)
Set appIE = CreateObject("InternetExplorer.Application") 'IE versteckt starten
For ii = 1 To rQuelle.Rows.Count
If rQuelle.Cells(ii, 1) <> "" Then
On Error Resume Next
strURL = rQuelle.Cells(ii, 1)
appIE.navigate strURL 'Laden der URL in den Internet Explorer
Do: Loop Until appIE.Busy = False 'Warten, bis IE die Seite fertig geladen hat
rZiel.Cells(ii, 1) = appIE.document.DocumentElement.outerHTML
Else
Exit For
End If
Next ii
appIE.Quit
Set appIE = Nothing
MsgBox "done"
End Sub
Das Problem ist nun, dass er mir den Quelltext einiger Seiten NICHT KOMPLETT ausgibt... Aus der Seite http://www.express.de/veedel/2868,2868.html macht er z.B.
<html lang="de" class="dj_ie dj_contentbox" xml:lang="en" xmlns="http://www.w3.org/1999/xhtml" xmlns:fb = "http://www.facebook.com/2008/fbml" xmlns:v = "urn:schemas-microsoft-com:vml"><head>
<link title="Veedel - EXPRESS" rel="alternate" type="application/rss+xml" href="/veedel/2868,2868,view,asFeed.xml">
<!-- Meta-Tags Start -->
<title>Veedel | EXPRESS</title>
<meta content="text/html; charset=UTF-8" http-equiv="content-type">
<meta name="robots" content="index, follow, noarchive, noodp, noydir">
<meta content="de" http-equiv="language">
<meta content="de" http-equiv="content-language">
<meta name="copyright" content="EXPRESS.DE">
<meta name="author" content="EXPRESS.DE"><meta name="email" content="info@express.de">
<meta name="keywords" content="Nachrichten, News, Köln, Bonn, Düsseldorf, Aachen, Mönchengladbach, Siegburg, Rheinland, Niederrhein">
<!-- Meta-Tags End -->
<link rel="shortcut icon" type="image/x-icon" href="/image/view/3710,5316031,favicon,Home.ico">
<link rel="canonical" href="http://www.express.de/express/veedel,3710,2868.html">
<link rel="stylesheet" type="text/css" href="/mauritius/comp/xp.css?x=20120416-1649">
<link rel="stylesheet" type="text/css" href="/code/view/express/9545234,overload2.0.css">
<script type="text/javascript">
djConfig = {
parseOnLoad: true,
baseUrl: "/mauritius/js/"
};
</script>
<script type="text/javascript" src="/mauritius/js/dojo.js"></script><script onreadystatechange="if(this.readyState=='complete'){dojo._loadInit();}" defer="" src="//:"></script><style></style>
<script type="text/javascript" src="/mauritius/js/express_dojo_210809.js"></script></head></html>
obwohl eigentlich weit mehr, also fast 1000 Zeilen mehr, drin steht---
Wer weiss Rat?
1000 Dank im Voraus!
Beste Grüße,
JohnJohn
|