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

• #1683 lapa veterán szt82 #1672

  Új Válasz 2006-10-29 09:12:25 #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