Модераторы: Partizan, gambit
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Как изменить свойства ячейки Excel, Не могу выполнить выравнивание текста! 
:(
    Опции темы
ArXeolog
Дата 29.1.2008, 22:25 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 1
Регистрация: 29.1.2008

Репутация: нет
Всего: нет



Привет! 
Решил на днях оформить мою прогу написаную в VBA под Excel в самостоятельную ПРОГУ для составления смет по экспертизе зданий.
Литературой по VB.net обчитался, но по взаимодействию с Excel нашел только одну статью, упомянутую уже не раз (скачал, прочитал, распечатал). При попытке перенести код столкнулся с рядом проблем. Например: 

        Ex.Range("A50:A52").Select()
        With Ex.Selection
            .HorizontalAlignment = xlCenter
            .VerticalAlignment = xlCenter
            .MergeCells = True
            .Borders(xlEdgeLeft).LineStyle = xlContinuous
            .Borders(xlEdgeBottom).LineStyle = xlContinuous
            .Borders(xlEdgeRight).LineStyle = xlContinuous
            .Borders(xlEdgeTop).LineStyle = xlContinuous
        End With

То что помечено VS не признает, хотя писал это вообще макрос в екселе. Как эти свойства называются сейчас? Или подскажите где почитать (только начал работать - еще много вопросов впереди)? smile 

PM MAIL   Вверх
mr.DUDA
Дата 30.1.2008, 10:14 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


3D-маньяк
****


Профиль
Группа: Экс. модератор
Сообщений: 8244
Регистрация: 27.7.2003
Где: город-герой Минск

Репутация: 8
Всего: 232



А если так:
Код
        Ex.Range("A50:A52").Select()
        With Ex.Selection
            .HorizontalAlignment = Constants.xlCenter
            .VerticalAlignment = Constants.xlCenter
            .MergeCells = True
            .Borders(XlBordersIndex.xlEdgeLeft).LineStyle = XlLineStyle.xlContinuous
            .Borders(XlBordersIndex.xlEdgeBottom).LineStyle = XlLineStyle.xlContinuous
            .Borders(XlBordersIndex.xlEdgeRight).LineStyle = XlLineStyle.xlContinuous
            .Borders(XlBordersIndex.xlEdgeTop).LineStyle = XlLineStyle.xlContinuous
        End With



--------------------
user posted image
PM MAIL WWW   Вверх
nitr
Дата 30.1.2008, 10:24 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Участник Клуба
Сообщений: 2543
Регистрация: 10.2.2006
Где: Россия :)

Репутация: нет
Всего: 84



Это КОНСТАНТЫ в Экселе. Попробуйте заменить:
xlCenter на -4108 или &HFFFFEFF4
xlContinuous на 1
xlEdgeLeft на 7
xlEdgeBottom на 9
xlEdgeRight на 10
xlEdgeTop на 8

Или сделайте в ваешем проекте эти переменные как константы с данными значениями. Я не в курсе какую бибилиотеку можно подключить, чтобы все константы Экселя можно было использовать. Погуглите - имхо самый лучший выход smile это подключить библиотеку, а значения выше - это крайность

Добавлено через 1 минуту и 36 секунд
ArXeolog, smile только перечитал (внимательно) сообщение mr.DUDA, если не получится что он написал, то можно заменить эти переменные значениями, что указаны мной.


--------------------
PM   Вверх
mr.DUDA
Дата 30.1.2008, 12:32 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


3D-маньяк
****


Профиль
Группа: Экс. модератор
Сообщений: 8244
Регистрация: 27.7.2003
Где: город-герой Минск

Репутация: 8
Всего: 232



Достаточно подключить "Microsoft Excel (номер версии) Library" на закладке COM. Все константы будут доступны через enum-ы (XlBordersIndex, XlLineStyle и т.п.) в пространстве имён Microsoft.Office.Interop.Excel или просто Excel (зависит от версии офиса).


--------------------
user posted image
PM MAIL WWW   Вверх
  
Ответ в темуСоздание новой темы Создание опроса
Прежде чем создать тему, посмотрите сюда:
Partizan
PashaPash

Используйте теги [code=csharp][/code] для подсветки кода. Используйтe чекбокс "транслит" если у Вас нет русских шрифтов.
Что делать если Вам помогли, но отблагодарить помощника плюсом в репутацию Вы не можете(не хватает сообщений)? Пишите сюда, или отправляйте репорт. Поставим :)
Так же не забывайте отмечать свой вопрос решенным, если он таковым является :)


Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, mr.DUDA, Partizan, PashaPash.

 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | .NET для новичков | Следующая тема »


 




[ Время генерации скрипта: 0.0820 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.