| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

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

Excel [D5, Win95/98]

Ренат ©   (2002-07-03 13:53:00) 

Есть проблемка нужно с Делфей занести инфомацию в Excelевский файл

---

BAY   (2002-07-12 10:42:00) [1]

Лучше раним связыванием.
Я уже обьяснял как:
http://delphi.mastak.ru/cgi-bin/forum.pl?look=1&id=1026406510&n=1

---

Spooky   (2002-07-12 09:59:00) [2]

Работать с Excel-файлами можно примерно так:

procedure TForm1.Button1Click(Sender: TObject);
var
MSExcel, WS, V: Variant;
Row, Col: Integer;
begin
try
MSExcel := CreateOleObject("Excel.Application")
except
on E: Exception do
begin
MessageDlg("Could not start Microsoft Excel" + #13#10#13#10 + E.Message, mtError, [mbOK], 0);
VarClear(MSExcel);
Button1.Enabled := True;
Exit
end
end;

try
MSExcel.DisplayAlerts := False; //это чтобы сообщения сам Excel не выводил
MSExcel.WorkBooks.Open(Name); //Name-имя файла
WS := MSExcel.ActiveSheet;
V := WS.UsedRange.Formula;
for Col:=VarArrayLowBound(V, 2) to VarArrayHighBound(V, 2) do
for Row:=VarArrayLowBound(V, 1) to VarArrayHighBound(V, 1) do
if V[Row,Col] <> "" then
WS.Cells[Row,Col].Formula := "BBB jh vjvgh 76";

WS.SaveAs(Name1); //имя под которым сохраняем файл, с которым работалт
finally
VarClear(V);
VarClear(WS);
MSExcel.Quit;
VarClear(MSExcel);
end
end;

---

AFROLOV   (2002-07-03 15:03:00) [3]

http://www.afalinasoft.com/rus/tips/index.html

---

Леха_   (2002-07-03 13:58:00) [4]

поищи на этом форуме переправку стринг грида или ДБ грида в эксель
примеров как это сделать на форуме выкладывали прорву

---

Yuri Btr   (2002-07-03 13:55:00) [5]

Поищи компонент XLSReadWrite
или что то подобное.

---

Наверх