AXForum  
Вернуться   AXForum > Microsoft Dynamics AX > DAX: Программирование
All
Забыли пароль?
Зарегистрироваться Правила Справка Пользователи Сообщения за день Поиск Все разделы прочитаны

 
 
Опции темы Поиск в этой теме Опции просмотра
Старый 09.02.2008, 16:24   #1  
longson is offline
longson
Участник
 
231 / 49 (2) +++
Регистрация: 12.12.2006
Адрес: Москва
Форматирование на Excel
Добрый день ,

Такой вопрос возник: при выводе информации в Excel из AXAPTA хочу делать через COM чтобы ячейка A1 имела четки рамки.

Пишу

X++:
Com ComBorder;
Com ComCells;
Com ComWorkSheet;
;

ComWorkSheet = ComExcelDocument.GetWorkSheet(1).
ComCells = comWorkSheet.range("A1");
ComBorder = comCells.Borders(7);
ComBorder.LineStyle(1);
comBorder.ColorIndex(0);
comBorder.TintAndShade(0);
comBorder.Weight(0);
При компиляции все нормально. При запуске класса ругается на строку
X++:
ComBorder = comCells.Borders(7)
говорит что фукнция вызывается с неправильным параметром.

В чем проблема здесь ?
Старый 10.02.2008, 06:08   #2  
Eugene Murka is offline
Eugene Murka
Участник
Аватар для Eugene Murka
 
36 / 17 (1) ++
Регистрация: 09.01.2008
Адрес: Киев
а если передать туда 0 или 1, будет ошибка?
Старый 10.02.2008, 11:59   #3  
longson is offline
longson
Участник
 
231 / 49 (2) +++
Регистрация: 12.12.2006
Адрес: Москва
Все равно будет ошибка.

Сам разобрался. Надо было так

X++:
COM ComBorders, ComBorder;

ComBorders = comCells.Borders();
ComBorder   = comBorders.Item(7);
Дело в том, что нам нужно получить конкретный элемент коллекции Borders - в этом случае это элемент - это левая рамка.
Старый 11.02.2008, 09:44   #4  
Gustav is offline
Gustav
Moderator
Аватар для Gustav
SAP
Лучший по профессии 2009
 
1,858 / 1152 (42) ++++++++
Регистрация: 24.01.2006
Адрес: Санкт-Петербург
Записей в блоге: 19
на заметку
Недавно обратил внимание, что свойства LineStyle, ColorIndex, Weight есть не только у элементов (Item) коллекции Borders, но и у самой коллекции. Еще одна любезность со стороны Excel - из 8 границ по умолчанию "включены" все, за исключением диагональных. Таким образом, сплошная сетка на некоторый диапазон кладётся дух захватывающе просто:

на VBA:
Код:
Range("A1:H10").Borders.LineStyle = xlContinuous 'где константа xlContinuous = 1
на X++, используя статический метод класса COM, эту команду тоже можно записать одной строкой (для ранее определенного диапазона):
X++:
ComCells = comWorkSheet.range("A1:H10");

 // следующая строка покроет сеткой диапазон A1:H10
COM::createFromObject( ComCells.Borders() ).LineStyle(1);
За это сообщение автора поблагодарили: Proba (1), Eugene Murka (1), kpoxa (1).
Старый 11.02.2008, 10:28   #5  
MikeR is offline
MikeR
MCT
Аватар для MikeR
MCBMSS
Лучший по профессии 2015
Лучший по профессии 2014
 
