ReSQL.ru
     
powered by simpleCommunicator - 2.0.53     © 2025 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Выгрузка запроса в EXCEL
17 сообщений из 17, страница 1 из 1
Выгрузка запроса в EXCEL
    #39498439
Фотография час58
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
час58
Участник
Код: vbnet
1.
2.
3.
4.
 
  Set RST_QUE = DB.OpenRecordset("ULICI_VIGRUZKA_QUE", dbOpenDynaset)     
'  перекидываю одним махом
.Range("A" & STROKA).CopyFromRecordset RST_QUE



Как пронумеровать строки на листе книги Excel?
Чтобы в первом столбце слева шли по порядку цифры (1.2.3...) ?
Посоветуйте варианты.


------------------------------------------------------------------------
СПС
...
Рейтинг: 0 / 0
01.08.2017, 14:53
| Ответить | Цитировать | Написать  
Выгрузка запроса в EXCEL
    #39498458
MrShin
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
MrShin
Участник
Сгенерировать в запросе (см. Digits) или прописать формулой в темплейте экселевского файла, куда вставляешь данные. Нало будет только формулу копированием размножить по числу строк в запросе.
...
Рейтинг: 0 / 0
01.08.2017, 15:23
| Ответить | Цитировать | Написать  
Выгрузка запроса в EXCEL
    #39498466
Фотография час58
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
час58
Участник
MrShin,

Тоже думаю формулой.
но во первых не знаю какая она из себя, а уж тем более не представляю как её размножить.
хотя размножить это наверное value верхней ячейки присвоить всем последующим.
но это опять цикл....
а цикл это тормоза...
...
Рейтинг: 0 / 0
01.08.2017, 15:28
| Ответить | Цитировать | Написать  
Выгрузка запроса в EXCEL
    #39498469
Фотография час58
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
час58
Участник
MrShin,

циклом можно и вот так
присвоить значение встроенного порядкового номера строки листа
Код: vbnet
1.
.Cells(STROKA, 1).Value = .Cells(STROKA, 1).row



или
в цикле
Код: vbnet
1.
2.
3.
4.
5.
dim STROKA_VIGRUZKI as long

.Cells(STROKA, 1).Value = STROKA_VIGRUZKI

 STROKA_VIGRUZKI= STROKA_VIGRUZKI + 1
...
Рейтинг: 0 / 0
01.08.2017, 15:35
| Ответить | Цитировать | Написать  
Выгрузка запроса в EXCEL
    #39498480
MrShin
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
MrShin
Участник
Никаких циклов! Вот кусок рабочего кода, работает мгновенно:

Код: vbnet
1.
2.
3.
4.
5.
6.
7.
8.
lngRecCountCarline = rstCarline.Recordcount
With xlWork.Sheets("Carline Overview")
	.Rows("6:6").copy
	.Rows("6:" & lngRecCountCarline + 5).PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
	.Rows("6:" & lngRecCountCarline + 5).PasteSpecial xlPasteValidation, xlPasteSpecialOperationNone
	.Rows("6:" & lngRecCountCarline + 5).PasteSpecial xlPasteFormulas, xlPasteSpecialOperationNone
	.Range("B6").CopyFromRecordset rstCarline
End With



Здесь в темплейте в 6-й строке содержится образец для последующего форматирования, строки ниже не отформатированы. Копируем 6-ю строку и 3-мя командами всталяем форматы, валидацию (если надо) и формулы на все требуемые строки по числу записей в рекордсете. При этом формулы сами размножаются правильно. Соответственно в строке-образце для нумерации можно написать формулу =A5+1, A5 при этом должна быть либо пустая, либо с 0. С помощью этой технологии легко получать шикарные отчеты или формы для ввода данных с любым функционалом. Образец может содержать более одной строки, так что можно делать отчеты с разными объединениями строк по вертикали.
...
Рейтинг: 0 / 0
01.08.2017, 15:58
| Ответить | Цитировать | Написать  
Выгрузка запроса в EXCEL
    #39498483
Анатолий ( Киев )
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Анатолий ( Киев )
Гость
Код: vbnet
1.
2.
3.
.Range("B" & STROKA).CopyFromRecordset RST_QUE
.Range("A" & STROKA).Value = 1
.Range("A" & STROKA + 1 & ":A"  & STROKA + RST_QUE.RecordCount - 1).FormulaR1C1 = "=R[-1]C + 1"
...
Рейтинг: 0 / 0
01.08.2017, 16:01
| Ответить | Цитировать | Написать  
Выгрузка запроса в EXCEL
    #39498487
