AW: Sendkeys
20.02.2004 16:53:48
Student2000
Hallo, habe ein neues Problem, verwende den folgenden Code:
Sub Content()
' Makro3 Makro
' Makro am 19.02.2004 von User aufgezeichnet
Zelle = 1
For i = 1 To 2
Dim string1 As String
Range(Cells(i, 2), Cells(i, 2)).Select
string1 = ActiveCell.Hyperlinks.Item(1).Address
MsgBox string1
adresse = "URL;" & string1
MsgBox adresse
With ActiveSheet.QueryTables.Add(Connection:=adresse, Destination:=Worksheets("Top_100_Produzenten").Cells(Zelle, 6))
.Name = string1
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.BackgroundQuery = True
.RefreshStyle = xlInsertDeleteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.WebSelectionType = xlSpecifiedTables
.WebFormatting = xlWebFormattingNone
.WebTables = "4,5"
.WebPreFormattedTextToColumns = True
.WebConsecutiveDelimitersAsOne = True
.WebSingleBlockTextImport = False
.WebDisableDateRecognition = False
.WebDisableRedirections = False
.Refresh BackgroundQuery:=False
End With
Zelle = Zelle + 10
Next i
End Sub
Aber bekomme keinen Content gezogen. Manuell funktioniert es. Der Link ist wie folgt aufgebaut:
780077921 ->://www.euridile.com/weur2/iden_evaluation_type_ng.ow?WRNCS2=2016042793126569&entrep_srch=780077921&ACC_CLASS=1
ps: habe das http weggenommen.
mfg thomas