ошибка при работе с экселем OLE error 800A03EC

← →
Кирей (2008-09-09 11:18) [0]

Есть кусок кода:
WorkBook.WorkSheets[1].Range[Cell1, Cell2].merge; tekst:=tekst+1; WorkBook.WorkSheets[1].Cells[tekst, 1]:="№ з/п";
если добавляю строку и код приобретает вид:
WorkBook.WorkSheets[1].Range[Cell1, Cell2].merge; WorkBook.WorkSheets[1].Range[Cell1, Cell2].font.bold:=true; tekst:=tekst+1; WorkBook.WorkSheets[1].Cells[tekst, 1]:="№ з/п";
вылетает выше указанная ошибка на новой строке

← →
Сергей М. © (2008-09-09 11:25) [1]

Свойство Cells[] имеет объектный тип, а ты тычешь в него строку.

← →
Кирей (2008-09-09 11:30) [2]

> Свойство Cells[] имеет объектный тип, а ты тычешь в него
> строку.

Я его объявил как вариант, строки нормально записываются, исходный вариант работает даже так:
WorkBook.WorkSheets[1].Range[Cell1, Cell2].font.bold:=true; tekst:=tekst+1; WorkBook.WorkSheets[1].Cells[tekst, 1]:="№ з/п";

тоесть не хотят работать вместе строки
WorkBook.WorkSheets[1].Range[Cell1, Cell2].merge; WorkBook.WorkSheets[1].Range[Cell1, Cell2].font.bold:=true;

← →
Vlad Oshin © (2008-09-09 11:40) [3]

а так если?
WorkBook.WorkSheets[1].Range[Cell1, Cell2].font.bold:=true;
WorkBook.WorkSheets[1].Range[Cell1, Cell2].merge;

← →
Сергей М. © (2008-09-09 11:42) [4]

> тоесть не хотят работать вместе строки

А у меня хотят.
Вот текст макроса, который успешно работает:

Public Sub xxx() Range("$A1:$B2").Merge Range("$A1:$B2").Font.Bold = True End Sub

Что я делаю не так ?

← →
Кирей (2008-09-09 11:53) [5]

> а так если?

так работает, получается объединять только после форматирования :(

var
XLApp,Workbook,Sheet,Range, Cell1, Cell2:Variant;

XLApp:= CreateOleObject("Excel.Application");
XLApp.Visible:=true;
Workbook := XLApp.WorkBooks.Add;
Sheet:=WorkBook.ActiveSheet;
// Range := Sheet.Range["$A$1:$B$2"];
// range.select;
// Sheet.PageSetup.PrintArea :=range;
// Range.NumberFormat:="@";
cell1:="$A$1";
cell2:="$A$3";
range:=Sheet.Range[cell1,cell2];
range.merge;
range.font.bold:=true;

ошибка при работе с экселем OLE error 800A03EC Найти похожие ветки