Hirdetés

  2. Fórumok
  3. OS, alkalmazások
  4. Microsoft Excel topic
  5. (kiemelt téma)

Hirdetés

100 000 érv a ReGalaxy mellett: Vásárolj Galaxy Z Fold7 I Z Flip7 vagy Galaxy S25 szériás készüléket, és régi mobilod felújítását 100 000 Ft-ig mi álljuk!
  • Téma összefoglaló
    Utoljára frissítve: 2023-11-13 08:31

    Mobilarena

    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

  • #1683 lapa veterán szt82 #1672
    Új Válasz #1683
    Ú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

    lapa

    veterán

    válasz szt82 #1672 üzenetére

    megmondom a frankót nem teljesen értem hogyan varázsolódik össze a linked, de a lekérdezés nálam így műxik:

    With ActiveSheet.QueryTables.Add(Connection:= _
    ''URL;http://prohardver.hu/f.php?mod=40&id='' & Cells(1, 1).Value & ''&start='' & Cells(1, 2).Value, Destination:= _
    Range(''A2''))
    .Name = ''f.php?mod=40&id=11113&start=1500''
    .FieldNames = True
    .RowNumbers = False
    .FillAdjacentFormulas = False
    .PreserveFormatting = True
    .RefreshOnFileOpen = False
    .BackgroundQuery = True
    .RefreshStyle = xlInsertDeleteCells
    .SavePassword = False
    .SaveData = True
    .AdjustColumnWidth = True
    .RefreshPeriod = 0
    .WebSelectionType = xlEntirePage
    .WebFormatting = xlWebFormattingNone
    .WebPreFormattedTextToColumns = True
    .WebConsecutiveDelimitersAsOne = True
    .WebSingleBlockTextImport = False
    .WebDisableDateRecognition = False
    .WebDisableRedirections = False
    .Refresh BackgroundQuery:=False

    End With


    itt pl. a1-ben 11113 van, a2-ben 800. szerintem külön lapra lekérdezve már ki tudod szedni azt az értéket ami neked kell. új lekérdezés előtt viszont nálam is törölni kellett a lekérdezett adatokat tartalmazó tartományt, egyéb esetben új oszlopot szúrt be...

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