Добро пожаловать в форум, Guest >> Войти | Регистрация | Поиск | Правила | | В избранное | Подписаться | ||
Все форумы / Microsoft Access |
![]() ![]() |
nataxa23 Member Откуда: Сообщений: 196 |
Данная тема обсуждалась уже несколько раз. Однако явного ответа я так и не нашла. Кто-нибудь нашел способ как избавиться от ошибки № 462? Все что было описано в теме тут: Проблема с CopyFromRecordset при выгрузке в exel / Microsoft Access / Sql.ru Один в один моя ситуация. Помогите добраться до сути.
___________________________________ Использую Microsoft Access 2010, 64 бит. Спасибо каждому, кто мне когда-либо здесь помог и продолжает помогать. |
|
13 окт 18, 20:16 [21703392] Ответить | Цитировать Сообщить модератору |
Predeclared Member Откуда: And God I know I'm one Сообщений: 1005 |
Cells висячая. |
13 окт 18, 20:29 [21703395] Ответить | Цитировать Сообщить модератору |
Predeclared Member Откуда: And God I know I'm one Сообщений: 1005 |
Rows тоже. |
13 окт 18, 20:35 [21703398] Ответить | Цитировать Сообщить модератору |
court Member Откуда: Сообщений: 2200 |
columns тоже :) |
13 окт 18, 20:40 [21703400] Ответить | Цитировать Сообщить модератору |
Predeclared Member Откуда: And God I know I'm one Сообщений: 1005 |
Это уже на следующей строчке. Я до нее еще не добрался. :) |
13 окт 18, 20:45 [21703403] Ответить | Цитировать Сообщить модератору |
nataxa23 Member Откуда: Сообщений: 196 |
Вы имеете в виду кусок кода: xlWs.Range("A1:A1").Select lngLastRow = Cells(Rows.Count, 1).End(xlUp).Row 'на этой строке срабатывает ошибка lngLastColumn = Cells(1, Columns.Count).End(xlToLeft).Column xlWs.Range(Cells(1, 1), Cells(lngLastRow, lngLastColumn)).WrapText = False вместо него этот: xlWs.Range("A1:A1").Select lngLastRow = xlWs.Cells(Rows.Count, 1).End(xlUp).Row 'на этой строке срабатывает ошибка lngLastColumn = xlWs.Cells(1, Columns.Count).End(xlToLeft).Column xlWs.Range(Cells(1, 1), Cells(lngLastRow, lngLastColumn)).WrapText = False Ровным счетом ничего не меняется, ошибка как была так и остается. Самое главное, что дествительно как у автора в теме которую я указала, срабатывает только 1 раз нормально, но стоит сделать повторно возникает ошибка. В диспетчере задач после закрытия файла, остается висеть запущенное приложение Excel. Вот это я вообще не втыкаю как так то??? |
||||||
13 окт 18, 21:09 [21703410] Ответить | Цитировать Сообщить модератору |
Predeclared Member Откуда: And God I know I'm one Сообщений: 1005 |
nataxa23, Везде исправь, а не в одном месте. |
13 окт 18, 21:26 [21703413] Ответить | Цитировать Сообщить модератору |
nataxa23 Member Откуда: Сообщений: 196 |
А где еще то? Тыкните пальцем, а то я не втыкаю что то. |
||
13 окт 18, 21:30 [21703414] Ответить | Цитировать Сообщить модератору |
Predeclared Member Откуда: And God I know I'm one Сообщений: 1005 |
lngLastRow = xlWs.Cells(Rows.Count, 1).End(xlUp).Row 'на этой строке срабатывает ошибка и далее везде |
13 окт 18, 21:33 [21703415] Ответить | Цитировать Сообщить модератору |
Predeclared Member Откуда: And God I know I'm one Сообщений: 1005 |
И константы EXCEL либо описать нужно, либо заменить их значениями. |
13 окт 18, 21:34 [21703418] Ответить | Цитировать Сообщить модератору |
Predeclared Member Откуда: And God I know I'm one Сообщений: 1005 |
lngLastRow = xlWs.Cells(Rows.Count, 1).End(xlUp).Row 'на этой строке срабатывает ошибка |
13 окт 18, 21:34 [21703421] Ответить | Цитировать Сообщить модератору |
nataxa23 Member Откуда: Сообщений: 196 |
ну да нашла уже, спс. ![]()
не поняла, как описать? ![]() |
||||||
13 окт 18, 21:40 [21703424] Ответить | Цитировать Сообщить модератору |
Predeclared Member Откуда: And God I know I'm one Сообщений: 1005 |
Const xlUp As Long = посмотреть значение в Excel |
13 окт 18, 21:42 [21703426] Ответить | Цитировать Сообщить модератору |
nataxa23 Member Откуда: Сообщений: 196 |
Predeclared, Спасибо большое, заработало. ![]() |
13 окт 18, 22:02 [21703432] Ответить | Цитировать Сообщить модератору |
Все форумы / Microsoft Access | ![]() |