excel vba - načtení dat z webu - dynamická url

Programy pro práci v kanceláři (Word, Excel, Access…=>Office)

Moderátor: Mods_senior

phaethon
nováček
Příspěvky: 4
Registrován: září 17
Pohlaví: Nespecifikováno

excel vba - načtení dat z webu - dynamická url

Příspěvekod phaethon » 29 zář 2017 00:35

Dobrý den, poprosím o pomoc s excelem, odpověď jsem nikde nenašel a tak zkouším u zdejších odborníků...

V buňce C1 mám webovou adresu (např. na kurz japonského jenu), jejíž obsah chci stáhnout do nového listu. V dané buňce bude vždy jiný odkaz. Nemůžu přijít na to, jak do kódu vložit, aby se stáhl obsah z url, která je definována v konkrétní buňce. Jsem laik s vba a kód níže je z pohybu v excelu a minimálně upravený. Když vložím do C1 odkaz na dolar, při spuštění makra budu mít data ohledně jenu zase.

Předem moc děkuji za pomoc.

Kód: Vybrat vše

Range("C1").Select
    Selection.Copy
    Sheets.Add After:=Sheets(Sheets.Count)
    Application.CutCopyMode = False
    With ActiveSheet.QueryTables.Add(Connection:= _
        "URL;http://www.kurzy.cz/kurzy-men/nejlepsi-kurzy/JPY-japonsky-jen", _
        Destination:=Range("$A$1"))
        .Name = "JPY-japonsky-jen"
        .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
    Sheets("List1").Select
    Range("A1").Select
End Sub



Reklama
  • Mohlo by vás zajímat
    Odpovědi
    Zobrazení
    Poslední příspěvek
  • Excel - kopírování dat z jednoho souboru do druhého pomocí VBA
    od simstriks » 14 zář 2017 09:28 » v Kancelářské balíky
    26
    982
    od simstriks
    11 říj 2017 14:50
  • Načtění dat s NTB harddisku
    od Jettero » 04 lis 2016 11:39 » v Problémy s hardwarem
    8
    215
    od Jettero
    04 lis 2016 12:33
  • Kopírování a mazání dat přes VBA v Excelu
    od janzen01 » 21 črc 2017 18:20 » v Kancelářské balíky
    1
    259
    od atari
    25 črc 2017 09:09
  • VBA Excel - komprese obrázku
    od MK_Vs » 13 čer 2017 21:06 » v Kancelářské balíky
    1
    267
    od xlnc
    14 čer 2017 18:40
  • excel VBA - dynamický vzorec (přírůstek sloupců)
    od phaethon » dnes, 08:50 » v Kancelářské balíky
    5
    64
    od elninoslov
    dnes, 10:07

Zpět na “Kancelářské balíky”

Kdo je online

Uživatelé prohlížející si toto fórum: CommonCrawl [Bot] a 1 host