Daten aus einem Excelsheet lesen

include <ComObj.hpp> // include-Reihenfolge beachten!!!
include <utilcls.h> 

.
.
.

void __fastcall TForm1::LesenClick(TObject *Sender)
{
    if (OpenDialog1->Execute()) //*.xls-Dateinamen + Pfad angeben
    {
        try
        {
            Variant Excel;
            Excel = Variant::CreateObject("Excel.Application");
            Excel.OlePropertyGet("ActiveWorkBook");

            // Excel-Datei öffnen
            Excel.OlePropertyGet("WorkBooks").OleFunction("Open", OpenDialog1->FileName.c_str());

            //Excel.OlePropertySet("Visible", true); //Excel beim Arbeiten anzeigen, false = ausblenden

            Variant Sheet;
            Sheet=Excel.OlePropertyGet("ActiveSheet");
            AnsiString Zelleninhalt = Sheet.OlePropertyGet("Cells", 1, 1).OlePropertyGet("Value");// Zeile 1, Spalte 1 auslesen

            ShowMessage(Zelleninhalt);

            ShowMessage("Excel wird jetzt wieder geschlossen");

            Excel.OleFunction("Quit");
            Excel = Unassigned;
        }
        catch(...){}
    }
}

Schreibe einen Kommentar