Гость
Войти | Профиль | Очистить
Действия ...
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Сбой при экспорте в Excell / 10 сообщений из 10, страница 1 из 1
18.08.2017, 11:24
    #39507392
VaRas
VaRas
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Сбой при экспорте в Excell
Из базы выгружаются данные в Excel. Если параллельно работать с другим файлом Excel, происходит сбой выгрузки. Как можно решить проблему.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
18.08.2017, 11:30
    #39507397
\\\\
\\\\
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Сбой при экспорте в Excell
VaRas, не видя кода трудно сказать на все 100% (да и в коде ли?).
Предположу нужно создавать свой процесс ( CreateObject ) и не использовать в коде конструкции типа Aktive...
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
18.08.2017, 11:50
    #39507405
VaRas
VaRas
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Сбой при экспорте в Excell
Код: 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, 12:02
    #39507431
\\\\
\\\\
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Сбой при экспорте в Excell
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:04
    #39507433
\\\\
\\\\
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Сбой при экспорте в Excell
забыл раскоментить
Код: vbnet
1.
2.
3.
...
ExlApp.Quit
...
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
18.08.2017, 12:08
    #39507441
VaRas
VaRas
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Сбой при экспорте в Excell
\\\\забыл раскоментить
Код: vbnet
1.
2.
3.
...
ExlApp.Quit
...



закрывает у другие документы, с которым работаю параллельно, поэтому и закомментил
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
18.08.2017, 12:19
    #39507458
VaRas
VaRas
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Сбой при экспорте в Excell
\\\\VaRas
Код: vbnet
1.
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:21
    #39507460
Akina
Akina
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Сбой при экспорте в Excell
VaRasзакрывает у другие документы, с которым работаю параллельноТолько если открывать их в том экземпляре Excel, который создаётся показанным кодом.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
18.08.2017, 12:23
    #39507464
VaRas
VaRas
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Сбой при экспорте в Excell
\\\\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:28
    #39507469
VaRas
VaRas
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Сбой при экспорте в Excell
AkinaVaRasзакрывает у другие документы, с которым работаю параллельноТолько если открывать их в том экземпляре Excel, который создаётся показанным кодом.

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


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