Архив форумов ЦИТФорума

[eviL]

есть проблемка, может кто поможет мне ее решить. Работаю с Com-объектами. Проблема состоит в том, что нужно создать объединение нескольких ячеек в Excel. Как это можно реализовать по принципу:
Variant V = CreateOleObject("Excel.Application");
V.Exec(PropertySet("Visible")

[Old_Den]

Чтобы объединить нужно задать Range и у него вызвать метод Merge
Set r = Range("d3:d7")
r.Merge
Дальше уж подумай, как это написать.

[Mike]

Напиши макрос в экселе и посмотри текст

[eviL]

это все понятно, но только проблемка при обращении к ячейки... он вообще говорит что я не понимаю что такое "Cells". И как можно вообще эту "r" обозначить??? Ну я понимаю что я полный чайник, но все равно не догоняю немного...

[Mike]

у "r" тип будет Variant
вот пример кода, который я использовал, сделай по аналогии
AnsiString Range(int x,int y)
{
int R='Z'-'A'+1;
char R0='A';

AnsiString Out;
while(x)
{
Out=AnsiString(char(int(x%R)+R0))+Out;
x/=R;
}
if (Out.Length()

[Mike]

Блин, она все отрезала, вобщем, пиши на мыло, если надо

[eviL]

у какого метода вызывать метод Range? У Workbooks, Worksheets? по идее у 2-го, но у меня он все равно выдает, что я не могу понять что такое Range. И хоть что ему доказывай, не отступается. Я к чему только его не приделывал, даже пробовал V.Exec(PropertyGet("Item")

[eviL]

есть проблема, он не хочет отправлять тебе письмо, могет у тебя получится, пришли мне примерчик на evil@mcde.osu.ru. Буду очень признателен.
Смогешь сделать так, чтобы он обращался конкретно по V.Exec...
Заранее благодарен.

[Old_Den]

Range - это не метод, а объект "Диапазон". Есть у листа. То бишь у ActiveSheet (Активный лист) тоже есть.

[eviL]

Да я это знаю, у меня есть встречный вопрос назасыпку, в объединенных ячейках как можно текст выровнять по середине, т.е. по вертикали... По макросам посмотрел, что есть такой метод как HorizontalAlignment, но у меня почему-то он юзаться не хочет... В чем может быть проблема, судя по макросу это метод, поэтому я его пытаюсь юзануть как:
r.Exec(Procedure("Horizontalalignment")