Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / CopyFromRecordset и заголовки столбцов / 4 сообщений из 4, страница 1 из 1
21.08.2006, 16:53:07
    #33932835
Igemon
Igemon
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
CopyFromRecordset и заголовки столбцов
Здравствуйте.
Помогите, плиз.
Имеется рекордсет "records". Из него вставляются данные в диапазон MyRange.

Код: plaintext
MyRange.CopyFromRecordset records

Все работает. Но. Заголовки столбцов не вставляются. А надо!

Вопрос.
Можно ли это преодолеть в рамках избранного подхода, и какие есть альтернативы.

Спасибо.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
21.08.2006, 17:17:54
    #33932896
vkodor
vkodor
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
CopyFromRecordset и заголовки столбцов
из справки EXCEL2002
Код: plaintext
1.
2.
3.
4.
5.
For iCols =  0  to rs.Fields.Count -  1 
    ws.Cells( 1 , iCols +  1 ).Value = rs.Fields(iCols).Name
Next
ws.Range(ws.Cells( 1 ,  1 ),  _
    ws.Cells( 1 , rs.Fields.Count)).Font.Bold = True
ws.Range("A2").CopyFromRecordset rs
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
21.08.2006, 17:25:36
    #33932915
vkodor
vkodor
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
CopyFromRecordset и заголовки столбцов
Код: plaintext
1.
2.
3.
4.
    For iCols =  0  To records.Fields.Count -  1 
        MyRange.Offset( 0 , iCols).Value = records.Fields(iCols).Name
    Next
    Range(MyRange.Offset( 0 ,  0 ), MyRange.Offset( 0 , records.Fields.Count)).Font.Bold = True
    MyRange.Offset( 1 ,  0 ).CopyFromRecordset records
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
21.08.2006, 17:46:47
    #33932972
Igemon
Igemon
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
CopyFromRecordset и заголовки столбцов
Спасибо.
Это хорошее решение.
Жаль, что сам метод не умеет копировать и заголовки.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / CopyFromRecordset и заголовки столбцов / 4 сообщений из 4, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение  
Полит. конфиден.  
созд. / загр.: 387ms
Закрыть
start [/forum/topic.php?fid=61&tablet=1&tid=2184432]:
 0ms
get settings:
 10ms
get forum list:
 21ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 38ms
get topic data:
 10ms
get forum data:
 2ms
get page messages:
 40ms
get tp. blocked users:
 1ms
others: 259ms
total:  387ms
x
x
Закрыть


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