casa
Top.Mail.Ru Yandeks.Metrika
Forum: "Principale";
Archivio attuale: 2002.01.08;
Scarica: [xml.tar.bz2];

giù

Trasferimento di dati in una cella del foglio di lavoro di Excel Trova rami simili


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

Per favore dimmi come scrivere una variabile di tipo string o reale nella cella specificata del foglio EXCEL. (Vorrei fare un esempio). Grazie in precedenza.



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

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



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

Questa è anche una domanda da recuperare e come dopo questo XL può essere chiuso correttamente? E poi il trasferimento una volta (anche se da Excel "I) funziona per me, e se provo di nuovo, quindi Errore di allocazione di memoria ...



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

ExcelApplication.Disconnect;



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

Grazie mille a casa.



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

> perov
Già scritto
e ExcelApplication.Disconnect,
e ExcelApplication.Quit,
e FreeAndNil (ExcelApplication) ...
non aiuta, ecco un pezzo di codice:

ExcelApplication1.Connect;
ExcelApplication1.WorkBooks.Add (n, 0); // n è il nome del file
ExcelWorkBook1.ConnectTo (ExcelApplication1.ActiveWorkBook);

{corpo del programma}

ExcelApplication.WorkBook1.Close;
ExcelApplication1.Disconnect;



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

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



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

Nel Regno di Delphi ci sono un paio di articoli su come lavorare con Excel



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

// aggiungi questo ai moduli
usa ComObj;
// ...
var
xlApp: Variant;
DataArray: Variant; // array bidimensionale sarà qui
rv: reale;
iniziare
rv: = 10.56568;
xlApp: = CreateOleObject ("Excel.Sheet"); // crea
xlApp.Application.Visible: = True;

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

xlApp.Application.Range ["RealValue1"]. Valore: = rv; {è possibile e così: "RealValue1" - il nome della cella nelle "celle"}

xlApp.Application.Range ("A1: B8"). Valore: = "Solo una stringa per riempire l'intervallo"; {riempiendo l'intervallo in una riga}


DataArray: = VarArrayCreate ([0,2,0,2], varVariant); {crea un array della variante di tipo per memorizzare qualsiasi valore}
DataArray [0, 0]: = "elemento array";
DataArray [1, 0]: = 38754; // anche un elemento array

{assegna l'intero array all'intervallo per riferimento contemporaneamente ... economico, affidabile e pratico = -) = specialmente quando devi trasferire un array di migliaia di linee 5 nel rapporto ... se lo fai attraverso un ciclo for, il rapporto verrà generato mortalmente per un lungo periodo}

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

// salva questo file per discendenti = -)
xlApp.SaveAs ("c: \ docs \ reports \ sample1.xls");

DataArray: = Non assegnato; // sweep tracks
xlApp: = Non assegnato; // bang e it ...
fine;



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

Ho rovistato qui e ho trovato il sito (WWW.afalinasoft.com). C'è solo l'interazione Delphi ed Excel.



Pagine: 1 tutto il ramo

Forum: "Principale";
Archivio attuale: 2002.01.08;
Scarica: [xml.tar.bz2];

al piano di sopra









Memoria: 0.84 MB
Ora: 0.038 c
1-22106
Andrey196
2001-12-19 18:24
2002.01.08
Scusa per la domanda Lamer su come stampare l'immagine


1-22226
Cibo
2001-12-15 13:06
2002.01.08
Perché questo semplice codice non funziona ...


1-22204
Dmitriy (nuovo)
2001-12-13 19:37
2002.01.08
il codice non crea più `file 273 in win2000


7-22432
Voldemar
2001-09-25 04:12
2002.01.08
Assegnazione prioritaria all'avvio ...


3-21941
jin
2001-11-30 14:56
2002.01.08
Aiuto per favore creare una procedura IB SQL dall'applicazione





afrikaans albanese Arabic armeno Azero basco bielorusso Bulgarian catalano Cinese (semplificato) Cinese (tradizionale) croato Ceco danese Dutch Inglese estone filippina Finnish Francese
galiziano georgiano Tedesco greco Creolo haitiano ebraico hindi ungherese islandese Indonesian irlandese Italiano Giapponese Korean lettone lituano macedone Malay maltese Norwegian
persiano polacco Portoghese rumeno Russian serbo Slovak sloveno Spagnolo swahili Swedish Thai turco ucraino Urdu vietnamita gallese yiddish bengalese bosniaco
Cebuano esperanto Gujarati Hausa Hmong Igbo giavanese kannada khmer lao latino maori marathi mongolo nepali punjabi somalo tamil telugu Yoruba
zulù
Английский Francese tedesco italiano portoghese russo spagnolo