ExcelApplication1.Workbooks[0].SaveAs ОШИБКА

← →
Timon (2004-06-08 10:37) [0]

Уважаемые мастера ПОМОГИТЕ

ExcelApplication1.Workbooks[0].SaveAs(tf,xlNormal,"","",false,false,1,1,false,false,false,1);

вместо false - emptyparam - тоже непомогает.

ругается на парметры, что надоставить?
СПАСИБО

← →
Тимохов © (2004-06-08 10:55) [1]

если связываение позднее (т.е. excelapplication1 типа variant и создается как excelapplication1 := createoleobject("excel.application")) то пишите так:

...SaveAs(FileName := "имя файла")

если раннее связываени, то не знаю, т.к. им сейчас не пользуюсь.

← →
Timon (2004-06-08 11:02) [2]

если раннее связываени,
Кто поможет что делать? и ещё что лучше:
excelapplication1 := createoleobject("excel.application"))
или
excelapplication1 := TExcelApplication.Create(dm);

← →
Тимохов © (2004-06-08 11:04) [3]

> Timon (08.06.04 11:02) [2]

блин, какое у вас связывание?
код создания excepapplication1 приведите

← →
Timon (2004-06-08 11:10) [4]

Есть функция для создания ExcelApplication.
Код ниже:
function CreateExcelApp(fn : string):TExcelApplication;
begin

if not fileexists(fn) then
begin
//
result := nil;
exit;
end;

result := TExcelApplication.Create(dm);
result.Connect;

result.Workbooks.Open(fn,emptyparam,emptyparam,emptyparam,"","",emptyparam,emptyparam,emptyparam,emptyparam,emptyparam,e mptyparam,emptyparam,1);

//
end;
...................................
Вызываю её как:

var ea : TExcelApplication;
begin
ea := CreateExcelApp("c:\test.xls");
//далее работаю с переменной еа

end

← →
MetalFan © (2004-06-08 11:13) [5]

> ругается на парметры, что надоставить?

и как "ругается"? что пишет то?
если позднее связывание - то возможно поможет
ExcelApplication1.Workbooks.Item[0].SaveAs....

← →
Timon (2004-06-08 11:18) [6]

Ошибка "НЕВЕРНЫЙ ИНДЕКС"

ExcelApplication1.Workbooks.Item[0].SaveAs - непомогает

← →
Timon (2004-06-08 11:22) [7]

Может быть я неправильно поставил вопрос.
Я хотел разобраться с параметрами
ExcelApplication.Workbooks[0].SaveAs("c:\test.xls",xlNormal,"","",false,false,1,1,false,false,false,1);

Мне кажется что я неправильно передаю параметры поэтому ругается.

← →
olookin © (2004-06-08 11:33) [8]

Попробуйте

ExcelApplication.Workbooks[1].SaveAs("c:\test.xls",xlNormal,"","",false,false,1,1,false,false,false,1);

Индексы в Excel начинаются с 1

← →
Timon (2004-06-08 11:41) [9]

OLE error 800A03EC

используй позднее связывание!
SomeWorkbook := anExelApp.workbooks.Open(FileName :=aFileName);

я лично больше люблю позднее связываение (хотя оно медленнее) т.к. всегда нет этих непонятностей с параметрами - что передавать в необязательные параметры - пишешь как в [10] значения нужным параметрам и все путем.

Так что - прислушайтесь к [10], может правда перейти на позднее связываение

← →
Timon (2004-06-08 12:29) [12]

Ok.
а как работать с ExcelRange
Я делаю так

re := ExcelApplication1.Range["A1","A1"];
re.Value := "ОГОГО";

Чем лучше "позднее связывание" от моего связывания?

ExcelApplication1.Workbooks[0].SaveAs ОШИБКА Найти похожие ветки