casa

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]

Подскажите пожалуйста как какую-нибудь переменную типа string или real записать в заданную ячейку листа EXCEL.(хотелось бы с примером).За ранее благодарен.



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


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



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

Сюда же в догонку вопрос, а как после этого этот XL грамотно закрыть? А то у меня один раз перенос (правда ИЗ Excel"я) работает, а если попытаться еще раз, то - Memory Allocation Error...



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

ExcelApplication.Disconnect;



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

Большой Thank"s дома попробую.




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

>perov
Писал уже
и ExcelApplication.Disconnect,
и ExcelApplication.Quit,
и FreeAndNil(ExcelApplication)...
не помогает, вот кусок кода:

ExcelApplicationXNUMX.Connect;
ExcelApplicationXNUMX.WorkBooks.Add(n,XNUMX); //n - имя файла
ExcelWorkBookXNUMX.ConnectTo(ExcelApplicationXNUMX.ActiveWorkBook);

{тело программы}

ExcelApplication.WorkBookXNUMX.Close;
ExcelApplicationXNUMX.Disconnect;



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

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



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

В Королевстве Делфи есть пару статей про работу с Excel



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

//добавить в модули еще и этот
uses ComObj;
// ...
var
xlApp : Variant;
DataArray : Variant;//двумерный массив тут будет
rv: real;
iniziare
rv:= XNUMX;
xlApp := CreateOleObject("Excel.Sheet"); //создать
xlApp.Application.Visible := True;

xlApp.Application.Cells[XNUMX, XNUMX].Value := "XNUMX"; //можно так

xlApp.Application.Range["RealValueXNUMX"].Value:= rv; {можно и так : "RealValueXNUMX" - имя ячейки в "клетках"}

xlApp.Application.Range("AXNUMX:BXNUMX").Value := "Просто строка для заполнения диапазона"; {заполнение рейнджа одной строкой}


DataArray := VarArrayCreate([XNUMX], varVariant);{создадим массив типа вариант для хранения любых значений}
DataArray[XNUMX, XNUMX]:= "элемент массива";
DataArray[XNUMX, XNUMX]:= XNUMX;//тоже элемент массива

{присваиваем рейнджу весь массив по ссылке сразу... дешево,надежно и практЫчно =-) = особенно когда нужно в репорт передать массив размером этак тысяч XNUMX строк... если делать это через цикл for то репорт будет генериться убийственно долго}

xlApp.Application.Range("AXNUMX:CXNUMX):= DataArray;

//сохраним этот файл для потомков =-)
xlApp.SaveAs("c:\docs\reports\sampleXNUMX.xls");

DataArray := Unassigned; //заметаем следы
xlApp := Unassigned; //грохнуть и это ...
fine;



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

Я тут порылся и нашел сайт (WWW.afalinasoft.com).Там как раз по взаимодействие Delphi&Excel.





Pagine: 1 tutto il ramo

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

al piano di sopra

Top.Mail.Ru Yandeks.Metrika













Memoria: 0.79 MB
Ora: 0.03 c
3-21926
Oleon
XNUMX-XNUMX-XNUMX XNUMX:XNUMX
2002.01.08
Создание таблицы из Delphi.


6-22311
BigFoot
XNUMX-XNUMX-XNUMX XNUMX:XNUMX
2002.01.08
Удалённо


3-21897
МаксБ
XNUMX-XNUMX-XNUMX XNUMX:XNUMX
2002.01.08
СУБД Cache


1-22081
Andrewv
XNUMX-XNUMX-XNUMX XNUMX:XNUMX
2002.01.08
Come causare un errore di sistema.


14-22410
fint
XNUMX-XNUMX-XNUMX XNUMX:XNUMX
2002.01.08
Provare





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