Ошибка runtime error 1004 excel

Four ways to fix runtime error 1004 in Excel:

Microsoft Visual Basic for Applications (VBA) is developed to help users write programs for the Windows operating system. It runs as an internal programming language in Microsoft Office, such as Word, Excel, and PowerPoint.

Some users have reported that when running VBA in an Excel chart or trying to generate a Macro in Excel documents, an error message popped up saying: Runtime error 1004. And then they find themselves cannot access the Excel files. If you have the same encounter as these users, this post is the right place for you. You can find both the reasons and the corresponding solutions of this error code on this page.

Runtime Error Details

The error message contains more information than the error code 1004. Generally, follow the error code, you can see a brief description. The most repeated error messages are listed below:

1. Runtime error 1004: Application or object-defined error.
2. Runtime error 1004: Method Ranger of Object Worksheet failed.
3. Runtime error 1004: Copy Method of Worksheet Class failed.

The Reason Why You See Runtime Error 1004 in Excel

If you want to know how to fix runtime error 1004 in Excel properly, you need to understand what leads to this issue. The following are the most prominent reasons.

• Macro Name Error

The Macro you are running is copying the original worksheet to a workbook with a defined name that you did not save and close before running the Macro.

• File Conflict

When opening the VBA Excel file, it gets conflicted with other programs.

• Too Many Legend Entries

The Excel chart contains more legend entries than space available to display the legend entries on the chart.

• Excel File Corruption

Your .xls files got corrupted, infected, or damaged.

Although many reasons would cause this Excel error 1004 problem, luckily, some valid methods can help users re-access the files. Let’s check them one by one.

Fix 1. Delete the GWXL97.XLA Files to Fix Runtime Error 1004 in Excel

The easiest method to fix the Excel error 1004 is to find and delete the error file.

Step 1. Go to C:Program FilesMS OfficeOfficeXLSTART.

Step 2. Find GWXL97.XLA file and delete it.

Step 3. Reopen your Excel file and check if the problem is solved.

Fix 2. Check the Trust Access to the VBA Project Object Model

Another solution you can try is to enable a VBA project trust option in Excel Trust Center. Follow the detailed steps and have a try.

Step 1. Open a blank Excel file and click «Files» on the upper left.

Step 2. Click Option and go to Trust Center.

Step 3. Find and enter the Trust Center Settings.

Step 4. Under Macro Settings, tick the option of «Trust access to the VBA project object model.»

Now you can check your Excel file.

Fix 3. Create Another Excel Template to Fix Runtime Error 1004 in Excel

This method could be a little bit complicated, but it’s useful and worth trying.

Step 1. Please start a new Excel workbook and make sure there is only one worksheet in it.

Step 2. Format the workbook first and then put the data you need onto it.

Step 3. Tap File > Save As, first enter the file name, and click the unfold arrow in Save as Type column.

Excel 2003: Choose Excel 97-2003 Template.

Excel 2007 or Later: Choose Excel Template.

Step 4. Click «Save» to confirm.

Now you can insert it programmatically by using the following code: Add Type:=pathfilename. The file name is the one you set when you create the new Excel template.

Fix 4. Repair Corrupted Excel Files Due to Error 1004 

If all the above solutions can’t help you out, then there is one possibility that the Excel file you want to open is damaged. To fix a damaged Excel file, you can rely on file repair software. EaseUS Data Recovery Wizard is a great choice.

With this tool, click the «Repair» button and wait for it to fix all the corrupted documents for you.

• Repair various corrupted files, including repairing Word, Excel, and PDF document 
• Fix unreadable contents in Word efficiently
• Repair corrupted PDF files, extract the text, comments, labels, graphics, etc. 
• Compatible with Microsoft Office 2019, 2016, 2013, 2010, & previous versions.

Download the software and follow the detailed steps below to fix corrupted Excel files.

Step 1. Launch EaseUS Data Recovery Wizard, and then scan disk with corrupted documents. This software enables you to fix damaged Word, Excel, PPT, and PDF files in same steps. 

