webseite importieren
21.07.2005 07:21:02
frank
ich habe folgendes problem ich muss für eine auswertung mehrere webseiten abfragen und jetzt stellt mich excel vor ein problem:
es importiert nicht alle links usw.
mein makro (mit rekorder):
Sub Makro1()
Cells.Select
Selection.ClearContents
Selection.QueryTable.Delete
With ActiveSheet.QueryTables.Add(Connection:= _
"URL;X X X X X X" _
, Destination:=Range("A1"))
.Name = "X X X X X"
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = False
.RefreshOnFileOpen = False
.BackgroundQuery = True
.RefreshStyle = xlInsertDeleteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.WebSelectionType = xlSpecifiedTables
.WebFormatting = xlWebFormattingAll
.WebTables = "1"
.WebPreFormattedTextToColumns = True
.WebConsecutiveDelimitersAsOne = True
.WebSingleBlockTextImport = True
.WebDisableDateRecognition = False
.WebDisableRedirections = False
.Refresh BackgroundQuery:=False
End With
End Sub
jetzt meine frage ist es möglich nur den quelltext der jeweiligen seite zu importieren damit ich das problem mit den links nicht mehr habe?
für hilfe bin ich dankbar
gruß
frank