Excel

← →
Ренат (2002-07-03 13:53) [0]

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

← →
Yuri Btr © (2002-07-03 13:55) [1]

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

← →
Леха_ (2002-07-03 13:58) [2]

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

← →
AFROLOV © (2002-07-03 15:03) [3]

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

← →
Spooky (2002-07-12 09:59) [4]

Работать с 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;

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

Excel Найти похожие ветки