PC-HELP.CZ

Ahoj všem,

potřeboval bych načíst ve VBA (konkrétně jde o makro/skript v MS Excel 2002) obsah libovolné url do nějaké proměnné, případně souboru, abych s tím obsahem mohl dále manipulovat. Jak se to dělá?

Předem moc děkuji za jakoukoliv (pokud možno relevantní a konstruktivní :-D

) radu!

P.

ty chceš jako url do proměnné například dát do proměnné toto : http://www.pc-help.cz/
nebo obsah stránky ? např. <body> <head> ...

Samozřejmě to druhé.

Na oněch stránkách, o které mi jde, je jistá tabulka. Na každé stránce s jiným obsahem, ale stejným formátem (nadpisy, počet sloupců, snad jen o něco jiný počet řádků).

De facto jde o velký počet takových stránek, jejichž url lze definovat pomocí smyčky. Ale o to nejde, ten algoritmus je jednoduchá smyčka.

O co jde, je skutečnost, že potřebuju do té proměnné (souboru???) načíst ten HTML kód mezi tagem "<table..." a "</table>", zbytek definice stránky (jako <body>, <title>, apod.) v pohodě zvládnu, že jo.

Jak na to?

P.

Na vebu jsem jednou nekde nasel prispevek Jiriho Cihare - Dataspectrum resici nacitani denniho kurzu CNB, uz nevim kde (mozna Pandora).
Mirne modifikovana podoba originalu je zde a muze poslouzit jako voditko:

Kód: Vybrat vše

Option Explicit

Sub DenniKurzyCNB()
Dim Dat As Date, Mena As String, URL As String, objHTTP As Object
Dim PoleTemp, PolePom, i As Integer, j As Byte
Dim Pole(), TargetCll As Range
'
  Dat = Format(Now, "dd.mm.yyyy")  ' datum pro posledni platny stav kurzu, novy v prac dny po 14:30
  'adresa odkazu (CNB)
  URL = "http://www.cnb.cz/cs/financni_trhy/devizovy_trh/kurzy_devizoveho_trhu/denni_kurz.txt?date=" & Dat
  Set objHTTP = CreateObject("MSXML2.XMLHTTP")
  Call objHTTP.Open("GET", URL, False)
  objHTTP.Send
'
'  'výpis do okna Immediate
'  Debug.Print (objHTTP.responseText)
'
  'pole pro vypreparování údajù
  PoleTemp = Split(objHTTP.responseText, vbLf) ' novy radek; za posl pol je take vbLf, coz prida prazdnou polozku!
'
'  'výpis do okna Immediate
'  i = 0
'  Do
'    Debug.Print i; " * "; PoleTemp(i)
'    i = i + 1
'  Loop While i < UBound(PoleTemp)
'
  ' separace do Pole a vlozeni do listu
  Set TargetCll = Worksheets("list2").Range("a1")
  ReDim Pole(UBound(PoleTemp), 4)
  i = 0
  Mena = "EUR"
  Do
'************* tato cast jen pro EUR do msgboxu
    If InStr(PoleTemp(i), Mena) > 0 Then
      PolePom = Split(PoleTemp(i), "|")
      MsgBox PolePom(2) & " " & PolePom(3) & " " & PolePom(4)
    End If
'************ tato cast pro vsechny meny do listu
    PolePom = Split(PoleTemp(i), "|")
    j = 0
    Do
      If i > 1 And j = 4 Then
'        ve vypisu je oddelovac desetinnych cisel ",", pro VBA nutno zmenit na "."
'        Pole(i, j) = Val(Replace(PolePom(j), ",", "."))
        TargetCll.Offset(i, j).Value = Val(Replace(PolePom(j), ",", "."))
      Else
        Pole(i, j) = PolePom(j)
        TargetCll.Offset(i, j).Value = PolePom(j)
      End If
      j = j + 1
    Loop While j < UBound(PolePom) + 1
'***********
    i = i + 1
  Loop While i < UBound(PoleTemp)
'
  TargetCll.Resize(UBound(PoleTemp), 5).Columns.AutoFit
'
End Sub

jj, je to na Pandoře

PC-HELP.CZ

Jak ve VBA načíst obsah internetové stránky do proměnné?

Jak ve VBA načíst obsah internetové stránky do proměnné?

Re: Jak ve VBA načíst obsah internetové stránky do proměnné?

Re: Jak ve VBA načíst obsah internetové stránky do proměnné?

Re: Jak ve VBA načíst obsah internetové stránky do proměnné?

Re: Jak ve VBA načíst obsah internetové stránky do proměnné?