День добрый!
есть база Access.в одном поле хранятся прайс листы.
Вопрос
как запустить Excel и передать ему данные которые находятся в в этом (поле объекта OLE) поле.
Уважаемые авторы вопросов! Большая просьба сообщить о результатах решения проблемы на этой странице. Иначе, следящие за обсуждением, возможно имеющие аналогичные проблемы, не получают ясного представления об их решении. А авторы ответов не получают обратной связи. Что можно расценивать, как проявление неуважения к отвечающим от автора вопроса.
Добавил?ОК. значит допустим тебе надо в Excel впихнуть поле Prais
для этого делай следующее:
procedure TForm1.Button1Click(Sender: TObject);
VAR
x:integer;
excel,sheet:variant;
begin
excel:= CreateOleObject('Excel.Application');
excel.visible:=false;
excel.workbooks.add(-4167);//добавляю книгу
excel.workbooks[1].worksheets[1].name:='Прайс';
sheet:= excel.workbooks[1].worksheets['Прайс'];
sheet.cells[1,1]:='Товар';
x:=2;
Table1.First;
while not Table1.Eof do begin
sheet.cells[x,1]:=Table1.FieldByName('Prais').AsString;
Table1.Next;
x:=x+1;
end;
excel.visible:=true;
showmessage('УРА!!!!!!!!!!!!!!!!!');
Если вы заметили орфографическую ошибку на этой странице, просто выделите ошибку мышью и нажмите Ctrl+Enter. Функция может не работать в некоторых версиях броузеров.