Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Передача данных в шаблон Эксель [XP]

cer © (2009-02-15 14:29:00)
Уважаемы Дельфисты! Допишите (подправьте)пож-та код.
При счелчке мыши по кнопке,данные из Edit-ов должны попасть в шаблон Эксель.Страница Эксель должна автоматически открыться.

procedure TForm1.Button1Click(Sender: TObject);

begin
Excel := CreateOleObject('Excel.Application');
Excel.WorkBooks.Open('c:\4.xls',False);
WorkBook := Excel.WorkBooks.Item[1];
Sheet := Workbook.Sheets.Item[3];

Sheet.Cells[3,3]:=Edit1.Text;
Sheet.Cells[4,3]:=Edit2.Text;
Sheet.Cells[5,3]:=Edit3.Text;
end;

Дуб (2009-02-17 08:38:00) [1]

> Да, в uses написано Excel2000, ExcelXP....

зачем?

KSergey (2009-02-17 08:26:00) [2]
скорее от версии установленного офиса зависит, а не от винды.
Ругается - это хорошо, но мы не знаем как. У нас не ругается.

cer (2009-02-16 23:55:00) [3]
Уважаемые ГУРУ ДЕЛЬФИ! Подскажите ПЛЗ!!!!
Excel := CreateOleObject('Excel.Application');
Excel.WorkBooks.Open(GetCurrentDir+'\4.xls',False);
WorkBook := Excel.WorkBooks.Item[1];
Sheet := Workbook.Sheets.Item[3];
Sheet.Cells[3,3]:=Edit1.Text;
Sheet.Cells[4,3]:=Edit2.Text;
Sheet.Cells[5,3]:=Edit3.Text;
Excel.quit;
Excel := Unassigned;

Вроде все правильно.В Винде ХР все прошло нормально.Единственно офис ругнулся-мол старенькая версия файла,но это так и должно...
А вот в Винде 2000 какая-то беда...Ругается сервер,ругается Excel выдает ошибку итд....но самое поразительное-эта запись в Excel состоялась....

Да, в uses написано Excel2000, ExcelXP....

Мне выдвинули предположение,что это из-за сервака (компы в сетке)

Кто что может сказать.....ПОДСКАЖИТЕ,БРАТЦЫ ! ПЛИЗЗЗЗЗ.....Ведь придется от Excel отказываться...а я не знаю чем его заменить

P.S. За ссылку спасибо...пока не помогло

KSergey (2009-02-16 11:05:00) [4]
http://www.delphimaster.ru/cgi-bin/forum.pl?id=1234767612&n=3

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »