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

← →
cer (2009-02-15 14:29) [0]

Уважаемы Дельфисты! Допишите (подправьте)пож-та код.
При счелчке мыши по кнопке,данные из 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;

← →
KSergey © (2009-02-16 11:05) [1]

http://delphimaster.net/view/15-1234767612/

← →
cer (2009-02-16 23:55) [2]

Уважаемые ГУРУ ДЕЛЬФИ! Подскажите ПЛЗ!!!!
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-17 08:26) [3]

скорее от версии установленного офиса зависит, а не от винды.
Ругается - это хорошо, но мы не знаем как. У нас не ругается.

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

зачем?

Передача данных в шаблон Эксель Найти похожие ветки