ReSQL.ru
     
powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / из Access в Excel
6 сообщений из 31, страница 2 из 2
  2  все
из Access в Excel
    #32587110
Витал
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Витал
Участник
Вообще-то во всей этой истории мне не понятна роль DoCmd. Если все равно используешь рекордсет в цикле - им же и добавляй данные в ексель

Код: plaintext
Cells(ct,  1 ).Value = MyRst![Rang_Id]
здесь же проверяй и здесь же и форматируй.

Насчет раннего и позднего связывания тут была уже дискуссия - я сторонник позднего.
...
Рейтинг: 0 / 0
02.07.2004, 13:49:55
| Ответить | Цитировать | Написать  
из Access в Excel
    #32587122
Витал
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Витал
Участник
В чем глюк то? Что сообщает?
Вообще-то желательно не просто ссылаться Range("A1"), а указывая приложение или книгу

mysheet.Range("A1")
...
Рейтинг: 0 / 0
02.07.2004, 13:53:24
| Ответить | Цитировать | Написать  
из Access в Excel
    #32587149
Proga
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Proga
Участник
2 Витал: посмотри выше, я там описал в чём глюк.
...
Рейтинг: 0 / 0
02.07.2004, 14:01:59
| Ответить | Цитировать | Написать  
из Access в Excel
    #32587208
Витал
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Витал
Участник
Попробуй закомментироваить строку с DoCmd...
А где у тебя nRows = Range("A1").Currentregion.rows.count? Не вижу.
...
Рейтинг: 0 / 0
02.07.2004, 14:18:21
| Ответить | Цитировать | Написать  
из Access в Excel
    #32587232
Proga
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Proga
Участник
Всё решение было найдено, надо было конретизировать рабочие области и листы.
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
nRows = mysheet.Range("A1").CurrentRegion.Rows.Count
ncolum = mysheet.Columns.Count
mysheet.Range("k1").Formula = "=SUM($b$2:$b$" & nRows & ")"
mysheet.Range("k2").Formula = "=SUM($b$2:$j$" & ncolum & ")"
 '+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
 
mysheet.Rows("1:1").Select
With myOlApp.Selection
        .VerticalAlignment = xlBottom
        .WrapText = False
        .Orientation =  0 
        .AddIndent = False
        .IndentLevel =  0 
        .ShrinkToFit = False
        .ReadingOrder = xlContext
        .MergeCells = False
    End With
    myOlApp.Selection.Rows.AutoFit
...
Рейтинг: 0 / 0
02.07.2004, 14:28:29
| Ответить | Цитировать | Написать  
из Access в Excel
    #32587275
Витал
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Витал
Участник
авторmysheet.Range("k2").Formula = "=SUM($b$2:$j$" & ncolum & ")"

Вот это - напрочь не понял. Подсчитав количество колонок - подставляешь это количество как номер последней строки диапазона...

Если неизвестно количество колонок, а надо итоги по строкам, то используй стиль ссылок R1C1
...
Рейтинг: 0 / 0
02.07.2004, 14:42:27
| Ответить | Цитировать | Написать  
6 сообщений из 31, страница 2 из 2
  2  все
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / из Access в Excel
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение   Полит. конфиден.  
NoSQL.ru       Кролег: Проекты, Новости, Чат       РЕД ФОРУМ       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=45&gotonew=1&tid=1673455]:
 0ms
get settings:
 8ms
get forum list:
 13ms
check forum access:
 2ms
check topic access:
 2ms
track hit:
 175ms
get topic data:
 10ms
get first new msg:
 5ms
get forum data:
 2ms
get page messages:
 53ms
get tp. blocked users:
 1ms
others: 198ms
total:  469ms
созд. / загр.: 469ms
x
x
Закрыть


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