Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2002.02.04;
Скачать: CL | DM;

Вниз

Повторяю, СРОЧНО!!!!!!. Загрузка из Excel   Найти похожие ветки 

 
СергейКнязев   (2002-01-17 17:00) [0]

Подскажите как загрузить информацию из Excel"97.
Может кто компонентиком каким поделится или на путь истинный поставит. Или хоть кусочек кода.
Жду, надо срочно.

Огромное спасибо.


 
Ura   (2002-01-17 17:40) [1]


//--------------

XL : variant;
//--------------

try
XL:=CreateOleObject("Excel.Application");
XL.WorkBooks.Add(-4167);
for i:=ListGridData.Count-1 downto 0 do
begin
DataToExcel(XL,i+1,Tab_Data.Pages[i].Caption );
end;

XL.Visible:=True;
except
Application.MessageBox(PChar("Не могу загрузить Excel"),
"Ошибка",MB_OK + MB_DEFBUTTON1);
end;
//--------------
procedure TUraGrid.DataToExcel(XL:variant; N_Worksheets : integer;Name: string);
var i,j : integer;
UraObjectDTemp : TUraObjectD;
begin
try
XL.WorkBooks[1].Sheets.Add(,,1,-4167);

for i:=1 to 12 do begin
XL.Workbooks[1].Worksheets[1].Cells[1,i+1]:=NameMes[i];
XL.Workbooks[1].Worksheets[1].Cells[1,i+1].Font.Bold:=True;
end;
for i:=1 to 31 do begin
XL.Workbooks[1].Worksheets[1].Cells[i+1,1]:=IntToStr(i);
XL.Workbooks[1].Worksheets[1].Cells[i+1,1].Font.Bold:=True;
end;

for j:= 1 to 13 do begin
for i:= 1 to 31 do begin
if TUraObjectD(Objects[j,i])<> nil then begin
UraObjectDTemp:=TUraObjectD(Objects[j,i]);
if (FloatToStr(UraObjectDTemp.Value) = "-1")then begin
end else begin
XL.Workbooks[1].Worksheets[1].Cells[i+1,j+1]:=FloatToStr(UraObjectDTemp.Value);
end;
end else begin end;
end;
end;
except
end;

end;

Это кусок загонки данных в EXEL может пригодиться
код правда очень старый -
тебе нужно tlb получить


 
Johnny Smith   (2002-01-18 09:28) [2]

Сгоняй на www.torry.net и скачай там компонентик TExcel. Он может. Он все может :-)))


 
Кулюкин Олег   (2002-01-18 09:49) [3]

http://www.delphikingdom.com/helloworld/excelsm.htm



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

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

Наверх




Память: 0.47 MB
Время: 0.011 c
1-8901
Ольга
2002-01-16 14:28
2002.02.04
Генератор паролей


1-8875
Rust_br
2002-01-16 13:27
2002.02.04
Проблема с Caption ом у MDIChild а


1-8917
Eraser
2002-01-17 09:13
2002.02.04
Расположение фрейма на форме


6-8960
SemFLY
2001-11-11 18:56
2002.02.04
Почему никак не разберусь ! :-(


1-8923
Valdemar
2002-01-16 12:36
2002.02.04
Как оставить приложение без окна выполнятся до окончания работы Windows?