Гость
Войти | Профиль | Очистить
Действия ...
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Группировка колонок в листе Excel из Access / 12 сообщений из 12, страница 1 из 1
13.07.2017, 07:31
    #39487991
simply
simply
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Группировка колонок в листе Excel из Access
День добрый.
Необходимо в открытой книге сгруппировать колонки в интервале "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, 08:02
    #39487995
simply
simply
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Группировка колонок в листе Excel из Access
И еще одна задачка нерешенная мной появилась.
После того, как я выгрузил в Excel данные необходимо вернуть номер последней заполненной строки.
Спасибо.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
13.07.2017, 08:09
    #39487999
Akina
Akina
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Группировка колонок в листе Excel из Access
Код: vbnet
1.
o.Columns("C:G").Select     ' ЗДЕСЬ ОШИБКА: error 1004 метод select из класса range завершен неверно


А какой тут может быть Select? у невизуального COM-объекта...
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
13.07.2017, 08:44
    #39488009
simply
simply
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Группировка колонок в листе Excel из Access
Мне просто нужна подсказка как сгруппировать диапазон столбцов.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
13.07.2017, 09:00
    #39488015
court
court
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Группировка колонок в листе Excel из Access
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:06
    #39488023
simply
simply
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Группировка колонок в листе Excel из Access
court, Спасибо
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
13.07.2017, 09:32
    #39488046
Анатолий ( Киев )
Анатолий ( Киев )
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Группировка колонок в листе Excel из Access
simplyПосле того, как я выгрузил в Excel данные необходимо вернуть номер последней заполненной строки.
LastRuwNum = o.UsedRange.Rows.Count
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
13.07.2017, 10:31
    #39488100
simply
simply
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Группировка колонок в листе Excel из Access
Анатолий ( Киев ) , Спасибо
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
18.07.2017, 11:12
    #39490604
simply
simply
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Группировка колонок в листе Excel из Access
Еще вопрос:
После того, как я выгрузил в Excel данные необходимо вернуть номер последней заполненной строки по ПЕРВОЙ колонке. Спасибо
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
18.07.2017, 11:30
    #39490627
mds_world
mds_world
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Группировка колонок в листе Excel из Access
simplyПосле того, как я выгрузил в Excel данные необходимо вернуть номер последней заполненной строки по ПЕРВОЙ колонке.
Код: vbnet
1.
n = o.Cells(o.Rows.Count, 1).End(-4162).Row
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
18.07.2017, 11:52
    #39490643
simply
simply
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Группировка колонок в листе Excel из Access
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, 12:07
    #39490664
simply
simply
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Группировка колонок в листе Excel из Access
Разобрался:
Код: vbnet
1.
o.Rows(N & ":" & 1000).Delete Shift:=xlUp


Спасибо
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Группировка колонок в листе Excel из Access / 12 сообщений из 12, страница 1 из 1
Целевая тема:
Создать новую тему:
Автор:
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение
созд. / загр.: 494ms
Закрыть
start [/forum/topic.php?fid=45&tablet=1&tid=1612259]:
 0ms
get settings:
 8ms
get forum list:
 13ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 42ms
get topic data:
 12ms
get forum data:
 2ms
get page messages:
 101ms
get tp. blocked users:
 1ms
others: 309ms
total:  494ms
x
x
Закрыть


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