Скачать: CL | DM;

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

← →
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]

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

---

← →
Дуб ©   (2009-02-17 08:38) [4]

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

зачем?

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.011 c