ReSQL.ru
     
powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Группировка колонок в листе Excel из Access
12 сообщений из 12, страница 1 из 1
Группировка колонок в листе Excel из Access
    #39487991
Фотография simply
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
simply
Участник
День добрый.
Необходимо в открытой книге сгруппировать колонки в интервале "C:G".
Пока получается организовать ошибку. Помогите пожалуйста, Спасибо.

Код: vbnet
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
Private Sub Кнопка0_Click()
    'открывается существующий документ
    Dim XL  As Object, XT As Object, o As Object
    Set XL = CreateObject("Excel.Application")
    Set XT = XL.Workbooks.Open("R:\Моя книга.xltx")
    'отображение Excel
     Set o = XT.Sheets("Мой лист")

    o.Columns("C:G").Select     ' ЗДЕСЬ ОШИБКА: error 1004 метод select из класса range завершен неверно
    o.Selection.Columns.Group
       
    XL.visible = True
End Sub
...
Рейтинг: 0 / 0
13.07.2017, 07:31
| Ответить | Цитировать | Написать  
Группировка колонок в листе Excel из Access
    #39487995
Фотография simply
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
simply
Участник
И еще одна задачка нерешенная мной появилась.
После того, как я выгрузил в Excel данные необходимо вернуть номер последней заполненной строки.
Спасибо.
...
Рейтинг: 0 / 0
13.07.2017, 08:02
| Ответить | Цитировать | Написать  
Группировка колонок в листе Excel из Access
    #39487999
Фотография Akina
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Akina
Участник
Код: vbnet
1.
o.Columns("C:G").Select     ' ЗДЕСЬ ОШИБКА: error 1004 метод select из класса range завершен неверно


А какой тут может быть Select? у невизуального COM-объекта...
...
Рейтинг: 0 / 0
13.07.2017, 08:09
| Ответить | Цитировать | Написать  
Группировка колонок в листе Excel из Access
    #39488009
Фотография simply
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
simply
Участник
Мне просто нужна подсказка как сгруппировать диапазон столбцов.
...
Рейтинг: 0 / 0
13.07.2017, 08:44
| Ответить | Цитировать | Написать  
Группировка колонок в листе Excel из Access
    #39488015
Фотография court
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
court
Участник
simply
Код: vbnet
1.
2.
    o.Columns("C:G").Select     ' ЗДЕСЬ ОШИБКА: error 1004 метод select из класса range завершен неверно
    o.Selection.Columns.Group



По идеи, вот так если изменить - o.Selection.Group , то должно работать.
Но правильно все эти Select, Selection, ActiveЧётоТам - нужно, после записи макроса, вычишать "под корень"

Код: vbnet
1.
o.Columns("C:G").Group
...
Рейтинг: 0 / 0
13.07.2017, 09:00
| Ответить | Цитировать | Написать  
Группировка колонок в листе Excel из Access
    #39488023
Фотография simply
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
simply
Участник
court, Спасибо
...
Рейтинг: 0 / 0
13.07.2017, 09:06
| Ответить | Цитировать | Написать  
Группировка колонок в листе Excel из Access
    #39488046
Анатолий ( Киев )
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Анатолий ( Киев )
Гость
simplyПосле того, как я выгрузил в Excel данные необходимо вернуть номер последней заполненной строки.
LastRuwNum = o.UsedRange.Rows.Count
...
Рейтинг: 0 / 0
13.07.2017, 09:32
| Ответить | Цитировать | Написать  
Группировка колонок в листе Excel из Access
    #39488100
Фотография simply
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
simply
Участник
Анатолий ( Киев ) , Спасибо
...
Рейтинг: 0 / 0
13.07.2017, 10:31
| Ответить | Цитировать | Написать  
Группировка колонок в листе Excel из Access
    #39490604
Фотография simply
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
simply
Участник
Еще вопрос:
После того, как я выгрузил в Excel данные необходимо вернуть номер последней заполненной строки по ПЕРВОЙ колонке. Спасибо
...
Рейтинг: 0 / 0
18.07.2017, 11:12
| Ответить | Цитировать | Написать  
Группировка колонок в листе Excel из Access
    #39490627
Фотография mds_world
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
mds_world
Участник
simplyПосле того, как я выгрузил в Excel данные необходимо вернуть номер последней заполненной строки по ПЕРВОЙ колонке.
Код: vbnet
1.
n = o.Cells(o.Rows.Count, 1).End(-4162).Row
...
Рейтинг: 0 / 0
18.07.2017, 11:30
| Ответить | Цитировать | Написать  
Группировка колонок в листе Excel из Access
    #39490643
Фотография simply
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
simply
Участник
mds_world
Код: vbnet
1.
n = o.Cells(o.Rows.Count, 1).End(-4162).Row


Спасибо.
Если Вашим способом возвращать, то не учитываются свернутые последние строки

вот так учитываются:
Код: sql
1.
2.
Dim N
 N = Range("A1").SpecialCells(xlLastCell).Column


но вот дальше тормознулся.
Мне нужно удалить с последней строки (+1) до 1000-й

Код: vbnet
1.
2.
3.
N=23  
o.Rows("23:1000").Delete Shift:=xlUp 'ТАК удаляет (23 это та строка которую мы вернули)
o.Rows(N,1000).Delete Shift:=xlUp 'ТАК не удаляет, видимо конструкция не правильная)
...
Рейтинг: 0 / 0
18.07.2017, 11:52
| Ответить | Цитировать | Написать  
Группировка колонок в листе Excel из Access
    #39490664
Фотография simply
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
simply
Участник
Разобрался:
Код: vbnet
1.
o.Rows(N & ":" & 1000).Delete Shift:=xlUp


Спасибо
...
Рейтинг: 0 / 0
18.07.2017, 12:07
| Ответить | Цитировать | Написать  
12 сообщений из 12, страница 1 из 1
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Группировка колонок в листе Excel из Access
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение   Полит. конфиден.  
NoSQL.ru       Кролег: Проекты, Новости, Чат       РЕД ФОРУМ       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=45&fpage=71&tid=1612259]:
 0ms
get settings:
 7ms
get forum list:
 11ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 52ms
get topic data:
 9ms
get forum data:
 2ms
get page messages:
 44ms
get tp. blocked users:
 1ms
others: 231ms
total:  363ms
созд. / загр.: 363ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]