Да неее...Только из Делфи в Excel..Кстати,получилось и гораздо проще,чем в том исходнике
Знаю,как из Ассеss в Делфи.Знаю еще как в делфи просто открывать для просмотра или создавать Excel книгу.
{procedure TForm4.Button1Click(Sender: TObject);
var i:integer;
begin
if OpenDialog1.Execute then
begin
app:=createoleobject('Excel.application');
app.Workbooks.Open(OpenDialog1.FileName,readonly:= true);
app.cells(3,10):='fdgdgdh';
app.cells(1,1):= ' Номер ' ;
app.cells(1,2):= ' Дата ' ;
Table1.First;
For i:=1 to Table1.RecordCount do
begin
app.cells(i+1,1):= Table1.FieldValues['N'] ;
app.cells(i+1,2):= Table1.FieldValues['Data'] ;
end;
app.visible:=true;
app:=unassigned;
end;
end;}