Головна сторінка
Top.Mail.Ru Яндекс.Метрика
Форум: "Основна";
Поточний архів: 2002.01.08;
Завантажити: [xml.tar.bz2];

Вниз

Перенесення даних в осередок листа Excel Знайти схожі гілки


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

Підкажіть будь ласка як якусь змінну типу string або real записати в задану клітинку листа EXCEL. (Хотілося б з прикладом) .За раніше вдячний.



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

ExcelApplication.Connect; ExcelApplication.Workbooks.Add ( "", 0); ExcelWorkbook.ConnectTo (ExcelApplication.ActiveWorkbook); ExcelWorksheet.ConnectTo (ExcelWorkbook.Sheets [1] as _WorkSheet); ExcelWorksheet.Activate; ExcelWorksheet.Cells.Item [j, 1] .Value: = j - i; ExcelApplication.Visible [0]: = 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) ...
не допомагає, ось шматок коду:

ExcelApplication1.Connect;
ExcelApplication1.WorkBooks.Add (n, 0); // n - ім'я файлу
ExcelWorkBook1.ConnectTo (ExcelApplication1.ActiveWorkBook);

{Тіло програми}

ExcelApplication.WorkBook1.Close;
ExcelApplication1.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;
// ...
було
xlApp: Variant;
DataArray: Variant; // двовимірний масив тут буде
rv: real;
починати
rv: = 10.56568;
xlApp: = CreateOleObject ( "Excel.Sheet"); // створити
xlApp.Application.Visible: = True;

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

xlApp.Application.Range [ "RealValue1"]. Value: = rv; {Можна і так: "RealValue1" - ім'я комірки в "клітках"}

xlApp.Application.Range ( "A1: B8"). Value: = "Просто рядок для заповнення діапазону"; {Заповнення рейнджа одним рядком}


DataArray: = VarArrayCreate ([0,2,0,2], varVariant); {створимо масив типу варіант для зберігання будь-яких значень}
DataArray [0, 0]: = "елемент масиву";
DataArray [1, 0]: = 38754; // теж елемент масиву

{Присвоюємо Рейндж весь масив за посиланням відразу ... дешево, надійно і практИчно = -) = особливо коли потрібно в репорт передати масив розміром так тисяч 5 рядків ... якщо робити це через цикл for то репорт буде генериться убивчо довго}

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

// збережемо цей файл для нащадків = -)
xlApp.SaveAs ( "c: \ docs \ reports \ sample1.xls");

DataArray: = Unassigned; // замітаємо сліди
xlApp: = Unassigned; // грохнути і це ...
end;



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

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



сторінки: 1 вся гілка

Форум: "Основна";
Поточний архів: 2002.01.08;
Завантажити: [xml.tar.bz2];

наверх









Пам'ять: 0.58 MB
Час: 0.025 c
6-22282
Mamed
2001-10-08 10:08
2002.01.08
ПОМОЩ ПОМОЩ !!! до 01 / 11 Як Написати програму для роботи в Pocket CE?


1-22145
MARcoDEN
2001-12-15 17:42
2002.01.08
нестандартна кнопка


4-22458
Ajax
2001-10-31 17:50
2002.01.08
TColor і RGB


1-22068
Андрей21
2001-12-19 10:35
2002.01.08
багатомовне додаток


1-22107
Олександр
2001-12-19 01:45
2002.01.08
Як при запуску програми відразу показати поверх головної форми іншу?





африкаанс албанський арабська вірменин азербайджанець баскський білоруський болгарська каталонський Китайська (спрощене письмо) Китайський традиційний) хорватський чеська данську мову нідерландський Ukranian естонець Філіппінська фінську мову французький
галісійська грузинський німецький грецький гаїтянський креольський давньоєврейську хінді угорський ісландський індонезієць ірландський італійський японський корейський латиська литовець македонець малайський мальтійський норвежець
перс полірування португальська румунський російська сербський словацький словенський іспанська суахілі шведську мову тайський турецька український урду в'єтнамський валлійський ідиш бенгальський боснійський
кебуано есперанто гуджараті хауса хмонг ігбо яванський каннада кхмерская Лао латинь маорі маратхі монгольський непальська панджабі сомалійський тамільська телугу йоруба
зулуський
Англійська Французький Німецький Італійський Португальська Русский Іспанська