Step 2. EaseUS data recovery and repair tool will scan for all lost and corrupted files. You can find the target files by file type or type the file name in the search box. 

Step 3. EaseUS Data Recovery Wizard can repair your damaged documents automatically. After file preview, you can click «Recover» to save the repaired Word, Excel, and PDF document files to a safe location.

The Bottom Line

After reading, you must have a thorough understanding of how to fix Runtime error 1004. If you can make sure that the Excel file you want to open is valid, then the first three methods would help you out.

Once you got a damaged Excel file, a professional file recovery tool is a wiser choice. EaseUS file repair software is highly recommended by many users & IT professionals to help you repair Word, Excel, PowerPoint, and PDF files. 

	Возникает при переходе по ссылке из одного листа на другой

Сергей Пользователь Сообщений: 11251 Регистрация: 01.01.1970

Юрий я не рунописец но пока начинаю это читать 1004 Ошибка, определенная приложением или объектом. Довольно распространенное универсальное сообщение об ошибке. Данная ошибка возникает тогда, когда ошибка генерируется не в VBA. Другими словами, ошибка определяется в Excel (или в другом объекте) и передается в VBA. Также эта ситуация возникает в случае если ошибка генерируется специально (для этого используется метод Raise объекта Err), но она не определена в VBA Прикладывайте примеры Лень двигатель прогресса, доказано!!!

Юрий М Модератор Сообщений: 60585 Регистрация: 14.09.2012 Контакты см. в профиле	Юрий, я подправил название темы: так больше конкретики. Ведь с Вашим названием все вопросы по ошибкам можно смело задавать в Вашей теме. Так лучше? Ну почему бы самому не придумать нормальное название?

Сергей Пользователь Сообщений: 11251 Регистрация: 01.01.1970	Юрий Глодовский, я почему говорю про пример и почему так быстро привел описание ошибки, потому что ща сам сижу втыкаю в неё, так ка записал макрорекодером макрос попытался его усовершенствовать и мне выдает такую фигню и я не думаю что мы с вами делаем одно и тоже Лень двигатель прогресса, доказано!!!

	Сергей, пример приложить не могу, так как там у меня вся рабочая база. Пробовал вынести это дело в отдельный файл, но ошибка не возникает, походу это конфликт макросов. У меня вопрос в какую сторону хотя бы копать.

Юрий М Модератор Сообщений: 60585 Регистрация: 14.09.2012 Контакты см. в профиле	Начните с того, что прогоните код пошагово: для начала выясним — на какой строке и в какой процедуре возникает эта ошибка.

Сергей Пользователь Сообщений: 11251 Регистрация: 01.01.1970	#7 16.05.2014 22:53:10 Цитата Юрий Глодовский пишет: У меня вопрос в какую сторону хотя бы копать. это не ко мне, сам тупил над такой же ошибкой около 30 минут, грохнул макрос рисую заново, но это чисто развлекуха под пиво к работе у меня ни как не относится Лень двигатель прогресса, доказано!!!

Юрий Глодовский Пользователь Сообщений: 137 Регистрация: 17.03.2013

#8 16.05.2014 23:42:20 Юрий М, в третьей строке, тот что If Not Intersect… Код Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)     '// Проверяем, что выделенная ячейка пересеклась с колонкой "А"     If Not Intersect(Target, Columns("C")) Is Nothing And Target.Parent.Name = "База" Then         '//Проверяем, что это не первая строка (там у нас будет заголовок таблицы)         If Target.Row <> 1 Then             If Target.Cells.Count = 1 Then '// Если выделена только одна ячейка                 '// Проверяем, что ячейка не пуста                 If Len(Target.Offset(0, -2).Value) <> 0 Then                     '// На всякий случай - предотвращение ошибок во время файловых операций                     On Error Resume Next                     '// Внимание Mkdir (в отличие от DOS-версии) не умеет создавать цепочку папок                     '// Это означает, что папка, в которой нужно создавать новую, уже должна существовать                     Dim HomeDir$                     HomeDir = "D:Base" '// Задаем исходную папку (у Вас - это: "D:Base")                     MkDir (HomeDir & "" & Target.Offset(0, -2).Value)                     If Err = 0 Then Cells(Target.Row, "C").Formula = "=HYPERLINK(""" & HomeDir & """&A" & Target.Row & ",""IIIII"")"                 End If             End If         End If     End If End Sub

