Jak přidat data do listu aplikace Excel pomocí automatizace OLE

Překlady článku Překlady článku
ID článku: 142193 - 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

OLE Automation umožňuje Visual FoxPro for Windows pracovat s jiné aplikace kompatibilní s rozhraním OLE. Pomocí technologie OLE, program Visual FoxPro mohou spustit relaci aplikace Excel, otevření sešitu, vyberte list ze sešitu, umístění dat do buňky nebo oblasti buněk, Tisk listu, aktualizované sešit uložit a zavřít relaci aplikace Excel. Tento článek podle příkladu ukazuje, jak to jen.

Další informace

Podrobný příklad

  1. Otevřete nový sešit Microsoft Excel 5.0 nebo Microsoft Excel 7.0 (součást sady Office 95) nebo Microsoft Excel 97 (součást sady Office 97) tak, že bude fungovat v příkladu program v tomto článku.
  2. Vyberte list 3 Klepnutím na kartu v dolní části listu a zadejte následující data do tabulky:
          Enter         In Cells
          ----------------------------
          Part #        A1
          Sales YTD     B1
          1             A2 through A4
          2             A5 through A7
          3             B2 through B7
    					
  3. V nabídce aplikace Microsoft Excel Data klepněte na mezisoučet. Výsledném dialogovém okně by se mělo zobrazit, že při každé změně v části # funkce "SUMA 'Přidá Mezisoučet k' Prodej OZR" a zobrazte tento souhrn pod daty. Pokud ano, klepněte na tlačítko OK.
  4. Klepněte na kartu na dolním okraji listu list 1 Chcete-li obnovit výchozí stránku sešitu list 1.
  5. Uložte sešit. Potom zavřete sešit a ukončete z aplikace Microsoft Excel. Následující příklad kódu, byl sešit uložen jako
          C:\XLSheets\Testbook.xls.
    					
  6. V aplikaci Microsoft Visual FoxPro for Windows, vytvořte následující program s názvem 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

Přezkoumá téma nápovědy aplikace Microsoft Excel "Aplikační objekt" a mnoho témata, která jsou zavedeny v seznamech metody a vlastnosti tohoto článku.

Další informace o mnoho konceptů v příkladu program naleznete v následujících článcích znalostní báze Microsoft Knowledge Base:
139051Jak vybrat buňky v aplikaci Microsoft Excel pomocí automatizace OLE
132535PRB: Sekci uvolňování proměnná objektu nelze zavřít aplikace Microsoft Excel
138398PRB: Uvolnění může nelze odebrat OLE objekty z paměti

Vlastnosti

ID článku: 142193 - Poslední aktualizace: 13. července 2004 - Revize: 3.3
Informace v tomto článku jsou určeny pro produkt:
  • Microsoft Visual FoxPro 3.0 Standard Edition
  • Microsoft Visual FoxPro 3.0b Standard Edition
  • Microsoft Visual FoxPro 5.0 Standard Edition
  • Microsoft Visual FoxPro 6.0 Professional Edition
Klíčová slova: 
kbmt kbcode kbhowto kbinterop KB142193 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:142193

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