Nach Hause

Forum: "Haupt";
Durchsuchen Sie die gesamte Website: delphimaster.net;
Aktuelles Archiv: 2002.01.08;
Herunterladen: [xml.tar.bz2];



Nach unten

Übertragen von Daten in eine Excel-Arbeitsblattzelle


Stürmer (2001-12-13 07:59) [0]

Bitte sagen Sie mir, wie Sie eine Variable des Typs string oder real in die angegebene Zelle der EXCEL-Tabelle schreiben (ich möchte ein Beispiel geben). Vielen Dank schon früher.



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, die Sie einholen müssen, aber wie kann dieser XL richtig geschlossen werden? Und dann funktioniert die Übertragung einmal (obwohl von Excel "Ich") für mich, und wenn ich es noch einmal versuche, dann Speicherzuordnungsfehler ...



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

ExcelApplication.Disconnect;



Stürmer (2001-12-13 09:00) [4]

Großes Dankeschöns nach Hause probieren.




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);

{Programmrumpf}

ExcelApplication.WorkBook1.Close;
ExcelApplication1.Disconnect;



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

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



Oleg Laukart (2001-12-13 13:33) [7]

In Delphi Kingdom gibt es einige Artikel zum Arbeiten mit Excel



Uns (2001-12-13 14:32) [8]

// Dies den Modulen hinzufügen
verwendet ComObj;
// ...
war
xlApp: Variante;
DataArray: Variante; // zweidimensionales Array wird hier sein
rv: real;
beginnen
rv: = 10.56568;
xlApp: = CreateOleObject ("Excel.Sheet"); // erstellen
xlApp.Application.Visible: = True;

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

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

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


DataArray: = VarArrayCreate ([0,2,0,2], varVariant); {erstellt ein Array der Typvariante, um beliebige Werte zu speichern}
DataArray [0, 0]: = "Array-Element";
DataArray [1, 0]: = 38754; // ist auch ein Array-Element

{ordnen Sie das gesamte Array auf einmal per Referenz zu ... billig, zuverlässig und praktisch = -) = vor allem, wenn Sie ein Array mit Tausenden von 5-Zeilen im Bericht übertragen müssen ... wenn Sie dies über eine for-Schleife tun, wird der Bericht 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; // Sweep-Spuren
xlApp: = Nicht zugewiesen; // bang und es ...
end;



Stürmer (2001-12-15 11:06) [9]

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






Forum: "Haupt";
Durchsuchen Sie die gesamte Website: delphimaster.net;
Aktuelles Archiv: 2002.01.08;
Herunterladen: [xml.tar.bz2];



nach oben

Nach Hause

Top.Mail.Ru Yandeks.Metrika













Speicher: 0.77 MB
Zeit: 0.035 c
7-22420
Cntcyz.cm crfpfnm cdjt bvz
2001-09-21 21:12
2002.01.08
Die Leute sagen mir, wie man ist


1-22069
Xtorm
2001-12-19 10:40
2002.01.08
Wie?


1-22197
T2
2001-12-16 07:17
2002.01.08
Kann der Windows-Korb programmgesteuert deaktiviert werden?


14-22410
fint
2001-11-08 15:10
2002.01.08
Versuchen


1-22040
greifen
2001-12-18 18:18
2002.01.08
Ausrichtungstest in TRichEdit





Afrikanisch albanisch Arabic Armenisch Aserbaidschanisch Baskisch Weißrusse Bulgarian katalanisch Chinesisch (vereinfacht) Chinesische Tradition) kroatisch Tschechisch Dänisch Dutch Englisch estnisch Philippinisch Finnish Französisch
Galicisch Georgisch Deutsch griechisch haitian Creole hebräisch Hindi ungarisch isländisch Indonesian irisch Italian Japanisch Koreanisch lettisch litauisch Makedonisch Malay Maltesisch Norwegian
persisch Polnisch Portugiesisch rumänisch Russisch serbisch Slovak Slowenisch Spanisch swahili Swedish 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