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

• #19414 DIEGO15 őstag Mutt #19408

  Új Válasz 2013-10-30 10:31:52 #19414

  Ú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

  

  DIEGO15

  őstag

  válasz Mutt #19408 üzenetére

  Sub Basic_Web_Query()
  
  With ActiveSheet.QueryTables.Add(Connection:= _
  "URL;" & Range("A1").Value, Destination:=Range("$A$2"))
  .Name = "q?s=goog_2"
  .FieldNames = True
  .RowNumbers = False
  .FillAdjacentFormulas = False
  .PreserveFormatting = True
  .RefreshOnFileOpen = False
  .BackgroundQuery = True
  .RefreshStyle = xlInsertDeleteCells
  .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

  Ezzel próbálkoztaem, de így nem megy "400" hibaüzenettel kiszáll, csak így megy "URL;www.valami.hu" , viszont nekem ez kevés.

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