Xl97: Jak programová provést webový dotaz

Překlady článku Překlady článku
ID článku: 162080 - Produkty, které se vztahují k tomuto článku.
Tento článek byl archivován. Je nabízen v takovém stavu, v jakém je, a nebude již nadále aktualizován.
Rozbalit všechny záložky | Minimalizovat všechny záložky

Na této stránce

Souhrn

Webový dotaz je nová funkce v aplikaci Microsoft Excel 97, která umožňuje načíst data uložená v intranetu, Internetu nebo webu. Webový dotaz lze použít statické parametry, dynamické parametry nebo kombinace obou. Dotazech s parametry statické odeslat dotaz bez jakékoli vstup; dotazech s parametry dynamické výzvu pro vstup. Bez ohledu na typ parametry v dotazu je z Internetu nebo intranetu webu vyžádány požadované informace a výsledky jsou umístěny v listu.

Pomocí formuláře jazyk HTML (HTML), můžete použít dvě metody k odeslání parametry serveru: POST a GET. GET použít, když odesíláte malé částky informace a POST při odesílání větší množství informací. Metody GET připojí parametry k v Uniform Resource Locator (URL). Parametry metody POST odešle jako samostatný řádek textu v souboru dotazu.

Tento článek obsahuje příklad použití makra spouštět dotazy webové metody POST a GET.

Další informace

Ukázky programů jsou společností Microsoft poskytovány pouze pro ilustraci bez žádné záruky výslovně uvedené ani předpokládané, včetně předpokládaných záruk vztahujících se k obchodovatelnosti nebo vhodnosti pro určitý účel. Tento článek předpokládá, že uživatel je obeznámen s programovacím jazykem, který je předmětem ukázky, a s nástroji použitými pro vytvoření a ladění skriptu. Pracovníci technické podpory společnosti Microsoft mohou vysvětlit funkce určitého postupu, nemohou však následující příklady rozšířit o další funkce nebo konstrukce podle konkrétních požadavků uživatele.
Pokud máte zkušenosti s programováním omezený, můžete kontaktovat partnera s certifikátem Microsoft nebo služby Advisory. Na další informace těchto webech společnosti Microsoft:

Microsoft Certified Partner - https://partner.microsoft.com/global/30000104

Služba Microsoft zpravodaje - http://support.microsoft.com/gp/advisoryservice

Další informace o možnostech podpory, které jsou k dispozici a o možnostech kontaktování společnosti Microsoft na následujícím webu společnosti Microsoft: http://support.microsoft.com/default.aspx?scid=fh;EN-US;CNTACTMS

Programově spuštění webový dotaz

Chcete-li programově spustit webový dotaz, musíte použít metodu Add kolekce QueryTables. Při použití metody Add vrátí objektu tabulky dotazu, který představuje nové tabulky dotazu. Syntaxe metodu Add je následující:
   <expression>.Add(Connection, Destination, Sql)
				
objekt <expression>je vyžadován a vrátí tabulky dotazu. Argument připojení je také vyžadován a zdroj dat pro tabulky dotazu. V kontextu webových dotazů můžete použít jeden ze dvou typů řetězce připojení: URL nebo NÁLEZCI. Při zadání typu URL použijte úplnou adresu URL serveru, na kterém provádíte dotazu (můžete zkopírovat na třetím řádku z libovolného souboru webového dotazu (s příponou IQY) a použít jako adresu). Určit typ NÁLEZCI použijete úplnou cestu k existující soubor webového dotazu (s příponou IQY).

Vytvoření modulu jazyka

Před použití v příkladech v tomto článku je nutné vytvořit modul. Postup je následující:
  1. Uložte a zavřete všechny otevřené sešity a vytvořte nový sešit.
  2. Spusťte Editor jazyka (stiskněte ALT + F11).
  3. V nabídce Vložit klepněte na modul.

Příklady URL

Statické webový dotaz (metoda GET):

