Werte aus Stringgrid nach Excel oder Word exportieren

[*Flo*]

Wie kann ich dies am besten anstellen. OLE,COM,Com+ alles Schlagwörter die ich schon tausendmal gehört habe und von denen ich noch immer nicht richtig weiß was wirklich hinter ihnen steckt. Basieren diese Technologien nicht auch alle auf Aktiv-X, so wie zB. OLE? Ich kenne mich in dieser Richtung nur sehr wenig aus. Ich weiß aber das mein Builder bei der installation Aktiv-X Komponenten von Office2000 angelegt hat. Können
diese mir dabei weiterhelfen? Die Werte aus dem Stringgrid sollen in einer Tabelle dargestelllt werden?

Für etwas Nachhilfe würde ich mich sehr freuen

MFG Flo

[Manfred Pawelzik]

Hi Flo

Versuchs mal mit folgendem.
Mit der Eigenschaft Visible true kanst du die entsprechenden Funktionalitaeten verfolgen (Was macht Excel damit)

Variant Excel = CreateOleObject("Excel.Application");
Excel.OlePropertySet("Visible", true);
Excel.OlePropertyGet("Workbooks").OleProcedure("Ad d");
Excel.OlePropertySet("Range", "A1", "Test");
Variant xx = Excel.OlePropertyGet("Range", "A1");
xx.OleProcedure("Select");
xx.OleProcedure("Clear");
Excel.OlePropertySet("Range", "B4", "B4T123 "+Now().TimeString());

Variant WorkSheets = Excel.OlePropertyGet("Worksheets");
Variant WorkSheet = WorkSheets.OlePropertyGet("Item", 1);
WorkSheet.OleFunction("Activate");

AnsiString TestZeit = Now().DateTimeString();
Variant Range = WorkSheet.OlePropertyGet("Cells", 1, 2);
Range.OlePropertySet("NumberFormat", "@");
Range.OlePropertySet("Value", TestZeit);

Variant xFont = Range.OlePropertyGet("Font");
xFont.OlePropertySet("Size", 20);

Range = WorkSheet.OlePropertyGet("Columns", 1);
Range.OleProcedure("Select");
Range.OlePropertySet("ColumnWidth", 20.23);
Range.OlePropertySet("HorizontalAlignment", 4);
Range.OlePropertySet("HorizontalAlignment", 8);
Excel.OlePropertySet("DisplayAlerts", false);
Excel.OlePropertyGet("ActiveWorkbook").OleProcedur e("SaveAs", "Test1.xls");
Excel.OlePropertyGet("Application").OleProcedure(" Quit")

[*Flo*]

Danke ich glaub das wird mir weiterhelfen