XL2000: pomocí DDE příklady jazyka

Překlady článku Překlady článku
ID článku: 213626 - Produkty, které se vztahují k tomuto článku.
Rozbalit všechny záložky | Minimalizovat všechny záložky

Na této stránce

Souhrn

Dynamic Data Exchange (DDE) je metoda výměnu dat s rozhraním DDE jiný program. V aplikaci Microsoft Excel je jeden způsob používání DDE prostřednictvím Visual Basic for Applications makro.

Další informace

Následující kód makra obsahuje některé příklady jednoduché pomocí DDE z aplikace Microsoft Excel do aplikace Word. 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

Makro Příklad 1:

Poznámka: použití toto makro musí být aplikace spuštěna.
  1. V novém listu modulu zadejte následující kód makra:
          Sub Using_DDE1()
    
          ' Dimension the variables.
          Dim Chan As Integer
          Dim RequestItems As Variant
    
          ' Start a channel to Word using the System topic.
          Chan = DDEInitiate("WinWord", "System")
    
          ' Requesting information from Word using the Formats item
          ' this will return a one dimensional array.
          RequestItems = DDERequest(Chan, "Formats")
    
          ' Uses a FOR loop to cycle through the array and display in a message box.
          For i = LBound(RequestItems) To UBound(RequestItems)
    
              MsgBox RequestItems(i)
    
          Next i
    
          ' Terminate the DDE channel.
          DDETerminate Chan
    
          End Sub
    						
  2. Spustit makro "Using_DDE1".
Řadu zprávou zobrazí s jednotlivé typy k dispozici formát v aplikaci Word.

Makro Příklad 2:

Poznámka: použití tohoto příkladu musí být aplikace spuštěna.

  1. Uložení dokumentu aplikace Microsoft Word nazývá ddetest.doc kořenového adresáře jednotky C.
  2. Otevřete nový sešit aplikace Excel a v List1 buňky A1 zadejte hello.
  3. Zadejte následující kód makra do nového listu modulu v tomto sešitu:
          Sub Using_DDE2()
    
          ' Dimension the variables.
          Dim PokeRange As Object
          Dim Chan As Integer
    
          ' Create an range object to poke.
          Set PokeRange = Range("Sheet1!a1")
    
          ' Initiate a channel to Word using a file as the topic.
          Chan = DDEInitiate("WinWord", "c:\ddetest.doc")
    
          ' Execute a few WordBasic commands.
          DDEExecute Chan, "[FileNewDefault]"
          DDEExecute Chan, "[InsertPara]"
          DDEExecute Chan, "[InsertPara]"
    
          ' Pokes the data in A1 into ddetest.doc.
          ' This is not poked into the active document.
          ' The data is placed in the topic that started the DDE conversation.
          ' \StartOfDoc is a predefined bookmark in Word.
          DDEPoke Chan, "\StartOfDoc", PokeRange
    
          ' Terminate the DDE channel.
          DDETerminate Chan
    
          End Sub
    						
  4. Spustit makro "Using_DDE2".
  5. V aplikaci Word otevřete dokument ddetest.doc.

    Poznámka: slovo "Ahoj" (bez uvozovek) je přidán do začátku dokumentu.

Odkazy

Další informace o DDE v editoru jazyka klepněte v nabídce Nápověda pro Microsoft Visual Basic zadejte DDE v Pomocníkovi Office nebo průvodce a klepněte na tlačítko Hledat zobrazíte příslušné téma.

Vlastnosti

ID článku: 213626 - Poslední aktualizace: 23. listopadu 2006 - Revize: 3.5
Informace v tomto článku jsou určeny pro produkt:
  • Microsoft Excel 2000 Standard Edition
Klíčová slova: 
kbmt kbdtacode kbhowto kbprogramming KB213626 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:213626

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