Následující příklad používá statické parametry; nejsou vyzváni pro hodnoty odeslat na server. Vytvořit toto makro, použijte následující kroky:
  1. V modulu zadejte následující kód:
         Sub URL_Get_Query()
    
              With ActiveSheet.QueryTables.Add(Connection:= _
                  "URL;http://webservices.pcquote.com/cgi-" & _
                  "bin/excelget.exe?TICKER=msft", _
                  Destination:=Range("a1"))
    
                  .BackgroundQuery = True
                  .TablesOnlyFromHTML = True
                  .Refresh BackgroundQuery:=False
                  .SaveData = True
              End With
          End Sub
    						
  2. Přepnout List1 v sešitu.
  3. Spustit makro URL_Get_Query.
Podrobné akcií pro MSFT je vrácena List1.

Dynamický webový dotaz (Metoda POST):

Následující příklad používá dynamické parametry; výzvy pro hodnoty odeslat na server. Tento příklad používá metodu POST, protože parametry jsou obsaženy v dotazu. Chcete-li vytvořit makro, použijte následující kroky:
  1. Přepněte do editoru jazyka a v listu modulu zadejte následující makro:
     Sub URL_Post_Query()
    
              With ActiveSheet.QueryTables.Add(Connection:= _
                  "URL;http://webservices.pcquote.com/cgi-bin/excel.exe", _
                  Destination:=Range("a1"))
    
                  .PostText = _
                      "QUOTE0=[""QUOTE0"",""Enter up to 20 symbols separated "
    & _
                      "by spaces.""]"
    
                  .BackgroundQuery = True
                  .TablesOnlyFromHTML = True
                  .Refresh BackgroundQuery:=False
                  .SaveData = True
              End With
          End Sub
    
    						


  2. Přepněte List2 v sešitu a spustit makro URL_Post_Query.

    Protože tento příklad používá dynamické parametry, vyzváni k zadání hodnot parametrů.
  3. V dialogovém okně zadat hodnotu parametru zadejte až dvacet platné symboly akcií, které jsou oddělené mezerou; zadejte například msft.
  4. Klepněte na tlačítko OK.
Akcií pro symboly akcií zadané jsou vráceny do tabulky List2.

Příklady NÁLEZCI

Dynamické dotaz (metoda GET):

Pomocí typu NÁLEZCI připojení zadat úplnou cestu k existující soubor webového dotazu (s příponou IQY). Tento příklad používá metodu GET, protože souboru dotazu na webu, "Podrobné nabídka zásoby podle PC nabídka Inc.iqy," používá metodu GET. Parametry a adresu serveru, tedy jsou na třetí řádek v souboru. Chcete-li vytvořit makro, použijte následující kroky:
  1. Přepněte do editoru jazyka a v listu modulu zadejte následující makro:
          Sub Finder_Get_Query()
    
              IQYFile = "c:\Program Files\Microsoft Office\Queries\" & _
                  "Detailed Stock Quote by PC Quote, Inc.iqy"
    
              With ActiveSheet.QueryTables.Add(Connection:= _
                  "FINDER;" & IQYFile, Destination:=Range("A1"))
    
                  .BackgroundQuery = True
                  .TablesOnlyFromHTML = True
                  .Refresh BackgroundQuery:=False
                  .SaveData = True
              End With
          End Sub
    						
  2. Přepněte List3 v sešitu a spustit makro Finder_Get_Query.

    Protože tento příklad používá dynamické parametr, zobrazí se výzva pro hodnotu parametru.
  3. V dialogovém okně zadat hodnotu parametru zadejte platný symbol akcií.
  4. Klepněte na tlačítko OK.
Podrobné akcií je vrácena List3 pro burzovní symbol zadali v kroku 3.

Dynamické dotaz (Metoda POST):