Сергей Пользователь Сообщений: 11251 Регистрация: 01.01.1970	#9 16.05.2014 23:44:38 Цитата Юрий М пишет: Начните с того, что прогоните код пошагово: для начала выясним — на какой строке и в какой процедуре возникает эта ошибка. Юрий Глодовский, обращайте внимание на советы, если не знаете как это сделать, спрашивайте, дадут либо ссылку либо совет как это сделать, КОТ хоть и сидит со скелетом но форумчан редко ест Лень двигатель прогресса, доказано!!!

Hugo Пользователь Сообщений: 23253 Регистрация: 22.12.2012	#10 16.05.2014 23:46:23 У меня нет ошибки. Но попробуйте Код     If Not Intersect(Target, ActiveSheet.Columns("C")) Is Nothing And Target.Parent.Name = "База" Then кто его знает… или Код     If Not Intersect(Target, target.parent.Columns(3)) Is Nothing And Target.Parent.Name = "База" Then Изменено: Hugo — 17.05.2014 08:31:16

Юрий М Модератор Сообщений: 60585 Регистрация: 14.09.2012 Контакты см. в профиле	Без файла сложно, конечно… Лист «База» есть?

Hugo Пользователь Сообщений: 23253 Регистрация: 22.12.2012	Юра, у меня листа База не было. В начале Это не влияет. Нет листа — не выполняется условие всего лишь…

Сергей Пользователь Сообщений: 11251 Регистрация: 01.01.1970	вообще не уверен но со своей ошибкой кажись разобрался я когда писал рекодером копировал формулы из одного документа в другой, когда они оба были открыты макрос работал, после того как я закрыл файл из которого копировал формулы начал запускать макрос начала вылетать эта ошибка Лень двигатель прогресса, доказано!!!

Юрий Глодовский Пользователь Сообщений: 137 Регистрация: 17.03.2013	#14 17.05.2014 00:00:16 Цитата Hugo пишет: If Not Intersect(Target, target.parent.Columns(3)) Is Nothing And Target.Parent.Name = «База» Then Этот вариант помог. Большое спасибо. Сергей, посмотрите, может вам пригодится.

Юрий М Модератор Сообщений: 60585 Регистрация: 14.09.2012 Контакты см. в профиле	#15 17.05.2014 00:02:43 Немного смущает несоответствие комментария и строки кода. Комментарий ошибку не вызовет, но всё же: Код '// Проверяем, что выделенная ячейка пересеклась с колонкой "А" А проверяем столбец С.

Сергей Пользователь Сообщений: 11251 Регистрация: 01.01.1970	#16 17.05.2014 00:13:50 Цитата Юрий Глодовский пишет: может вам пригодится. в будущем может, на данном моменте эволюции понимания в VBA у меня даже таких строк нет Лень двигатель прогресса, доказано!!!

Казанский Пользователь Сообщений: 8839 Регистрация: 11.01.2013	#17 17.05.2014 01:13:52 Замечу, что Target.Parent это Sh, который передается в процедуру. Лучше разбить первую проверку на две, чтобы сначала шла быстрая операция сравнения имени, а потом громоздкий Intersect: Код If Sh.Name = "База" Then   If Not Intersect(Target, Sh.Columns(3)) Is Nothing Then

