Сбой при экспорте в Excell / Microsoft Access

ReSQL.ru

Мобильная версия Контакт Правила FAQ Помощь

Гость

Войти | Регистрация | Профиль | Очистить

Новые сообщения | Избранное

Форумы | Пользователи | Статистика | Мод. лог | Поиск

Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр

Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Сбой при экспорте в Excell

10 сообщений из 10, страница 1 из 1

Сбой при экспорте в Excell

#39507392

VaRas

Гость

Из базы выгружаются данные в Excel. Если параллельно работать с другим файлом Excel, происходит сбой выгрузки. Как можно решить проблему.

...

Рейтинг:

0 / 0

18.08.2017, 11:24

| Ответить | Цитировать | Написать

Сбой при экспорте в Excell

#39507397

$\\\\$

\\\\

Гость

VaRas, не видя кода трудно сказать на все 100% (да и в коде ли?).
Предположу нужно создавать свой процесс ( CreateObject ) и не использовать в коде конструкции типа Aktive...

...

Рейтинг:

0 / 0

18.08.2017, 11:30

| Ответить | Цитировать | Написать

Сбой при экспорте в Excell

#39507405

VaRas

Гость

Код: vbnet

1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.

Dim ExlApp As Object 'Excel.Application
Dim Wbk As Object 'Excel.Workbook
Dim Sht As Object 'Excel.Worksheet
Set Wbk = CreateObject("Excel.Sheet.12")
Set Sht = Wbk.ActiveSheet
Set ExlApp = Sht.Parent.Parent

'...обработка

Wbk.SaveAs (imaFile)
Wbk.Close
'ExlApp.Quit
Set Sht = Nothing
Set Wbk = Nothing
Set ExlApp = Nothing

...

Рейтинг:

0 / 0

18.08.2017, 11:50

| Ответить | Цитировать | Написать

Сбой при экспорте в Excell

#39507431

$\\\\$

\\\\

Гость

VaRas

Код: vbnet

1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.

Dim ExlApp As Object 'Excel.Application
Dim Wbk As Object 'Excel.Workbook
Dim Sht As Object 'Excel.Worksheet

Set ExlApp = CreateObject("Excel.Application")'Примерно так
Set Wbk = ExlApp.Workbooks.Add
Set Sht = Wbk.ActiveSheet


'...обработка

Wbk.SaveAs (imaFile)
Wbk.Close
'ExlApp.Quit
Set Sht = Nothing
Set Wbk = Nothing
Set ExlApp = Nothing

...

Рейтинг:

0 / 0

18.08.2017, 12:02

| Ответить | Цитировать | Написать

Сбой при экспорте в Excell

#39507433

$\\\\$

\\\\

Гость

забыл раскоментить

Код: vbnet

1.
2.
3.

...
ExlApp.Quit
...

...

Рейтинг:

0 / 0

18.08.2017, 12:04

| Ответить | Цитировать | Написать

Сбой при экспорте в Excell

#39507441

VaRas

Гость

\\\\забыл раскоментить

Код: vbnet

1.
2.
3.

...
ExlApp.Quit
...

закрывает у другие документы, с которым работаю параллельно, поэтому и закомментил

...

Рейтинг:

0 / 0

18.08.2017, 12:08

| Ответить | Цитировать | Написать

Сбой при экспорте в Excell

#39507458

VaRas

Гость

\\\\VaRas

Код: vbnet

Set ExlApp = CreateObject("Excel.Application")'Примерно так

выдает ошибку 91 - Object variable or With block variable not set

надо так

Код: vbnet

1.
2.
3.
4.

  
    Set ExlApp = CreateObject("Excel.Application")
    Set Wbk = ExlApp.Workbooks.Add
    Set Sht = Wbk.Worksheets(1) ' Wbk.ActiveSheet - тоже работает (Active !!!)

вопрос решен.
Спасибо, большое

...

Рейтинг:

0 / 0

18.08.2017, 12:19

| Ответить | Цитировать | Написать

Сбой при экспорте в Excell

#39507460

Akina

Участник

Откуда: Зеленоград, Москва, Россия

Сообщения: 20 644

Рейтинг: 0 / 0

VaRasзакрывает у другие документы, с которым работаю параллельноТолько если открывать их в том экземпляре Excel, который создаётся показанным кодом.

...

Рейтинг:

0 / 0

18.08.2017, 12:21

| Ответить | Цитировать | Написать

Сбой при экспорте в Excell

#39507464

VaRas

Гость

\\\\VaRas

Код: vbnet

1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.

Dim ExlApp As Object 'Excel.Application
Dim Wbk As Object 'Excel.Workbook
Dim Sht As Object 'Excel.Worksheet

Set ExlApp = CreateObject("Excel.Application")'Примерно так
Set Wbk = ExlApp.Workbooks.Add
Set Sht = Wbk.ActiveSheet


'...обработка

Wbk.SaveAs (imaFile)
Wbk.Close
'ExlApp.Quit
Set Sht = Nothing
Set Wbk = Nothing
Set ExlApp = Nothing

Пардон не досмотрел, обратил внимание только на строку - 'Примерно так
Все работает.
Спасибо

...

Рейтинг:

0 / 0

18.08.2017, 12:23

| Ответить | Цитировать | Написать

Сбой при экспорте в Excell

#39507469

VaRas

Гость

AkinaVaRasзакрывает у другие документы, с которым работаю параллельноТолько если открывать их в том экземпляре Excel, который создаётся показанным кодом.

Да, так и есть.
Спасибо

...

Рейтинг:

0 / 0

18.08.2017, 12:28

| Ответить | Цитировать | Написать

10 сообщений из 10, страница 1 из 1

Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Сбой при экспорте в Excell

Цитировать

Написать

Автор*:

Ввести пароль для входа

Тема*:

Сообщение

Данное сообщение тематическое

Сообщение содержит картинки или видео 18+

Автор:

ВНИМАНИЕ! На данном подфоруме действуют строгие правила. Удостоверьтесь, что ваше сообщение соответствует им!

Форум или тема закрыты для гостей. Необходима авторизация!

Загрузить последнюю сохраненную версию

Вложение:

Вставить как галерею

Максимальный размер вложений: 4,0 МБ, аудио/видео: 8,0 МБ. Картинки большего размера ужимаются, если возможно.

Введите код, изображенный на картинке. Если код нечитаемый, кликните картинку, чтобы загрузить другой вариант.

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

Читали тему (0):

Читали форум (0):

Пользователи онлайн (0):

start [/forum/topic.php?fid=45&msg=39507392&tid=1612173]:	0ms
get settings:	11ms
get forum list:	14ms
check forum access:	4ms
check topic access:	4ms
track hit:	47ms
get topic data:	11ms
get forum data:	3ms
get page messages:	50ms
get tp. blocked users:	1ms
others:	289ms

total:	434ms