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

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
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
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 2DIMENSION laDemoData(4)      && For some Visual FoxPro users, datalaDemoData(1)= 1024          && could come from table or viewlaDemoData(2)= 2048laDemoData(3)= 5120laDemoData(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
Tisk interoperability

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

Vlastnosti

ID článku: 142193 - Poslední kontrola: 12/04/2015 12:55:53 - Revize: 3.3

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

  • kbnosurvey kbarchive kbmt kbcode kbhowto kbinterop KB142193 KbMtcs
Váš názor