XL2000: pomocí DDE příklady jazyka

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
Tento článek byl archivován. Je nabízen v takovém stavu, v jakém je, a nebude již nadále aktualizován.
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.
odesílání hovořit XL2000 komunikovat

Upozornění: Tento článek je přeložený automaticky

Vlastnosti

ID článku: 213626 - Poslední kontrola: 12/05/2015 12:15:42 - Revize: 3.5

Microsoft Excel 2000 Standard Edition

  • kbnosurvey kbarchive kbmt kbdtacode kbhowto kbprogramming KB213626 KbMtcs
Váš názor