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

• #19476 DIEGO15 őstag DIEGO15 #19462

  Új Válasz 2013-11-07 20:07:40 #19476

  Ú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 DIEGO15 #19462 üzenetére

  Nem tudtok, vagy nem akartok nekem segíteni?

• #19408 Mutt senior tag DIEGO15 #19406

  Új Válasz 2013-10-29 20:08:38 #19408

  Ú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

  

  Mutt

  senior tag

  válasz DIEGO15 #19406 üzenetére

  Hello,

  ...A letöltendő weblap címe minden nap két karakterben módosul....
  Esetleg ezt próbáld meg.

  Sub WebImport()
  Dim URI As String
  Dim wsCel As Worksheet
  
  URI = ActiveCell.Value
  
  If URI <> "" Then
  Set wsCel = Worksheets.Add
  With wsCel.QueryTables.Add(Connection:= _
  "URL;" & URI, _
  Destination:=Range("$A$1"))
  .Name = "Adatok"
  .FieldNames = True
  .RefreshStyle = xlInsertDeleteCells
  .SaveData = True
  .WebSelectionType = xlEntirePage
  .WebFormatting = xlWebFormattingNone
  .WebPreFormattedTextToColumns = True
  .WebConsecutiveDelimitersAsOne = True
  .WebSingleBlockTextImport = False
  .WebDisableDateRecognition = True
  .WebDisableRedirections = True
  .Refresh BackgroundQuery = False
  End With
  End If
  End Sub

  üdv

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