передача из базы в Excel

← →
чайник (2003-12-03 11:26) [0]

Уважаемые мастера, что тут неправильно:
на форме 2 компонента с вкладки Servers TExcelApplication и TExcelWoorkBook.
код следующий:

procedure Tvvod.bbpechClick(Sender: TObject);
var n:OleVariant;

begin
n:="d:\1.xls";
EA1.Workbooks.add(n,0);
EWb1.ConnectTo(EA1.ActiveWorkbook);
EA1.Cells.Item[1,1].Value:="Для печати";
end;
выдает сообщение что невозможно загрузить Excel, стоит у меня WindowsXP и OfficeXp.
Спасибо.

← →
AbrosimovA (2003-12-03 11:57) [1]

Определись сначала в какой строке кода возникает ошибка.

← →
nstur (2003-12-03 12:01) [2]

У меня примерно так:
function TNsExcel2000.NewWorkbook(Template: String = ""): boolean;
var
DocTemplate: OleVariant;
begin
Result:= False;
try
CoInitialize(Nil);
Connect;
DocTemplate := Template;
if Template = "" then
OleVariant(Workbooks).Add
else
OleVariant(Workbooks).Add(DocTemplate);
OleVariant(Application).Visible:= WordBool(True);
except
//тындар-лындар
end;
end;
Более полно в http://www.nstur.narod.ru/Delphi/index.html

← →
Kadr (2003-12-03 12:30) [3]

В Excel Данные->Импорт внешних данных->Создать запрос

передача из базы в Excel Найти похожие ветки