Runtime error 2147021892 80070bbc

Я пытаюсь открыть excel файлы в событии button_click. Я не сталкиваюсь с ошибками с первыми четырьмя файлами excel, которые я открыл, но когда мой макрос открывает пятый, он останавливается и показывает эту ошибку во время выполнения:

Run-time error '-2147021892 (80070bbc)':

office has detected a problem with this file.
To help protect your computer this file cannot be opened.

Здесь мой код для открытия файлов excel:

    Set wb = Workbooks.Open(fileName:=fileName, UpdateLinks:=True)

Возможные резолюции

Служба поддержки Microsoft – сообщение об ошибке в Office, когда файл заблокирован параметрами политики реестра, дает несколько механизмов для того, как можно обойти эту ошибку, если вы доверяете содержимому документа.

Некоторые ключевые примечания:

Для Excel 2010 или 2013

Измените параметры Файлового блока, чтобы отключить ограничение определенных типов файлов через “Файл” → “Параметры” → “Центр доверия” → “Параметры доверия”

Для Excel 2003 или 2007

Вы должны изменить значение раздела реестра FileOpenBlock, чтобы отключить ограничение определенных типов файлов. Это расположено по адресу

Для Excel 2007:

HKEY_CURRENT_USERSoftwarePoliciesMicrosoftOffice12.0ExcelSecurityFileOpenBlock

Для Excel 2003:

HKEY_CURRENT_USERSoftwarePoliciesMicrosoftOffice11.0ExcelSecurityFileOpenBlock

Подключи должны быть следующими:

Почему это происходит

Из поддержки Microsoft:

СИМПТОМЫ

Вы выполняете одно из следующих действий в приложении Microsoft Office 2010:

• Открыть встроенный объект

• Выполнение слияния

• Открыть файл из программы просмотра

В этой ситуации появляется следующее сообщение об ошибке:

Office обнаружил проблему с этим файлом. Чтобы защитить ваш компьютер, этот файл не открывается.

ПРИЧИНА

Эта проблема возникает из-за того, что проверка файлов Office обнаруживает проблему с файлом, который может представлять угрозу безопасности. Появляется сообщение об ошибке для вредоносного файла или поврежденного файла.

Похоже, что Office обнаруживает что-то, что может быть опасно для файла, например, вирус или другое вредоносное ПО, или просто возможно, что файл поврежден. Если вы доверяете этому документу, приступайте к его открытию. В противном случае будьте предельно осторожны, чтобы избежать заражения каким-либо вирусом.

У меня такая же проблема. Файл был поврежден, и VBA открыла эту ошибку. В качестве возможного решения я нашел это (фанаме – это строка с дорожкой):

Workbooks.Open FileName:= fname, UpdateLinks:=False, ReadOnly:=True, _
IgnoreReadOnlyRecommended:=True, Password:="", Editable:=FALSE, _
CorruptLoad:= xlExtractData

Важной частью является “CorruptLoad: = xlExtractData”, которая позволяет загружать данные из поврежденных файлов, не вызывая эту ошибку. Остальные вещи здесь, чтобы файл не мог что-то сделать… вместе с

Application.DisplayAlerts = False
Application.AskToUpdateLinks = False
Application.EnableEvents = False
Application.AutomationSecurity = msoAutomationSecurityForceDisable
Application.Calculation = xlCalculationManual

Так же, как предосторожность перед открытием файла… если вы это сделаете, не забудьте отменить его до того, как закончится ваш Macro (это мои стандартные настройки, используйте свой собственный! Вы можете найти их с помощью Debug.Print в окне Immediate ):

Application.DisplayAlerts = True
Application.AskToUpdateLinks = True
Application.EnableEvents = True
Application.Calculation = xlNormal
Application.AutomationSecurity = msoAutomationSecurityLow

Будьте осторожны, каковы ваши настройки безопасности на самом деле, и не слепо копируйте эти изменения настроек… Также лучше всего ловить ошибки (“On Error…”) и прекратить сбрасывать предыдущие настройки.

Я пробовал строку кода выше с моим “поврежденным” файлом. Результат был катастрофическим (но оригинал был скопирован). Все листы Excel (13) теперь имеют текст, и все около 93 страниц кода VBA исчезли. Стили = 17: Размер файла <2000 КБ.

Одна ячейка с измененным форматом ячейки вызывает печально известный текст ошибки M/S. Я не думаю, что это испорчено, но может быть слишком много программирования для Excel (ов).

Возможно, файл загружается/копируется из внешнего источника, например, через Интернет. На следующей странице обсуждалось, как “разблокировать” такие файлы программно через VBA. https://answers.microsoft.com/en-us/msoffice/forum/msoffice_excel-msoffice_custom/how-to-unblock-file-using-vba/bed82938-6a57-403c-afcf-fa76a26a1ac6

См. Решение Андреаса Киллера. он отметил, что то, что вы очищаете, не является атрибутом файла, вы удаляете альтернативный поток данных “Zone.Identifier” из файла. И дает следующие ссылки: – Вики-ссылка… en.wikipedia.org/wiki/NTFS#Alternate_data_streams_.28ADS.29 http://vb.mvps.org/samples/Streams/

Над 2-й ссылкой на сайт Карла Э. Петерсона представлен файл Streams.zip, который содержит класс CStreams, который необходимо импортировать в ваш проект и использовать функцию KillStream.

Sub Test()
Dim C As New CStreams
Dim i As Integer
With C
.FileName = "C:test.txt"
For i = 1 To .Count - 1
Debug.Print .KillStream(i)
Next
End With
End Sub

-Credit для Андреаса Киллера

Надеюсь это поможет.

Thanks for Reply «VBA code of Excel 2013 is not working in Excel 2010»