Скачать: CL | DM;

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

---

← →
MetalFan ©   (2004-06-08 12:14) [10]

используй позднее связывание!

SomeWorkbook := anExelApp.workbooks.Open(FileName :=aFileName);  

---

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

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

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

---

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

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

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

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

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.48 MB
Время: 0.018 c