Neue Excel Datei

Reply to Neue Excel Datei on Tue, 04 Sep 2007 15:21:01 GMT

Dragonfire — Tue, 04 Sep 2007 15:21:01 GMT

Hi!

Kann ich mit den Ole Funktionen eine neue Excel Datei erstellen? oder muss ich einfach eine Datei mit der Endung .xls erstellen und dann dort die Daten reinschreiben?

Thx

Reply to Neue Excel Datei on Tue, 04 Sep 2007 17:42:16 GMT

akari — Tue, 04 Sep 2007 17:42:16 GMT

Hallo

Das geht sicher. Schau dir im Zweifelsfall immer die VBA-Hilfe an, dort werden die ganzen Befehle erklärt die du auch über OLE nutzt.

bis bald
akari

Reply to Neue Excel Datei on Wed, 05 Sep 2007 07:54:07 GMT

Linnea — Wed, 05 Sep 2007 07:54:07 GMT

siehe z.B. in der FAQ -> "Daten nach Excel exportieren", dort wird erst eine neue Excel-Mappe erstellt, dann gefüllt und unter einem beliebigen Namen gespeichert

Reply to Neue Excel Datei on Fri, 07 Sep 2007 16:17:18 GMT

Dragonfire — Fri, 07 Sep 2007 16:17:18 GMT

try
      {
          Variant WorkBooks = Excel.OlePropertyGet("WorkBooks");
          WorkBooks.OleFunction("Add");

          Variant ActiveWorkBook = Excel.OlePropertyGet("ActiveWorkbook");

          Variant WorkSheets = Excel.OlePropertyGet("Worksheets");

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

          for (int i = 0; i < Liste->RowCount; i ++)
          {

            Variant Spalte_Nummer = WorkSheet.OlePropertyGet("Cells",1+i,1);
            Variant Spalte_Beschreibung = WorkSheet.OlePropertyGet("Cells",1+i,2);
            Variant Spalte_Preis = WorkSheet.OlePropertyGet("Cells",1+i,3);

            Spalte_Nummer.OlePropertySet("Value",Liste->Cells[1][i]);
            Spalte_Beschreibung.OlePropertySet("Value",Liste->Cells[2][i]);
            Spalte_Preis.OlePropertySet("Value",Liste->Cells[3][i]);
            /*Variant Range1 = WorkSheet.OlePropertyGet("Cells", i+1, 1); // 1.Zeile / 1.Spalte
            Range1.OlePropertySet("Value", Liste->Cells[i][1]);

            Variant Range2 = WorkSheet.OlePropertyGet("Cells", i+1, 2); // 1.Zeile / 2.Spalte
            Range2.OlePropertySet("Value", Liste->Cells[i][2]);

            Variant Range3 = WorkSheet.OlePropertyGet("Cells", i+1, 3); // 1.Zeile / 3.Spalte
            Range3.OlePropertySet("Value", Liste->Cells[i][3]);    */
          }

          ActiveWorkBook.OleFunction("SaveAs", datei.c_str());

          Application->MessageBox("Fertig","Dummy",MB_ICONINFORMATION);
      }
      catch(...)
      {
        Application->MessageBox("Fehler","Dummy",MB_ICONINFORMATION);
      }

      Excel.OleFunction("Quit");

      Excel = Unassigned;

Habe nun das, danke erstmal. Allerdings tritt dauernd ein Fehler auf, und die Catch Anweisung wird ausgeführt. Datei ist ein AnsiString mit Pfad, dateiname und endung

thx

Reply to Neue Excel Datei on Fri, 07 Sep 2007 17:36:13 GMT

Dragonfire — Fri, 07 Sep 2007 17:36:13 GMT

ok, klappt danke