Фотография час58
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
час58
Участник
MrShin,

Спасибо за код, буду пробовать.
...
Рейтинг: 0 / 0
01.08.2017, 16:05
| Ответить | Цитировать | Написать  
Выгрузка запроса в EXCEL
    #39498488
Фотография час58
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
час58
Участник
Анатолий ( Киев ),

Ааааа...
вон как.
Спасибо буду делать.
...
Рейтинг: 0 / 0
01.08.2017, 16:06
| Ответить | Цитировать | Написать  
Выгрузка запроса в EXCEL
    #39498904
guest_rusimport
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
guest_rusimport
Гость
час58,
ещё один из вариантов - пронумеровать строки прямо в запросе и потом выгружать запрос в excel
Что мы знаем про каунтеры (aka счетчики)
...
Рейтинг: 0 / 0
02.08.2017, 11:40
| Ответить | Цитировать | Написать  
Выгрузка запроса в EXCEL
    #39499245
Фотография час58
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
час58
Участник
guest_rusimport,

Да, есть такой вариант, но сколько я с ним не бодался, он мне так и не поддался.
...
Рейтинг: 0 / 0
02.08.2017, 19:30
| Ответить | Цитировать | Написать  
Выгрузка запроса в EXCEL
    #39499276
guest_rusimport
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
guest_rusimport
Гость
час58guest_rusimport,

Да, есть такой вариант, но сколько я с ним не бодался, он мне так и не поддался.
Вроде, там ничего сложного.
...
Рейтинг: 0 / 0
02.08.2017, 21:05
| Ответить | Цитировать | Написать  
Выгрузка запроса в EXCEL
    #39499571
Фотография час58
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
час58
Участник
guest_rusimport,

Большое спасибо за пример.
...
Рейтинг: 0 / 0
03.08.2017, 11:38
| Ответить | Цитировать | Написать  
Выгрузка запроса в EXCEL
    #39499589
Фотография час58
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
час58
Участник
guest_rusimport,

пОЧЕМУ-ТО номера выдаются
во первых со второго номера,
во вторых всего две записи и вторая под разными номерами выскакивает то 4 то 7 то 9 ....

Как-то странно.
Хотя в твоём примере всё норм.
...
Рейтинг: 0 / 0
03.08.2017, 11:53
| Ответить | Цитировать | Написать  
Выгрузка запроса в EXCEL
    #39499606
guest_rusimport
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
guest_rusimport
Гость
час58,
покажи какой запрос у тебя получился
...
Рейтинг: 0 / 0
03.08.2017, 12:21
| Ответить | Цитировать | Написать  
Выгрузка запроса в EXCEL
    #39499608
Фотография час58
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
час58
Участник
guest_rusimport,

извини, не могу.
я его на время переделал в старый.
ядро базы программмы сломалось от присланной тобою функции
и мне пришлось откатится...

и сейчас меня дёргают за холку...
...
Рейтинг: 0 / 0
03.08.2017, 12:23
| Ответить | Цитировать | Написать  
Выгрузка запроса в EXCEL
    #39499725
guest_rusimport
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
guest_rusimport
Гость
час58guest_rusimport,

извини, не могу.
я его на время переделал в старый.
ядро базы программмы сломалось от присланной тобою функции
и мне пришлось откатится...

и сейчас меня дёргают за холку...

ну, извини... ломать ничего не хотел... чесн, чесн :)
...
Рейтинг: 0 / 0
03.08.2017, 15:04
| Ответить | Цитировать | Написать  
Выгрузка запроса в EXCEL
    #39499746
Фотография час58
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
час58
Участник
guest_rusimport,

Да ни чё.
Верю я.
...
Рейтинг: 0 / 0
03.08.2017, 15:31
| Ответить | Цитировать | Написать  
17 сообщений из 17, страница 1 из 1
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Выгрузка запроса в EXCEL
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение
NoSQL.ru       Новости, Чат       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=45&msg=39499746&tid=1612211]:
 0ms
get settings:
 11ms
get forum list:
 14ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 30ms
get topic data:
 13ms
get forum data:
 2ms
get page messages:
 47ms
get tp. blocked users:
 1ms
others: 14ms
total:  138ms
созд. / загр.: 138ms
x
x
Закрыть


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