![]() |
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
передача из базы в Excel [D7, MSSQL]
чайник © (2003-12-03 11:26:00)
Уважаемые мастера, что тут неправильно:
на форме 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.
Спасибо.
Kadr (2003-12-03 12:30:00) [1]
В Excel Данные->Импорт внешних данных->Создать запрос
nstur (2003-12-03 12:01:00) [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
AbrosimovA (2003-12-03 11:57:00) [3]
Определись сначала в какой строке кода возникает ошибка.