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

• #24360 zolynet veterán

  Új Válasz 2014-11-26 11:00:26 #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