С самого начала Microsoft предоставила нам множество полезных приложений. В свое время приложения стали частью Microsoft Office. Microsoft Excel — одно из таких приложений, которое существует с первых дней существования компьютеров, и это программа, которая позволяет пользователям систематизировать формат и вычислять данные. Более того, он позволяет пользователям использовать формулы, используя систему электронных таблиц. Microsoft Excel используется многочисленными компаниями по всему миру для выполнения финансового анализа. Более того, MS Excel также поддерживает приложения Visual Basic, что означает, что вы можете добавить скрипт VBA, прикрепленный к вашей электронной таблице.

Другие офисные программы и MS Excel используют код VBA для множества функций, например, вы можете добавить кнопку в электронную таблицу, которая автоматически добавит данные. Такие функции очень полезны, когда вы собираетесь управлять большим объемом данных. Однако пользователи часто сообщают об ошибках, что у них есть лицо. Здесь мы обсуждаем конкретную ошибку времени выполнения VBA 1004. Возможные причины ошибки времени выполнения 1004 VBA — неверный синтаксис или код, отфильтрованные данные, повреждение MS Excel. Однако также возможно, что две программы конфликтуют при попытке открыть файл VBA одновременно.

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

Есть несколько методов, с помощью которых вы можете попытаться решить проблему времени выполнения VBA самостоятельно. Список решений приведен ниже.

Способ 1. Создать новый шаблон

Помещение нового листа Excel в шаблон вместо копирования или дублирования существующего листа может решить проблему. Поэтому сначала попробуйте это.

Шаг 1) Сначала запустите Microsoft Excel и создайте новую книгу, затем удалите существующий лист, оставив только один. Вы можете отформатировать как хотите, чтобы создать шаблон по умолчанию. Нажмите на файл вариант в строке меню и выберите Сохранить как вариант.

Шаг 2) Выберите Книга Excel опция, откроется окно файлового менеджера. Выберите каталог, в котором вы хотите сохранить свой шаблон.

Шаг 3) Введите имя шаблона, затем выберите тип файла как .xlt для Excel 2003 и .xltx для Excel 2007 или новее. Нажми на Сохранить кнопку, и ваш шаблон будет сохранен. Теперь попробуйте запустить код VBA.

Способ 2. Удаление файла GWXL97.XLA

Если несколько программ попытаются открыть файл VBA одновременно, конфликт обязательно возникнет, поэтому, чтобы убедиться в отсутствии конфликта, вы можете попробовать удалить файл GWXL97.XLA.

Шаг 1) Откройте Проводник.

Шаг 2) Перейдите в следующий каталог —

C: Program Files MSOffice Office XLSTART

Шаг 3) Вы увидите файл GWXL97.XLA в папке, выберите и нажмите кнопку удаления на клавиатуре или щелкните правой кнопкой мыши и выберите удалить. Теперь попробуйте запустить код VBA.

Способ 3. Отладить код

Вполне возможно, что ошибка 1004 возникает из-за неверного кода. Поэтому вам нужно будет написать правильный синтаксис и значение, чтобы код VBA отлично выполнялся. Может быть множество ошибок, которые могут быть результатом ошибки 1004, чтобы этого не произошло, вам нужно дважды проверить свой код и указать недопустимые строки. Например, Имя уже занято сообщение отображается с ошибкой 1004, если имя рабочего листа уже существует, и ему присвоено то же имя другому.

Если вы запустите код, он выдаст сообщение об ошибке 1004, поэтому попробуйте изменить имя и присвоить значения. Есть еще 1004 ошибки, связанные с недопустимым кодом VBA, например, сбой в диапазоне object_Global, поле класса Select Method of Range и многое другое. Каждый раз, когда будет отображаться сообщение, ошибки будут выделены ошибкой 1004, если ошибка связана с кодом VBA. Поэтому отлаживайте код с правильным синтаксисом и значениями.

Вывод

Код ошибки 1004 в Ms. Excel можно глупо исправить, отладив коды, исправив неверные строки, имена и значения. Более того, если проблема не связана с кодом, вы можете удалить файл XLA, который может конфликтовать с MS Excel при открытии файла VBA. Кроме того, вы можете попытаться создать новый шаблон с существующей Рабочей книгой, чтобы устранить проблему.