Ошибка выполнения «1004» приложения или объект, определенный ошибка в VBA

Question

Private Sub CommandButton1_Click() 

ImportFilepath = Application.GetOpenFilename(FileFilter:="XML Files (*.xml), *.xsd", _ 
     Title:="Choose File", MultiSelect:=False) 
With ActiveWorkbook.XmlMaps("data-set_Map") 
.AdjustColumnWidth = False 
End With 
ActiveWorkbook.XmlMaps("data-set_Map").Import URL:= _ 
ImportFilepath 

End Sub 

Проблема: Этот код используется для данных импорта XML-файла в первенствовать cell.This работает правильно в первый раз, но когда я иду, чтобы импортировать во второй раз я получал эту ошибку «Ошибка времени выполнения» 1004 ».

Answer 1

Я знаю, что уже поздно, но потому, что я столкнулся с одной и той же проблемой: В моем случае ошибка была вызвана активацией функции защиты листа. После того, как я снял защитный лист перед импортом XML (и защищаю его), работает хорошо!