1,628 / 627 (24) +++++++
Регистрация: 28.11.2005
Адрес: просто землянин
Так же можно использовать контейнер
X++:
 excelDocument.setBorder(ExcelDocument::bm(startCol,startRow,lastCol,lastRow),   
                [[#xlEdgeBottom,#fmBorderStyleSingle, #xlMedium, 0],
                [#xlEdgeLeft, #fmBorderStyleSingle, #xlMedium, 0],
                [#xlEdgeRight, #fmBorderStyleSingle, #xlMedium, 0],
                [#xlEdgeTop, #fmBorderStyleSingle, #xlMedium, 0]]);
последний параметр это цвет выделения
Старый 11.02.2008, 10:54   #6  
Raven Melancholic is offline
Raven Melancholic
Участник
Аватар для Raven Melancholic
Самостоятельные клиенты AX
Лучший по профессии 2015
 
2,158 / 1286 (47) ++++++++
Регистрация: 21.03.2005
Адрес: Москва-Петушки
Цитата:
Сообщение от MikeR Посмотреть сообщение
Так же можно использовать контейнер
последний параметр это цвет выделения
Конечно можно, если иметь ту же модификацию, что у Вас.
Старый 11.02.2008, 11:24   #7  
Demetrio is offline
Demetrio
MCITP
Аватар для Demetrio
MCP
MCBMSS
 
24 / 11 (1) +
Регистрация: 17.12.2007
Адрес: Москва
У Вас 3-ка или 4 DAX ? Если 4-ка, то для доступа к Excel не лучше ли и удобнее использовать .NET а не COM?
Старый 11.02.2008, 15:34   #8  
longson is offline
longson
Участник
 
231 / 49 (2) +++
Регистрация: 12.12.2006
Адрес: Москва
У меня AX 3.0.

Опыта программирования на AX 4.0 у меня нет.
Старый 11.02.2008, 16:49   #9  
Gustav is offline
Gustav
Moderator
Аватар для Gustav
SAP
Лучший по профессии 2009
 
1,858 / 1152 (42) ++++++++
Регистрация: 24.01.2006
Адрес: Санкт-Петербург
Записей в блоге: 19
Если еще предполагаются и внутренние линии (11 и 12), то в данном частном случае можно попробовать сократиться до двух строчек кода
X++:
COM::createFromObject( _range.Borders() ).LineStyle( 1 );
COM::createFromObject( _range.Borders() ).Color( WinApi::RGB2int( 0, 0, 0 ) );
P.S. 2EAlex: Лихо-лихо Вы сообщения переставили. Теперь выглядит так, что я вроде как про 11 и 12 сам с собой поговорил
Цитата:
Сообщение от EAlex Посмотреть сообщение
Мы делаем примерно так:

// Обрамить все выделенное
А для операции обрамления можно использовать метод Range.BorderAround
Старый 11.02.2008, 16:50   #10  
kashperuk is offline
kashperuk
Участник
Аватар для kashperuk
MCBMSS
Соотечественники
Сотрудники Microsoft Dynamics
Лучший по профессии 2017
Лучший по профессии 2015
Лучший по профессии 2014
Лучший по профессии 2011
Лучший по профессии 2009
 
4,361 / 2084 (78) +++++++++
Регистрация: 30.05.2004
Адрес: Atlanta, GA, USA
Цитата:
Сообщение от EAlex Посмотреть сообщение
Мы делаем примерно так:

X++:
...
#define.insideHorizontal(12)
#define.insideVertical(11)
...
Эти два макроопределения получается не используются?
Старый 11.02.2008, 16:51   #11  
EAlex is offline
EAlex
Участник
 
27 / 14 (1) ++
Регистрация: 30.01.2004
Мы делаем примерно так:

X++:
#define.edgeBottom(9)
#define.edgeLeft(7)
#define.edgeRight(10)
#define.edgeTop(8)
#define.insideHorizontal(12)
#define.insideVertical(11)

COM   borders;
COM   border;
;
    // Обрамить все выделенное
    borders = _range.borders();
    color = WinApi::RGB2int( 0, 0, 0 );  
    border  = borders.item( #edgeTop );
    border.color( color  );
    border.lineStyle( 1 );

    border  = borders.item( #edgeBottom );
    border.color( color  );
    border.lineStyle( 1 );

    border  = borders.item( #edgeLeft );
    border.color( color  );
    border.lineStyle( 1 );

    border  = borders.item( #edgeRight );
    border.color( color  );
    border.lineStyle( 1 );
Старый 11.02.2008, 17:39   #12  
kashperuk is offline
kashperuk
Участник
Аватар для kashperuk
MCBMSS
Соотечественники
Сотрудники Microsoft Dynamics
Лучший по профессии 2017
Лучший по профессии 2015
Лучший по профессии 2014
Лучший по профессии 2011
Лучший по профессии 2009
 
4,361 / 2084 (78) +++++++++
Регистрация: 30.05.2004
Адрес: Atlanta, GA, USA
Когда-то написал вот такой код - пытался учесть выделение "внутри" по вертикали/горизонтали. Вроде работает

X++:
void setRangeBorder(BookMark _bookMark,
                    int _lineStyle = 1, // xlContinuous
                    int _lineWeight = 1, // xlContinuous
                    boolean _inside = False, 
                    int _workSheetNumber = 1,
                    container _lines2Draw = [true, true, true, true])
{
    COM         comRange, comBorders, comBorder, comWorkSheet;
    TextBuffer  textBuffer;
    int         fromRow;
    int         toRow;
    ;
    try
    {
        comWorkSheet = this.getWorkSheet(_workSheetNumber);
        comRange     = comWorkSheet.Range(_bookMark);
        if (comRange)
        {
            comBorders = comRange.Borders();
 
            if (conPeek(_lines2Draw, 1))
            {
                comBorder = comBorders.Item(7); // left
                comBorder.Weight(_lineWeight);
                comBorder.LineStyle(_lineStyle);
            }
            if (conPeek(_lines2Draw, 2))
            {
                comBorder = comBorders.Item(8); // top
                comBorder.Weight(_lineWeight);
                comBorder.LineStyle(_lineStyle);
            }
            if (conPeek(_lines2Draw, 3))
            {
                comBorder = comBorders.Item(9); // bottom
                comBorder.Weight(_lineWeight);
                comBorder.LineStyle(_lineStyle);
            }
            if (conPeek(_lines2Draw, 4))
            {
                comBorder = comBorders.Item(10); // right
                comBorder.Weight(_lineWeight);
                comBorder.LineStyle(_lineStyle);
            }
 
            if (_inside)
            {
                textBuffer = new TextBuffer();
                textBuffer.setText(_bookMark);
 
                textBuffer.find('\\:');
                if (textBuffer.matchPos() > 0 && textBuffer.matchLen() == 1)
                {
                    textBuffer.find(@":a+");
                    fromRow = ZCH_ComExcelExportADO::colName2Num(textBuffer.subStr(textBuffer.matchPos(), textBuffer.matchLen()));
 
                    textBuffer.find(@":a+", textBuffer.matchPos() + textBuffer.matchLen());
                    toRow = ZCH_ComExcelExportADO::colName2Num(textBuffer.subStr(textBuffer.matchPos(), textBuffer.matchLen()));

                    if (fromRow < toRow) 
                    {
                        comBorder = comBorders.Item(11); // inside vertical
                        comBorder.Weight(_lineWeight);
                        comBorder.LineStyle(_lineStyle);
                    }
 
                    textBuffer.find(@":d+");
                    fromRow = str2int(textBuffer.subStr(textBuffer.matchPos(), textBuffer.matchLen()));
 
                    textBuffer.find(@":d+", textBuffer.matchPos() + textBuffer.matchLen());
                    toRow = str2int(textBuffer.subStr(textBuffer.matchPos(), textBuffer.matchLen()));

                    if (fromRow < toRow) 
                    {
                        comBorder = comBorders.Item(12); // inside horizontal
                        comBorder.Weight(_lineWeight);
                        comBorder.LineStyle(_lineStyle);
                    }
                }
            }
        }
    }
    catch (exception::Error)
    {
        this.throwError("Ошибка такая-то");
    }
}
Может кому-то пригодится
Старый 11.02.2008, 17:57   #13  
Gustav is offline
Gustav
Moderator
Аватар для Gustav
SAP
Лучший по профессии 2009
 
1,858 / 1152 (42) ++++++++
Регистрация: 24.01.2006
Адрес: Санкт-Петербург
Записей в блоге: 19
Цитата:
Сообщение от Gustav Посмотреть сообщение
P.S. 2EAlex: Лихо-лихо Вы сообщения переставили. Теперь выглядит так, что я вроде как про 11 и 12 сам с собой поговорил
А для операции обрамления можно использовать метод Range.BorderAround
Так вот, такую операцию обрамления можно выполнить одной строкой кода:
X++:
_range.BorderAround( 1, 
                     COMVariant::createNoValue(), 
                     COMVariant::createNoValue(), 
                     WinAPI::RGB2int(0,0,0) );
Старый 11.02.2008, 18:22   #14  
kashperuk is offline
kashperuk
Участник
Аватар для kashperuk
MCBMSS
Соотечественники
Сотрудники Microsoft Dynamics
Лучший по профессии 2017
Лучший по профессии 2015
Лучший по профессии 2014
Лучший по профессии 2011
Лучший по профессии 2009
 
4,361 / 2084 (78) +++++++++
Регистрация: 30.05.2004
Адрес: Atlanta, GA, USA
Вот блин, опять я на 1 мессаж припознился.
Ну, поздравляем Gustav со штукой
Старый 12.02.2008, 10:25   #15  
Gustav is offline
Gustav
Moderator
Аватар для Gustav
SAP
Лучший по профессии 2009
 
1,858 / 1152 (42) ++++++++
Регистрация: 24.01.2006
Адрес: Санкт-Петербург
Записей в блоге: 19
Цитата:
Сообщение от kashperuk Посмотреть сообщение
Ну, поздравляем Gustav со штукой
Спасибо-спасибо-спасибо!!
Цитата:
Сообщение от kashperuk Посмотреть сообщение
Вот блин, опять я на 1 мессаж припознился.
Ничего-ничего, у нас с собой было
Изображения
 
Старый 09.12.2008, 17:11   #16  
VKUR is offline
VKUR
Участник
Аватар для VKUR
 
12 / 10 (1) +
Регистрация: 19.03.2007
Цитата:
Сообщение от kashperuk Посмотреть сообщение
Когда-то написал вот такой код - пытался учесть выделение "внутри" по вертикали/горизонтали. Вроде работает ...
ZCH_ComExcelExportADO
Старый 11.12.2008, 12:38   #17  
V777 is offline
V777
совсем зелен
 
249 / 10 (1) +
Регистрация: 15.04.2008
Gustav
а какое значение надо указать в BorderAround что бы линия была жирная сплошная??? перебирал методом подбора так и не нашел...
Старый 11.12.2008, 13:12   #18  
V777 is offline
V777
совсем зелен
 
249 / 10 (1) +
Регистрация: 15.04.2008
извините туплю...все нашел.., )
Старый 09.06.2011, 12:41   #19  
ZornFire is offline
ZornFire
MS Dynamics AX 2012 R3
Аватар для ZornFire
Oracle
Злыдни
Ex AND Project
 
333 / 76 (3) ++++
Регистрация: 12.01.2009
Адрес: Москва
А ещё можно наложить сетку вот так:
X++:
// наложение авто сетки на всю таблицу в генерируемом(не шаблон) отчёте в MS Excel, где 3 - начальная координата
excelDocument.Borders(strfmt("A3:G%1",3 + countLoops));
Где используется класс ComExcelDocument_RU, а именно его метод Borders:
X++:
void Borders(MSOfficeBookMark_RU bookMark, int _workSheet = 1)
{
Com MultiRange;
Com ComApplication;
Com Borders;
if (m_comDocument)
{
comApplication = m_comDocument.application();
if (comApplication)
{
//накладываем сетку на ячейки
MultiRange = this.findRange(bookMark, _workSheet);
Borders = MultiRange.Borders();
Borders.LineStyle(1);
}
}
}
__________________
"Человек человеку волк, а зомби зомби зомби." (с)
С Уважением, Алексей Кабанов

Последний раз редактировалось ZornFire; 09.06.2011 в 13:06.
Старый 01.06.2012, 15:40   #20  
smailik is offline
smailik
Участник
Аватар для smailik
 
250 / 70 (3) ++++
Регистрация: 10.04.2012
Адрес: Москва
Есть что-нибудь подобное для класса ComExcelDocument_RU?
Теги
ax3.0, excel

 

Похожие темы
Тема Автор Раздел Ответов Посл. сообщение
Исследование скорости экспорта данных из Axapta в Excel (коллективный эксперимент) Gustav DAX: База знаний и проекты 79 13.02.2014 13:18
gl00mie: Read Excel table via ADO Blog bot DAX Blogs 2 09.04.2010 08:32
[Excel] - Несколько версий Excel на машине клиента Андре DAX: Программирование 11 07.08.2007 13:45
Вызов Item() для коллекций Excel Владимир Максимов DAX: Программирование 15 17.08.2006 19:47
Форматирование Excel-документа из Axapta kostas DAX: Программирование 6 14.04.2004 14:52
Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск
Опции просмотра

Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.
Быстрый переход

Рейтинг@Mail.ru
Часовой пояс GMT +3, время: 09:25.
Powered by vBulletin® v3.8.5. Перевод: zCarot
Контактная информация, Реклама.