Pomocí typu NÁLEZCI připojení zadat úplnou cestu k existující soubor webového dotazu (s příponou IQY). Tento příklad používá metodu POST, protože souboru dotazu na webu, "Více akcií podle PC nabídka Inc.iqy," používá metodu POST. To znamená parametry jsou na čtvrtém řádku a URL serveru je na třetím řádku v souboru. Chcete-li vytvořit makro, použijte následující kroky:
  1. Přepněte do editoru jazyka a v listu modulu zadejte následující makro:
       Sub Finder_Post_Query()
    
              IQYFile = "c:\program files\microsoft office\queries\" & _
                  "Multiple Stock Quotes by PC Quote, Inc.iqy"
    
              With ActiveSheet.QueryTables.Add(Connection:= _
                  "FINDER;" & IQYFile, Destination:=Range("A1"))
    
                  .PostText = _
                      "QUOTE0=[""QUOTE0"",""Enter up to 20 symbols separated "
    & _
                      "by spaces.""]"
    
                  .BackgroundQuery = True
                  .TablesOnlyFromHTML = True
                  .Refresh BackgroundQuery:=False
                  .SaveData = True
              End With
          End Sub
    						
  2. Přepněte Sheet4 v sešitu a spustit makro Finder_Post_Query.

    Protože tento příklad používá dynamické parametry, zobrazí se výzva pro hodnoty parametrů.
  3. V dialogovém okně zadat hodnotu parametru zadejte až dvacet platné symboly akcií, které jsou oddělené mezerou; zadejte například msft.
  4. Klepněte na tlačítko OK.
Akcií pro symboly akcií zadané jsou vráceny do tabulky v Sheet4.

Další informace naleznete v následujícím článku databáze Microsoft Knowledge Base:
157482Xl97: Jak vytvořit webové dotazy (s příponou IQY) soubory

Odkazy

Další informace o webových dotazů klepněte na kartu Rejstřík v nápovědě aplikace Excel, zadejte následující text
web, dotazy
a potom poklepejte na vybraný text přejděte na téma "Vytvoření webového dotazu".

Další informace o přidat metodu klepněte na pomocníka Office zadejte querytable, klepněte na tlačítko Hledat a klepněte na tlačítko Zobrazit "Přidat Method (QueryTables kolekce)".

Poznámka: Pokud pomocník je skrytý, klepněte na pomocníka tlačítko na panelu nástrojů Standardní. Pokud <product>nápovědy není nainstalován v počítači, naleznete v následujícím článku databáze Microsoft Knowledge Base:
120802Sady Office: Jak přidat nebo odebrat jednoduché Office Program nebo součást

Vlastnosti

ID článku: 162080 - Poslední aktualizace: 24. ledna 2014 - Revize: 2.4
Informace v tomto článku jsou určeny pro produkt:
  • Microsoft Excel 97 Standard Edition
Klíčová slova: 
kbnosurvey kbarchive kbmt kbdtacode kbprogramming kbualink97 KB162080 KbMtcs
Strojově přeložený článek
Důležité: Tento článek byl přeložen pomocí software společnosti Microsoft na strojový překlad, ne profesionálním překladatelem. Společnost Microsoft nabízí jak články přeložené překladatelem, tak články přeložené pomocí software na strojový překlad, takže všechny články ve Znalostní databázi (Knowledge Base) jsou dostupné v češtině. Překlad pomocí software na strojový překlad ale není bohužel vždy dokonalý. Obsahuje chyby ve skloňování slov, skladbě vět, nebo gramatice, podobně jako když cizinci dělají chyby při mluvení v češtině. Společnost Microsoft není právně zodpovědná za nepřesnosti, chyby nebo škody vzniklé chybami v překladu, nebo při použití nepřesně přeložených instrukcí v článku zákazníkem. Společnost Microsoft aktualizuje software na strojový překlad, aby byl počet chyb omezen na minimum.
Projděte si také anglickou verzi článku:162080

Dejte nám zpětnou vazbu

 

Contact us for more help

Contact us for more help
Connect with Answer Desk for expert help.
Get more support from smallbusiness.support.microsoft.com