Nach Hause
Top.Mail.Ru Yandeks.Metrika
Forum: "Haupt";
Aktuelles Archiv: 2002.01.08;
Herunterladen: [xml.tar.bz2];

Nach unten

Übertragen von Daten in eine Excel-Arbeitsblattzelle Finden Sie ähnliche Zweige


Striker   (2001-12-13 07:59) [0]

Bitte teilen Sie mir mit, wie eine Variable vom Typ string oder real in die angegebene Zelle des EXCEL-Arbeitsblatts geschrieben werden soll (ich möchte ein Beispiel geben).



perov   (2001-12-13 08:21) [1]

ExcelApplication.Connect; ExcelApplication.Workbooks.Add ("", 0); ExcelWorkbook.ConnectTo (ExcelApplication.ActiveWorkbook); ExcelWorksheet.ConnectTo (ExcelWorkbook.Sheets [1] als _WorkSheet); ExcelWorksheet.Activate; ExcelWorksheet.Cells.Item [j, 1] .Value: = j - i; ExcelApplication.Visible [0]: = True;



KIR   (2001-12-13 08:32) [2]

Dies ist auch eine Frage, mit der man sich auseinandersetzen muss, und wie kann diese XL danach ordnungsgemäß geschlossen werden? Und dann funktioniert die Übertragung einmal (obwohl von Excel "I") für mich, und wenn ich es erneut versuche, dann Speicherzuweisungsfehler ...



perov   (2001-12-13 08:44) [3]

ExcelApplication.Disconnect;



Striker   (2001-12-13 09:00) [4]

Big Thank "s zu Hause versuchen.



KIR   (2001-12-13 12:02) [5]

> perov
Schon geschrieben
und ExcelApplication.Disconnect,
und ExcelApplication.Quit,
und FreeAndNil (ExcelApplication) ...
hilft nicht, hier ist ein Stück Code:

ExcelApplication1.Connect;
ExcelApplication1.WorkBooks.Add (n, 0); // n ist der Dateiname
ExcelWorkBook1.ConnectTo (ExcelApplication1.ActiveWorkBook);

{Programmtext}

ExcelApplication.WorkBook1.Close;
ExcelApplication1.Disconnect;



perov   (2001-12-13 12:33) [6]

ExcelWorksheet.Disconnect; ExcelWorkbook.Close; ExcelApplication.Disconnect;



Олег Лаукарт   (2001-12-13 13:33) [7]

In Delphi Kingdom gibt es einige Artikel zum Arbeiten mit Excel



Ынс   (2001-12-13 14:32) [8]

// füge dies zu den Modulen hinzu
verwendet ComObj;
// ...
war
xlApp: Variant;
DataArray: Variant; // zweidimensionales Array wird hier sein
rv: real;
beginnen
rv: = 10.56568;
xlApp: = CreateOleObject ("Excel.Sheet"); // erstelle
xlApp.Application.Visible: = True;

xlApp.Application.Cells [1, 2] .Value: = "23456346"; // du kannst

xlApp.Application.Range ["RealValue1"]. Value: = rv; {es ist möglich und so: "RealValue1" - der Name der Zelle in den "Zellen"}

xlApp.Application.Range ("A1: B8"). Value: = "Nur eine Zeichenfolge, um den Bereich auszufüllen"; {fülle den Bereich in einer Zeile aus}


DataArray: = VarArrayCreate ([0,2,0,2], varVariant); {Erstellt ein Array der Typvariante zum Speichern beliebiger Werte}
DataArray [0, 0]: = "Array-Element";
DataArray [1, 0]: = 38754; // auch ein Array-Element

{Ordnen Sie das gesamte Array dem Bereich sofort per Referenz zu ... billig, zuverlässig und praktisch = -) = insbesondere, wenn Sie ein Array mit Tausenden von 5-Zeilen in den Bericht übertragen müssen ... Wenn Sie dies über eine for-Schleife tun, wird der Bericht für eine lange Zeit tödlich generiert.}

xlApp.Application.Range ("A1: C3): = DataArray;

// Diese Datei für Nachkommen speichern = -)
xlApp.SaveAs ("c: \ docs \ reports \ sample1.xls");

DataArray: = Nicht zugewiesen; // Spuren fegen
xlApp: = Nicht zugewiesen; // Knall und es ...
end;



Striker   (2001-12-15 11:06) [9]

Ich habe hier gestöbert und die Seite (WWW.afalinasoft.com) gefunden. Es gibt nur die Interaktion Delphi & Excel.



Seiten: 1 ganze Branche

Forum: "Haupt";
Aktuelles Archiv: 2002.01.08;
Herunterladen: [xml.tar.bz2];

nach oben









Speicher: 0.58 MB
Zeit: 0.028 c
1-22250
Dmitry D.
2001-12-17 13:28
2002.01.08
Eher die mathematische Frage ...


14-22379
Felix
2001-11-05 19:54
2002.01.08
Zeig es mir - Oder vielleicht nicht? -Schau du sagst!


14-22405
Kozhanov
2001-11-12 11:53
2002.01.08
Englisches Puzzle


14-22335
Sergey1
2001-11-05 21:44
2002.01.08
Zeicheneingabe


14-22404
MJH
2001-11-05 14:58
2002.01.08
Ineta-Kosten (Stunde)





Afrikanisch Albanien Arabisch Armenisch Aserbaidschanisch Baskisch Weißrusse Bulgarisch katalanisch Chinesisch (vereinfacht) Chinesische Tradition) kroatisch Tschechisch Dänisch Niederländisch Englisch estnisch Philippinisch Finnisch Französisch
Galicisch Georgisch Deutsch Griechisch haitian Creole Hebräisch Hindi ungarisch isländisch Indonesian irisch Italian Japanisch Koreanisch lettisch litauisch Makedonisch Malay Maltesisch Norwegisch
persisch Polnisch Portugiesisch Rumänisch Russisch serbisch Slovakisch Slowenisch Spanisch Suaheli Schwedisch Thai Türkisch Ukrainisch Urdu Vietnamesisch Walisisch Jiddisch Bengalisch bosnisch
cebuano Esperanto Gujarati Hausa Hmong igbo Javanisch kannada khmer Laotisch Lateinisch Maorisch Marathi Mongolisch nepali Pandschabi Somalisch Tamilisch Telugu Yoruba
Zulu
Английский Französisch Deutsch Italienisch Португальский Russisch Spanisch