Ошибка Run-time 1004

Imhost

Гость

08.12.2010 09:56:16

Добрый день! Прошу помочь с проблемой.
Ошибка: Невозможно выполнить операцию, поскольку ее результат будет перекрывать существующее сопоставление XML.

Данная ошибка возникает при загрузке "пустого" XML.
До внедрения прогресс бара ошибки не было, просто ячейка не заполнялась а макрос продолжал выполняться.

Как сделать чтоб макрос продолжал выполнятся не выдавая ошибку?

Заранее спасибо!

Прикрепленные файлы

post_181876.xlsm (38.99 КБ)

ТолькоУчусь Пользователь Сообщений: 1220 Регистрация: 13.05.2010	#2 08.12.2010 11:04:04 Не могу смотреть, все что больше 2003, но возможно поможет "On Error Resume Next"? <FONT COLOR="CadetBlue">

Imhost Гость	#3 08.12.2010 11:15:30 Дмитрий, сохранил в формате 97-2003. On Error Resume Next вставлять в конец выполняемого цикла? <EM><STRONG>Файл удален</STRONG> - велик размер - [<STRONG>МОДЕРАТОРЫ</STRONG>]</EM>

ТолькоУчусь

Пользователь

Сообщений: 1220 Регистрация: 13.05.2010

08.12.2010 11:55:34

В модуле.
---------------------------------
pi.Show "Обновление таблицы"
pi.StartNewAction , , , , , ra.Cells.Count

On Error Resume Next
For Each cell In ra.Cells
---------------------------------

У меня отказывается работать корректно файл, поскольку не профессиональная версия Excel.

Я бы Вам рекомендовал использовать стандартный ПБ.

Imhost Гость	#5 08.12.2010 12:33:10 Сменить боюсь не получится. ) После внедрения On Error Resume Next, куда вы подсказали, макрос все ячейки заполняет пустыми =)))

Imhost Гость	#6 08.12.2010 12:59:57 А никакого условия не нужно ставить после On Error Resume Next ?

EducatedFool Пользователь Сообщений: 3695 Регистрация: 23.12.2012	#7 08.12.2010 17:45:27 Нашёл проблему. Надо было удалить существующий лист Temp, и создать аналогичный новый. Пример в файле: http://excelvba.ru/XL_Files/Sample__08-12-2010__19-44-50.zip Надстройки для Excel Парсинг сайтов Мониторинг цен конкурентов

Imhost

Гость

08.12.2010 23:39:34

{quote}{login=EducatedFool}{date=08.12.2010 05:45}{thema=}{post}Нашёл проблему.
Надо было удалить существующий лист Temp, и создать аналогичный новый.

Пример в файле:
http://excelvba.ru/XL_Files/Sample__08-12-2010__19-44-50.zip{/post}{/quote}
К сожалению это не выличило =(

Longines

Пользователь

Сообщений: 141 Регистрация: 01.01.1970

09.12.2010 02:11:31

Не понимаю, что тут сложного...

Sub Test()
Dim cell As Range, ra As Range, pi As New ProgressIndicator
With Application
.ScreenUpdating = False
.DisplayAlerts = False
End With
Set ra = Range([d9], Range("d" & Rows.Count).End(xlUp))
With pi
.Show "ОБНОВЛЕНИЕ ТАБЛИЦЫ"
.StartNewAction , , , , , ra.Cells.Count
End With
For Each cell In ra.Cells
On Error Resume Next
Sheets("Temp").Delete
On Error GoTo 0
Sheets.Add.Name = "Temp"
DoEvents
n = n + 1
pi.SubAction "ЗАГРУЖАЮ ДАННЫЕ ДЛЯ: " & cell.Next, "ID: " & cell, "ОБРАБОТАНО: " & n & " ИЗ " & ra.Cells.Count
ActiveWorkbook.XmlImport _
URL:="http://eve-central.com/api/quicklook?typeid=" & cell & _
"&usesystem=" & Sheets("Test").Range("A1").Value, _
ImportMap:=Nothing, Destination:=Sheets("Temp").Range("A1")
cell.Offset(, 4) = Sheets("Temp").Range("N2")
cell.Offset(, 3) = [Temp!Y1].End(xlDown)
Next
Sheets("Temp").Delete
pi.Hide
With Application
.ScreenUpdating = True
.DisplayAlerts = True
End With
End Sub

Imhost Гость	#10 09.12.2010 09:12:28 {quote}{login=Longines}{date=09.12.2010 02:11}{thema=}{post}Не понимаю, что тут сложного... {/post}{/quote} Работает! Как знатоку это может и легко, для того кто только учится не очень. =) Спасибо всем большое за помощь!

Читают тему