Új hozzászólás Aktív témák

  • DIEGO15

    őstag

    Sziasztok. Weboldalról szeretnék lekérdezést csinálni, de vannak bizonyos oldalak, amiken nem tudok. Ilyen pl. az eredmenyek.com , ha erre a címre indítok lekérdezést, gyakorlatilag csak az országok nevét másolja le. Tudna nekem valaki segíteni ebben? :)

    Ezt a forrást használtam eddig:

    Sub Basic_Web_Query()

    With Munka2.QueryTables.Add(Connection:= _
    "URL;" & Range("A1").Value, Destination:=Range("$B$2"))

    .FieldNames = True
    .RowNumbers = False
    .FillAdjacentFormulas = False
    .PreserveFormatting = True
    .RefreshOnFileOpen = False
    .BackgroundQuery = True
    .RefreshStyle = xlOverwriteCells
    .SavePassword = False
    .SaveData = True
    .AdjustColumnWidth = True
    .RefreshPeriod = 0
    .WebSelectionType = xlSpecifiedTables
    .WebFormatting = xlWebFormattingNone
    .WebTables = "1,2"
    .WebPreFormattedTextToColumns = True
    .WebConsecutiveDelimitersAsOne = True
    .WebSingleBlockTextImport = False
    .WebDisableDateRecognition = False
    .WebDisableRedirections = False
    .Refresh BackgroundQuery:=False
    End With

    End Sub

Új hozzászólás Aktív témák