Hirdetés

  2. Fórumok
  3. OS, alkalmazások
  4. Microsoft Excel topic
  5. (kiemelt téma)
  • Téma összefoglaló
    Utoljára frissítve: 2023-11-13 08:31

    PROHARDVER!

    A Microsoft Excel topic célja segítséget kérni és nyújtani Excellel kapcsolatos problémákra.
    Kérdés felvetése előtt olvasd el, ha még nem tetted.

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

  • #24360 zolynet veterán
    Új Válasz #24360
    Új hozzászólás
    Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra
    Privát üzenet küldése

    zolynet

    veterán

    Sziasztok!

    Excel makróban kérnék segítséget, erről az oldalról szeretnék leszedni infot: http://www.nfh.hu/pozitiv-lista?title=&field_shop_value=&page=0 ... úgy hogy az üzlet mögötti url-t is lementse.
    Gondolom a WebSelectionType = xlSpecifiedTables kellene használnom, de nem igazán értem.
    Tudok ez ügyben segíteni.

    Az odáig rendben van hogy hogy szedem le az alapadatokat: (a formázással sincs utána gond)

    With ActiveSheet.QueryTables.Add(Connection:= _
    "URL;http://www.nfh.hu/pozitiv-lista?title=&field_shop_value=&page=0" _
    , Destination:=Range("A1"))
    .FieldNames = False
    .RowNumbers = False
    .FillAdjacentFormulas = False
    .PreserveFormatting = True
    .RefreshOnFileOpen = False
    .BackgroundQuery = True
    .RefreshStyle = xlInsertDeleteCells
    .SavePassword = False
    .SaveData = True
    .AdjustColumnWidth = True
    .RefreshPeriod = 0
    '.WebSelectionType = xlAllTables
    .WebSelectionType = xlEntirePage
    .WebFormatting = xlWebFormattingNone
    .WebPreFormattedTextToColumns = True
    .WebConsecutiveDelimitersAsOne = True
    .WebSingleBlockTextImport = False
    .WebDisableDateRecognition = False
    .Refresh BackgroundQuery:=False
    End With

    Tudom a végén egy ciklus kell rá, de az most még nem érdekes.

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