ReSQL.ru
     
powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Ошибка 1004 при работе с excel
8 сообщений из 8, страница 1 из 1
Ошибка 1004 при работе с excel
    #32680544
MPoil
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
MPoil
Участник
Почти каждый второй раз при редактирование из VBA файла xls возникает,ошибка:
Method 'Cells' of object '_Global' failed
Кто знает,почему так происходит?
Есть преположение,что не всегда успевает создаться файл xls ,который копируется из базы данных в указанную папку
...
Рейтинг: 0 / 0
05.09.2004, 14:14:39
| Ответить | Цитировать | Написать  
Ошибка 1004 при работе с excel
    #32680547
Фотография Victosha
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Victosha
Участник
что-то из области потери/перепутывания указателей.
...

код, что-ли покажи...


(с выражением лица)
...
Рейтинг: 0 / 0
05.09.2004, 14:24:41
| Ответить | Цитировать | Написать  
Ошибка 1004 при работе с excel
    #32680550
MPoil
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
MPoil
Участник
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
If file_exists(file1) = False Then  ' !!! 
    Call Loadfromdb(file, file1)
DoEvents
DoEvents
Set myOlApp = CreateObject("excel.Application")
Set MyWo = myOlApp.Workbooks.Open(file1)
Set mysheet = MyWo.Worksheets("Лист1")
MyRst.Open "select * from firm_client where default1=1 and id_cl1=" & Me.ID_RECIVER.value, CurrentProject.Connection, adOpenStatic, adLockReadOnly
MyRst2.Open "select * from cl where id_cl=" & MyRst( 10 ).value, CurrentProject.Connection, adOpenStatic, adLockReadOnly
 'If Not (MyRst.BOF And MyRst.EOF) Then 
 '     Debug.Print MyRst![bik] 
     
     
     Cells( 5 ,  1 ).Formula = Replace(Cells( 5 ,  1 ).Formula, "v_lice", MyRst( 8 ).value)
     Cells( 5 ,  1 ).Formula = Replace(Cells( 5 ,  1 ).Formula, "ur_name", MyRst2( 1 ).value)
     Cells( 80 ,  4 ).Formula = Replace(Cells( 80 ,  4 ).Formula, "ur_name", MyRst2( 1 ).value)
     Cells( 81 ,  4 ).Formula = Replace(Cells( 81 ,  4 ).Formula, "ur_add", MyRst( 1 ).value)
     Cells( 83 ,  4 ).Formula = Replace(Cells( 83 ,  4 ).Formula, "rs", MyRst( 3 ).value)
     Cells( 84 ,  4 ).Formula = Replace(Cells( 84 ,  4 ).Formula, "bank", MyRst( 4 ).value)
...
Рейтинг: 0 / 0
05.09.2004, 14:44:27
| Ответить | Цитировать | Написать  
Ошибка 1004 при работе с excel
    #32680560
Фотография Victosha
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Victosha
Участник
Типичная ошибка - повисшие клетки

рек. №1
вот это
Cells(5, 1).Formula = Replace(Cells(5, 1).Formula, "v_lice", MyRst(8).value)

должно выглядеть примерно так

Код: plaintext
1.
mysheet.Cells( 5 ,  1 ).Formula = _
mysheet.Range("$A$5").Replace(mysheet.Cells( 5 ,  1 ).Formula, "v_lice", MyRst( 8 ).value)


ЗЫ
работать будет, но на 200% от ошибки такого сорта не гарантирует...

хорошо "приглаженный" вариант должен работать надежнее...

(с выражением лица)
...
Рейтинг: 0 / 0
05.09.2004, 15:09:42
| Ответить | Цитировать | Написать  
Ошибка 1004 при работе с excel
    #32680563
Фотография Victosha
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Victosha
Участник
хи, Replace конечно, можно оставить VBA-шный...


(с выражением лица)
...
Рейтинг: 0 / 0
05.09.2004, 15:26:27
| Ответить | Цитировать | Написать  
Ошибка 1004 при работе с excel
    #32680564
MPoil
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
MPoil
Участник
Ошибка возникает до формирования
...
Рейтинг: 0 / 0
05.09.2004, 15:38:26
| Ответить | Цитировать | Написать  
Ошибка 1004 при работе с excel
    #32680566
Фотография Victosha
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Victosha
Участник
Это ОЧЕНЬ хорошо что до формирования.

Еще понять бы - формирования чего?

и где именно возникает, я ДОЛЖЕН догадаться, видимо...
догадываюсь - Вы не закрываете книгу по завершении работы.




(с выражением лица)
...
Рейтинг: 0 / 0
05.09.2004, 15:47:25
| Ответить | Цитировать | Написать  
Ошибка 1004 при работе с excel
    #32680567
MPoil
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
MPoil
Участник
заработало:
Обращение ко всем объектам ексель должно происходить в явном виде, т.е. после переменных типа лист. книга, приложение...
...
Рейтинг: 0 / 0
05.09.2004, 15:51:03
| Ответить | Цитировать | Написать  
8 сообщений из 8, страница 1 из 1
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Ошибка 1004 при работе с excel
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение   Полит. конфиден.  
NoSQL.ru       Кролег: Проекты, Новости, Чат       РЕД ФОРУМ       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=45&msg=32680547&tid=1671979]:
 0ms
get settings:
 8ms
get forum list:
 9ms
check forum access:
 2ms
check topic access:
 2ms
track hit:
 47ms
get topic data:
 6ms
get forum data:
 2ms
get page messages:
 24ms
get tp. blocked users:
 1ms
others: 195ms
total:  296ms
созд. / загр.: 296ms
x
x
Закрыть


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