Ako používať OLE automatizácie pridať údaje do hárka programu Excel

Preklady článku Preklady článku
ID článku: 142193 - Zobraziť produkty, ktorých sa tento článok týka.
Rozbaliť všetko | Zbaliť všetko

Na tejto stránke

SUHRN

OLE automatizácie poskytuje spôsob Visual FoxPro pre Windows komunikovať s aplikáciami, ktoré iné kompatibilné s OLE. Pomocou OLE, program Visual FoxPro môžete spustiť reláciu programu Microsoft Excel, otvoriť zošit, vyberte pracovný hárok zo zošita, miesto údajov do bunky alebo rozsahu buniek, tlač pracovného hárka, aktualizované zošit uložte a zatvorte program Microsoft Excel relácie. Tento článok opisuje príkladom robiť len to.

DALSIE INFORMACIE

Podrobný príklad

  1. Otvorte nový zošit v programe Microsoft Excel 5.0 alebo Microsoft Excel 7.0 (časť Office 95) alebo Microsoft Excel 97 (časť Office 97), takže Program príklad v tomto článku bude fungovať.
  2. Vyberte hárok 3 kliknutím na kartu v spodnej časti pracovného hárka a zadajte nasledujúce údaje do tabuľky:
          Enter         In Cells
          ----------------------------
          Part #        A1
          Sales YTD     B1
          1             A2 through A4
          2             A5 through A7
          3             B2 through B7
    					
  3. V ponuke údaje programu Microsoft Excel kliknite na položku Medzisúčet. Výsledný dialógové okno by ukazujú, že pri každej zmene v časti #, funkcia "Suma" k "Predaja YTD" pridáva Medzisúčet a zobraziť tento súhrn nižšie údaje. Ak áno, kliknite na tlačidlo OK.
  4. Kliknite na kartu v spodnej časti hárku hárok 1 obnoviť v zošite predvolenú stránku list 1.
  5. Uložte zošit. Potom zatvorte zošit a výstup z Microsoft Excel. Pre nasledujúci kód napríklad zošit uložil ako
          C:\XLSheets\Testbook.xls.
    					
  6. V Microsoft Visual FoxPro pre Windows, vytvorte nasledujúci program pomenované oleExcel.prg:
    *** Program oleExcel.prg *****
    #DEFINE xlLandscape 2
    #DEFINE xlDoNotSaveChanges 2
    
    DIMENSION laDemoData(4)      && For some Visual FoxPro users, data
    laDemoData(1)= 1024          && could come from table or view
    laDemoData(2)= 2048
    laDemoData(3)= 5120
    laDemoData(4)= "The Sample Message"
    
    loExcel = CREATEOBJECT("Excel.application") 
    
    WITH loExcel
       .Application.Workbooks.Open("C:\XLSheets\testbook.xls")
       .Application.Worksheets("Sheet3").Activate  && Select sheet
       
       .Range("b2").Value = 14444          && constants as data
       .Range("b3").Value = 25555
       .Range("b4").Value = 30001
    
       .Range("b6").Value = laDemoData(1)  && variables as data
       .Range("b7").Value = laDemoData(2)
       .Range("b8").Value = laDemoData(3)
       .Range("a12").Value = laDemoData(4)
    
       .Worksheets("Sheet3").PageSetup.Orientation = xlLandscape
       .ActiveSheet.PrintOut  && Example of printing the worksheet
    
       .Visible = .t. && See the results
       =MESSAGEBOX("Click OK to close Excel.") && Keep the program running, 
                                               && so Excel isn't stranded
    
       .ActiveWindow.Close(xlDoNotSaveChanges)
       .Quit()
    ENDwith
    					

ODKAZY

Preskúmať Pomocník pre Microsoft Excel tému "Aplikácia objekt" a mnoho ďalších témy, ktoré sú zavedené do vlastnosti a metódy zoznamov Téma.

Ďalšie informácie o mnohé koncepty v programe, napríklad, Prečítajte si nasledujúce články v databáze Microsoft Knowledge Base:
139051 Ako vybrať bunky v programe Microsoft Excel pomocou OLE automatizácie
132535 PRB: Uvoľňujúce premennej objektu nie zavriete program Microsoft Excel
138398 PRB: Prepustenie môže nie odstrániť objekty OLE z pamäte

Vlastnosti

ID článku: 142193 - Posledná kontrola: 17. októbra 2011 - Revízia: 2.0
Informácie v tomto článku sa týkajú nasledujúcich produktov:
Kľúčové slová: 
kbcode kbhowto kbinterop kbmt KB142193 KbMtsk
Strojovo preložené
DÔLEŽITÉ: Tento článok bol preložený pomocou softvéru na strojový preklad od spoločnosti Microsoft, nie prekladateľom. Spoločnosť Microsoft ponúka články preložené prekladateľmi aj strojovo preložené články, vďaka čomu máte možnosť prístupu ku všetkým článkom databázy Knowledge Base vo svojom jazyku. Strojovo preložený článok však nie je vždy perfektný. Môže obsahovať chyby týkajúce sa slovnej zásoby, syntaxe alebo gramatiky, podobne ako cudzinec môže robiť chyby, keď rozpráva vašim jazykom. Spoločnosť Microsoft nenesie zodpovednosť za akékoľvek nepresnosti, chyby alebo škody spôsobené akýmkoľvek nepresným prekladom obsahu alebo jeho použitím zo strany zákazníkov. Spoločnosť Microsoft softvér na strojový preklad pravidelne aktualizuje.
Pokiaľ chcete vidieť anglickú verziu článku, kliknite sem:142193

Odošlite odozvu

 

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