Текущий архив: 2002.07.25;
Скачать: CL | DM;

Вниз

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;

---

← →
BAY ©   (2002-07-12 10:42) [5]

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

---

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

Текущий архив: 2002.07.25;
Скачать: CL | DM;

Наверх

Память: 0.47 MB
Время: 0.013 c